Fix compiling error for GNU

LarissaReames-NOAA · Mar 29, 2021 · d8530e6 · d8530e6
1 parent b144fc2
commit d8530e6
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