Changeset 5116 for LMDZ6/branches/Amaury_dev/libf/phylmdiso/calwake.F90

Timestamp:

Jul 24, 2024, 2:54:37 PM (2 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/phylmdiso/calwake.F90 (modified) (2 diffs)

LMDZ6/branches/Amaury_dev/libf/phylmdiso/calwake.F90

@@ -258 +258 @@
 #ifdef ISOVERIF
 ! verif des inputs des wakes
-        write(*,*) 'calwake 257: verif des inputs des wakes'
-  DO l = 1, klev
-    DO i = 1, klon
-      if (iso_eau.gt.0) then
+        WRITE(*,*) 'calwake 257: verif des inputs des wakes'
+  DO l = 1, klev
+    DO i = 1, klon
+      if (iso_eau.gt.0) THEN
         CALL iso_verif_egalite(qe(i,l),xte(iso_eau,i,l),'calwake 261a')
         CALL iso_verif_egalite(dqa(i,l),dxta(iso_eau,i,l),'calwake 261b')
@@ -288 +288 @@
 #ifdef ISOVERIF
 ! verif des ouputs des wakes
-        write(*,*) 'calwake 286: verif des outputs des wakes'
-  DO l = 1, klev
-    DO i = 1, klon
-      if (iso_eau.gt.0) then
+        WRITE(*,*) 'calwake 286: verif des outputs des wakes'
+  DO l = 1, klev
+    DO i = 1, klon
+      if (iso_eau.gt.0) THEN
         CALL iso_verif_egalite(dqls(i,l),dxtls(iso_eau,i,l),'calwake 290a')
         CALL iso_verif_egalite(qx(i,l),xtx(iso_eau,i,l),'calwake 290b')