From e3f3f17a5a5e6e4453592f783b6f41f551fe57db Mon Sep 17 00:00:00 2001 From: Soren Rasmussen Date: Sat, 13 Jan 2024 14:24:11 -0700 Subject: [PATCH] Using w3emc wrapper module to reduce type-mismatch warnings --- scm/src/GFS_typedefs.F90 | 1 + scm/src/GFS_typedefs.meta | 1 + 2 files changed, 2 insertions(+) diff --git a/scm/src/GFS_typedefs.F90 b/scm/src/GFS_typedefs.F90 index 1f88629ad..bb6b42795 100644 --- a/scm/src/GFS_typedefs.F90 +++ b/scm/src/GFS_typedefs.F90 @@ -3161,6 +3161,7 @@ subroutine control_initialize (Model, nlunit, fn_nml, me, master, & communicator, ntasks, nthreads) !--- modules + use w3emc, only: w3difdat use physcons, only: con_rerth, con_pi, con_p0, rhowater use mersenne_twister, only: random_setseed, random_number use parse_tracers, only: get_tracer_index diff --git a/scm/src/GFS_typedefs.meta b/scm/src/GFS_typedefs.meta index 20095ea4d..0a70e509a 100644 --- a/scm/src/GFS_typedefs.meta +++ b/scm/src/GFS_typedefs.meta @@ -9665,6 +9665,7 @@ relative_path = ../../ccpp/physics/physics dependencies = machine.F,physcons.F90,radlw_param.f,radsw_param.f dependencies = GFDL_parse_tracers.F90,h2o_def.f,ozne_def.f,GFS_ccpp_suite_sim_pre.F90 + dependencies = w3emc_wrapper.F90 [ccpp-arg-table] name = GFS_typedefs