Changeset 5116 for LMDZ6/branches/Amaury_dev/libf/phylmdiso/ajsec.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/phylmdiso/ajsec.F90 (modified) (9 diffs)

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

@@ -63 +63 @@
       do i=1,klon
          do k=1,klev         
-           if (iso_eau.gt.0) then
+           if (iso_eau.gt.0) THEN
              CALL iso_verif_egalite_choix(q(i,k),xt(iso_eau,i,k), &
                  'ajsec 67',errmax,errmaxrel)
-           endif !if (iso_eau.gt.0) then
+           endif !if (iso_eau.gt.0) THEN
          enddo !do k=limbas,limhau
       enddo !do i=1,klon
@@ -136 +136 @@
         enddo    
 #ifdef ISOVERIF
-        if (iso_eau.gt.0) then
+        if (iso_eau.gt.0) THEN
              CALL iso_verif_egalite_choix(qm,xtm(iso_eau), &
                  'ajsec 126',errmax,errmaxrel)
-        endif !if (iso_eau.gt.0) then      
+        endif !if (iso_eau.gt.0) THEN
 #endif
 #endif
@@ -152 +152 @@
         enddo    
 #ifdef ISOVERIF
-        if (iso_eau.gt.0) then
+        if (iso_eau.gt.0) THEN
              CALL iso_verif_egalite_choix(qm,xtm(iso_eau), &
                  'ajsec 136',errmax,errmaxrel)
-        endif !if (iso_eau.gt.0) then      
+        endif !if (iso_eau.gt.0) THEN
 #endif
 #endif
@@ -198 +198 @@
              CALL iso_verif_noNaN(zxt(ixt,i,k),'ajsec 173')
            enddo !do ixt=1,niso           
-           if (iso_eau.gt.0) then
+           if (iso_eau.gt.0) THEN
              CALL iso_verif_egalite_choix(zq(i,k),zxt(iso_eau,i,k), &
                  'ajsec 168',errmax,errmaxrel)
-           endif !if (iso_eau.gt.0) then
+           endif !if (iso_eau.gt.0) THEN
 #ifdef ISOTRAC      
            CALL iso_verif_traceur(zxt(1,i,k),'ajsec 181')
@@ -228 +228 @@
       do i = 1, klon
         do k = 1, limhau
-         if (iso_eau.gt.0) then
+         if (iso_eau.gt.0) THEN
           CALL iso_verif_egalite_choix(d_q(i,k),d_xt(iso_eau,i,k), &
                 'ajsec 198',errmax,errmaxrel)
@@ -280 +280 @@
       do i = 1, klon
         do k = 1, klev
-         if (iso_eau.gt.0) then
+         if (iso_eau.gt.0) THEN
           CALL iso_verif_egalite(d_q(i,k),d_xt(iso_eau,i,k),'ajsec 270')
          endif
@@ -361 +361 @@
              CALL iso_verif_noNAN(xt(ixt,i,k),'ajsec 320')
            enddo !do ixt=1,niso           
-           if (iso_eau.gt.0) then
+           if (iso_eau.gt.0) THEN
              CALL iso_verif_egalite_choix(q(i,k),xt(iso_eau,i,k), &
                  'ajsec 324',errmax,errmaxrel)
-           endif !if (iso_eau.gt.0) then
+           endif !if (iso_eau.gt.0) THEN
 #ifdef ISOTRAC      
            CALL iso_verif_traceur(xt(1,i,k),'ajsec 327')
@@ -490 +490 @@
              CALL iso_verif_noNAN(zxt(ixt,i,k),'ajsec 428')
            enddo !do ixt=1,niso           
-           if (iso_eau.gt.0) then
+           if (iso_eau.gt.0) THEN
              CALL iso_verif_egalite_choix(zq(i,k),zxt(iso_eau,i,k), &
                  'ajsec 432',errmax,errmaxrel)
-           endif !if (iso_eau.gt.0) then
+           endif !if (iso_eau.gt.0) THEN
 #ifdef ISOTRAC      
            CALL iso_verif_traceur(zxt(1,i,k),'ajsec 436')
@@ -563 +563 @@
       do i = 1, klon
         do k = limbas, limhau
-         if (iso_eau.gt.0) then
+         if (iso_eau.gt.0) THEN
           CALL iso_verif_egalite(d_q(i,k),d_xt(iso_eau,i,k),'ajsec 270')
          endif