Changeset 5158 for LMDZ6/branches/Amaury_dev/libf/phylmd/surf_land_mod.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/phylmd/surf_land_mod.F90 (modified) (3 diffs)

LMDZ6/branches/Amaury_dev/libf/phylmd/surf_land_mod.F90

@@ -178 +178 @@
 #ifdef ISOVERIF
 !        WRITE(*,*) 'surf_land_mod 162'
-        do i=1,knon
+        DO i=1,knon
           IF (iso_eau.gt.0) THEN
             CALL iso_verif_egalite_choix(precip_snow(i), &
@@ -191 +191 @@
 #ifdef ISOVERIF
 !       WRITE(*,*) 'surf_land 169: ok_veget=',ok_veget
-        do i=1,knon
-         do ixt=1,ntiso
+        DO i=1,knon
+         DO ixt=1,ntiso
            CALL iso_verif_noNaN(xtprecip_snow(ixt,i),'surf_land 146')
          enddo
@@ -251 +251 @@
 #ifdef ISOVERIF
      WRITE(*,*) 'surf_land 193: apres surf_land_orchidee'
-     do i=1,knon
+     DO i=1,knon
         IF (iso_eau.gt.0) THEN
              CALL iso_verif_egalite_choix(xtevap(iso_eau,i),evap(i), &