Using w3emc wrapper module to reduce type-mismatch warnings

NCAR · Jan 17, 2024 · e3f3f17 · e3f3f17
1 parent e607121
commit e3f3f17
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 0 deletions.
diff --git 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
@@ -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