Merge branch 'dev/emc' of https://github.com/NOAA-GFDL/GFDL_atmos_cub…

…ed_sphere into nest_workaround_read_ccpp_suite_from_input_nml
LarissaReames-NOAA · Mar 31, 2021 · 129a3ae · 129a3ae
2 parents 97ccbe7 + 03a7ae7
commit 129a3ae
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/model/fv_dynamics.F90 b/model/fv_dynamics.F90
@@ -583,7 +583,11 @@ subroutine fv_dynamics(npx, npy, npz, nq_tot,  ng, bdt, consv_te, fill,
   mdt = bdt / real(k_split)
 
   if ( idiag%id_mdt > 0 .and. (.not. do_adiabatic_init) ) then
+#ifdef __GFORTRAN__
+!$OMP parallel do default(none) shared(is,ie,js,je,npz)
+#else
 !$OMP parallel do default(none) shared(is,ie,js,je,npz,dtdt_m)
+#endif
        do k=1,npz
           do j=js,je
              do i=is,ie