Changeset 5116 for LMDZ6/branches/Amaury_dev/libf/dynphy_lonlat/inigeomphy_mod.F90

Timestamp:

Jul 24, 2024, 2:54:37 PM (4 months ago)

Author:

abarral

Message:

rename modules properly lmdz_*
move ismin, ismax, minmax into new lmdz_libmath.f90
(lint) uppercase fortran keywords

File:

• LMDZ6/branches/Amaury_dev/libf/dynphy_lonlat/inigeomphy_mod.F90 (modified) (1 diff)

LMDZ6/branches/Amaury_dev/libf/dynphy_lonlat/inigeomphy_mod.F90

@@ -144 +144 @@
         boundslonfi_glo(k,north_east)=rlonu(i)
         boundslatfi_glo(k,north_east)=rlatv(j-1)
-        if (i==1) then
+        if (i==1) THEN
           ! special case for the first longitude's west bound
           boundslonfi_glo(k,north_west)=rlonu(iim)-2*PI