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

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

@@ -38 +38 @@
 
 !initialisations
-       do ig=1,ngrid
-          do l=1,nlay+1
+       DO ig=1,ngrid
+          DO l=1,nlay+1
              zw2(ig,l)=0.
              wa_moy(ig,l)=0.
           enddo
        enddo
-       do ig=1,ngrid
-          do l=1,nlay
+       DO ig=1,ngrid
+          DO l=1,nlay
              ztva(ig,l)=ztv(ig,l)
           enddo
        enddo
-       do ig=1,ngrid
+       DO ig=1,ngrid
           wmax(ig)=0.
           wmaxa(ig)=0.
@@ -58 +58 @@
 ! Calcul des F^*, integrale verticale de E^*
        f_star(:,1)=0.
-       do l=1,nlay
+       DO l=1,nlay
           f_star(:,l+1)=f_star(:,l)+alim_star(:,l)
        enddo
@@ -71 +71 @@
 ! lmax
 
-       do l=1,nlay-2
-         do ig=1,ngrid
+       DO l=1,nlay-2
+         DO ig=1,ngrid
             IF (l==lmin(ig).AND.lalim(ig)>1) THEN
 !------------------------------------------------------------------------
@@ -136 +136 @@
 
 ! Determination de zw2 max
-      do ig=1,ngrid
+      DO ig=1,ngrid
          wmax(ig)=0.
       enddo
 
-      do l=1,nlay
-         do ig=1,ngrid
+      DO l=1,nlay
+         DO ig=1,ngrid
             IF (l<=lmax(ig)) THEN
                 zw2(ig,l)=sqrt(zw2(ig,l))
@@ -152 +152 @@
 
 !   Longueur caracteristique correspondant a la hauteur des thermiques.
-      do  ig=1,ngrid
+      DO  ig=1,ngrid
          zmax(ig)=0.
          zlevinter(ig)=zlev(ig,1)
       enddo
-      do  ig=1,ngrid
+      DO  ig=1,ngrid
 ! calcul de zlevinter
           zlevinter(ig)=zlev(ig,lmax(ig)) + &