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

Timestamp:

Jul 23, 2024, 3:29:36 PM (4 months ago)

Author:

abarral

Message:

Handle CPP_INLANDSIS in lmdz_cppkeys_wrapper.F90
Remove obsolete key wrgrads_thermcell, _ADV_HALO, _ADV_HALLO, isminmax
Remove redundant uses of CPPKEY_INCA (thanks acozic)
Remove obsolete misc/write_field.F90
Remove unused ioipsl_* wrappers
Remove calls to WriteField_u with wrong signature
Convert .F -> .[fF]90
(lint) uppercase fortran operators
[note: 1d and iso still broken - working on it]

File:

• LMDZ6/branches/Amaury_dev/libf/phylmdiso/calwake.F90 (modified) (4 diffs)

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

@@ -201 +201 @@
     sigd0(i) = sigd(i)
   END DO
-  ! print*, 'sigd0,sigd', sigd0, sigd(i)
+  ! PRINT*, 'sigd0,sigd', sigd0, sigd(i)
   DO i = 1, klon
     ph(i, klev+1) = 0.
@@ -262 +262 @@
     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')
-        call iso_verif_egalite(dqdwn(i,l),dxtdwn(iso_eau,i,l),'calwake 261c')
-        call iso_verif_egalite(dqw(i,l),dxtw(iso_eau,i,l),'calwake 261d')
+        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')
+        CALL iso_verif_egalite(dqdwn(i,l),dxtdwn(iso_eau,i,l),'calwake 261c')
+        CALL iso_verif_egalite(dqw(i,l),dxtw(iso_eau,i,l),'calwake 261d')
       endif
     END DO
@@ -292 +292 @@
     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')
-        call iso_verif_egalite(dqke(i,l),dxtke(iso_eau,i,l),'calwake 290c')
-        call iso_verif_egalite(d_deltaqw(i,l),d_deltaxtw(iso_eau,i,l),'calwake 290d')
-        call iso_verif_egalite(dqw(i,l),dxtw(iso_eau,i,l),'calwake 290e')
+        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')
+        CALL iso_verif_egalite(dqke(i,l),dxtke(iso_eau,i,l),'calwake 290c')
+        CALL iso_verif_egalite(d_deltaqw(i,l),d_deltaxtw(iso_eau,i,l),'calwake 290d')
+        CALL iso_verif_egalite(dqw(i,l),dxtw(iso_eau,i,l),'calwake 290e')
       endif
     END DO
@@ -429 +429 @@
       ENDIF
     ENDDO
-    first=.false.
+    first=.FALSE.
   ENDIF  ! (first)
 !>jyg