Merge pull request NOAA-EMC#87 from XiaqiongZhou-NOAA/202101

Fix compiling error for GNU
LarissaReames-NOAA · Mar 29, 2021 · 03a7ae7 · 03a7ae7
2 parents b144fc2 + d8530e6
commit 03a7ae7
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