Changeset 5116 for LMDZ6/branches/Amaury_dev/libf/phylmd/traclmdz_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/phylmd/traclmdz_mod.F90 (modified) (3 diffs)

LMDZ6/branches/Amaury_dev/libf/phylmd/traclmdz_mod.F90

@@ -158 +158 @@
     !!jyg(20130206) : le choix d activation du lessivage est fait dans phytrac avec iflag_lscav
     !!    CALL getin('lessivage',lessivage)
-    !!    if(lessivage) then
+    !!    IF(lessivage) THEN
     !!     PRINT*,'lessivage lsc ON'
     !!    else
@@ -544 +544 @@
 
     DO it = 1, nbtr
-      IF(radio(it)) then
+      IF(radio(it)) THEN
         DO k = 1, klev
           DO i = 1, klon
@@ -558 +558 @@
     !======================================================================
 
-    IF (id_o3 /= 0) then
+    IF (id_o3 /= 0) THEN
       lmt_pas = NINT(86400. / pdtphys)
       IF (MOD(nstep - 1, lmt_pas) == 0) THEN