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

Timestamp:

Jul 24, 2024, 4:23:34 PM (4 months ago)

Author:

abarral

Message:

rename modules properly lmdz_*
move some unused files to obsolete/
(lint) uppercase fortran keywords

File:

• LMDZ6/branches/Amaury_dev/libf/phylmdiso/ajsec.F90 (modified) (11 diffs)

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

@@ -49 +49 @@
   INTEGER i, k, k1, k2
 #ifdef ISO
-      real xt(ntraciso,klon,klev)
-      real d_xt(ntraciso,klon,klev)
-      real zxt(ntraciso,klon,klev)
-      real xtm(ntraciso)
-      integer ixt
+      REAL xt(ntraciso,klon,klev)
+      REAL d_xt(ntraciso,klon,klev)
+      REAL zxt(ntraciso,klon,klev)
+      REAL xtm(ntraciso)
+      INTEGER ixt
 #endif
 
@@ -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)
@@ -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)
@@ -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)
@@ -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)
@@ -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
@@ -345 +345 @@
 
 #ifdef ISO
-      real xt(ntraciso,klon,klev)
-      real d_xt(ntraciso,klon,klev)
-      real zxt(ntraciso,klon,klev)
-      real xtm(ntraciso)
-      integer ixt
+      REAL xt(ntraciso,klon,klev)
+      REAL d_xt(ntraciso,klon,klev)
+      REAL zxt(ntraciso,klon,klev)
+      REAL xtm(ntraciso)
+      INTEGER ixt
 #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)
@@ -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)
@@ -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