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

Timestamp:

Jul 23, 2024, 3:29:36 PM (3 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/ajsec.F90 (modified) (9 diffs)

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

@@ -64 +64 @@
          do k=1,klev         
            if (iso_eau.gt.0) then
-             call iso_verif_egalite_choix(q(i,k),xt(iso_eau,i,k), &
+             CALL iso_verif_egalite_choix(q(i,k),xt(iso_eau,i,k), &
                  'ajsec 67',errmax,errmaxrel)
            endif !if (iso_eau.gt.0) then
@@ -137 +137 @@
 #ifdef ISOVERIF
         if (iso_eau.gt.0) then
-             call iso_verif_egalite_choix(qm,xtm(iso_eau), &
+             CALL iso_verif_egalite_choix(qm,xtm(iso_eau), &
                  'ajsec 126',errmax,errmaxrel)
         endif !if (iso_eau.gt.0) then      
@@ -153 +153 @@
 #ifdef ISOVERIF
         if (iso_eau.gt.0) then
-             call iso_verif_egalite_choix(qm,xtm(iso_eau), &
+             CALL iso_verif_egalite_choix(qm,xtm(iso_eau), &
                  'ajsec 136',errmax,errmaxrel)
         endif !if (iso_eau.gt.0) then      
@@ -196 +196 @@
          do k=1,klev
            do ixt=1,ntraciso
-             call iso_verif_noNaN(zxt(ixt,i,k),'ajsec 173')
+             CALL iso_verif_noNaN(zxt(ixt,i,k),'ajsec 173')
            enddo !do ixt=1,niso           
            if (iso_eau.gt.0) then
-             call iso_verif_egalite_choix(zq(i,k),zxt(iso_eau,i,k), &
+             CALL iso_verif_egalite_choix(zq(i,k),zxt(iso_eau,i,k), &
                  'ajsec 168',errmax,errmaxrel)
            endif !if (iso_eau.gt.0) then
 #ifdef ISOTRAC      
-           call iso_verif_traceur(zxt(1,i,k),'ajsec 181')
+           CALL iso_verif_traceur(zxt(1,i,k),'ajsec 181')
 #endif           
          enddo !do k=limbas,limhau
@@ -229 +229 @@
         do k = 1, limhau
          if (iso_eau.gt.0) then
-          call iso_verif_egalite_choix(d_q(i,k),d_xt(iso_eau,i,k), &
+          CALL iso_verif_egalite_choix(d_q(i,k),d_xt(iso_eau,i,k), &
                 'ajsec 198',errmax,errmaxrel)
          endif
 #ifdef ISOTRAC      
-        call iso_verif_traceur_justmass(d_xt(1,i,k),'physiq 210')
+        CALL iso_verif_traceur_justmass(d_xt(1,i,k),'physiq 210')
 #endif         
          enddo
@@ -281 +281 @@
         do k = 1, klev
          if (iso_eau.gt.0) then
-          call iso_verif_egalite(d_q(i,k),d_xt(iso_eau,i,k),'ajsec 270')
+          CALL iso_verif_egalite(d_q(i,k),d_xt(iso_eau,i,k),'ajsec 270')
          endif
 #ifdef ISOTRAC      
-        call iso_verif_traceur_justmass(d_xt(1,i,k),'physiq 3045')
+        CALL iso_verif_traceur_justmass(d_xt(1,i,k),'physiq 3045')
 #endif         
          enddo
@@ -359 +359 @@
          do k=1,klev
            do ixt=1,ntraciso
-             call iso_verif_noNAN(xt(ixt,i,k),'ajsec 320')
+             CALL iso_verif_noNAN(xt(ixt,i,k),'ajsec 320')
            enddo !do ixt=1,niso           
            if (iso_eau.gt.0) then
-             call iso_verif_egalite_choix(q(i,k),xt(iso_eau,i,k), &
+             CALL iso_verif_egalite_choix(q(i,k),xt(iso_eau,i,k), &
                  'ajsec 324',errmax,errmaxrel)
            endif !if (iso_eau.gt.0) then
 #ifdef ISOTRAC      
-           call iso_verif_traceur(xt(1,i,k),'ajsec 327')
+           CALL iso_verif_traceur(xt(1,i,k),'ajsec 327')
 #endif           
          enddo !do k=1,klev
@@ -488 +488 @@
          do k=limbas,limhau
            do ixt=1,ntraciso
-             call iso_verif_noNAN(zxt(ixt,i,k),'ajsec 428')
+             CALL iso_verif_noNAN(zxt(ixt,i,k),'ajsec 428')
            enddo !do ixt=1,niso           
            if (iso_eau.gt.0) then
-             call iso_verif_egalite_choix(zq(i,k),zxt(iso_eau,i,k), &
+             CALL iso_verif_egalite_choix(zq(i,k),zxt(iso_eau,i,k), &
                  'ajsec 432',errmax,errmaxrel)
            endif !if (iso_eau.gt.0) then
 #ifdef ISOTRAC      
-           call iso_verif_traceur(zxt(1,i,k),'ajsec 436')
+           CALL iso_verif_traceur(zxt(1,i,k),'ajsec 436')
 #endif           
          enddo !do k=limbas,limhau
@@ -564 +564 @@
         do k = limbas, limhau
          if (iso_eau.gt.0) then
-          call iso_verif_egalite(d_q(i,k),d_xt(iso_eau,i,k),'ajsec 270')
+          CALL iso_verif_egalite(d_q(i,k),d_xt(iso_eau,i,k),'ajsec 270')
          endif
 #ifdef ISOTRAC      
-        call iso_verif_traceur_justmass(d_xt(1,i,k),'physiq 3045')
+        CALL iso_verif_traceur_justmass(d_xt(1,i,k),'physiq 3045')
 #endif         
          enddo