Changeset 5158 for LMDZ6/branches/Amaury_dev/libf/phylmdiso/phyredem.F90

Timestamp:

Aug 2, 2024, 2:12:03 PM (3 months ago)

Author:

abarral

Message:

Add missing klon on strataer_emiss_mod.F90
Correct various missing explicit declarations
Replace tabs by spaces (tabs are not part of the fortran charset)
Continue cleaning modules
Removed unused arguments and variables

File:

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

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

@@ -545 +545 @@
 #ifdef ISOVERIF
      IF (iso_eau.gt.0) THEN
-      do k=1,klev
-        do i=1,klon
+      DO k=1,klev
+        DO i=1,klon
            CALL iso_verif_egalite(xt_ancien(iso_eau,i,k),q_ancien(i,k), &
                  'phyisoredem 50a')
@@ -556 +556 @@
         enddo !do i=1,klon
       enddo !do k=1,klev
-      do i=1,klon
+      DO i=1,klon
         DO nsrf = 1, nbsrf
            CALL iso_verif_egalite(fxtevap(iso_eau,i,nsrf),fevap(i,nsrf), &
@@ -563 +563 @@
        enddo
       endif !if (iso_eau.gt.0) THEN
-      do i=1,klon
-       do ixt=1,niso
+      DO i=1,klon
+       DO ixt=1,niso
         CALL iso_verif_noNaN(xtsol(ixt,i),'phyisoredem 72')
        enddo !do ixt=1,niso
       enddo !do i=1,klon
 #ifdef ISOTRAC        
-      do k=1,klev
-        do i=1,klon  
+      DO k=1,klev
+        DO i=1,klon
           CALL iso_verif_traceur(xt_ancien(1,i,k), &
                          'phyisoredem 60')
@@ -578 +578 @@
 #endif
 
-   do ixt=1,ntiso
+   DO ixt=1,ntiso
 
       outiso = TRIM(isoName(ixt))