Changeset 5158 for LMDZ6/branches/Amaury_dev/libf/phylmd/pbl_surface_mod.F90

Timestamp:

Aug 2, 2024, 2:12:03 PM (7 weeks 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/pbl_surface_mod.F90 (modified) (3 diffs)

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

@@ -2209 +2209 @@
         ! we assume that the eddy diffsivity coefficient for
         ! suspended particles is a fraction of Kh
-        do k = 1, klev
-          do j = 1, knon
+        DO k = 1, klev
+          DO j = 1, knon
             ycoefqbs(j, k) = ycoefh(j, k) * zeta_bs
           enddo
@@ -2528 +2528 @@
                'pbl_surface 1095a: apres surf_landice')
                ENDDO
-                do ixt=1,niso
+                DO ixt=1,niso
                    CALL iso_verif_noNaN(yxtsol(ixt,j), &
         'pbl_surface 1095b: apres surf_landice')
@@ -2536 +2536 @@
 #ifdef ISOVERIF
              !WRITE(*,*) 'pbl_surface_mod 1060: sortie surf_landice'
-             do j=1,knon
+             DO j=1,knon
                IF (iso_eau >= 0) THEN
                  CALL iso_verif_egalite(yxtsnow(iso_eau,j), &