fix gfortran issue the right way

GEOS-ESM · Mar 7, 2024 · cc4a1f9 · cc4a1f9
1 parent e425404
commit cc4a1f9
Showing 1 changed file with 2 additions and 6 deletions.
diff --git a/base/MaplGrid.F90 b/base/MaplGrid.F90
@@ -337,17 +337,13 @@ subroutine MAPL_GridGet(GRID, globalCellCountPerDim, localCellCountPerDim, layou
          call MAPL_DistGridGet(distgrid, &
             minIndex=minindex, &
             maxIndex=maxindex, _RC)
-         if (associated(ims)) then
-            nullify(ims)
-         end if
-         if (associated(jms)) then
-            nullify(jms)
-         end if
+         nullify(ims,jms)
          call MAPL_GetImsJms(Imins=minindex(1,:),Imaxs=maxindex(1,:),&
            Jmins=minindex(2,:),Jmaxs=maxindex(2,:),Ims=ims,Jms=jms,_RC)
 
          layout(1) = size(ims)
          layout(2) = size(jms)
+         deallocate(ims,jms)
       end if
 
       _RETURN(ESMF_SUCCESS)