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

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

@@ -757 +757 @@
         IF (iflag_pdf==0) THEN
            ! version creneau de (Li, 1998)
-           do i=1,klon
+           DO i=1,klon
               zdelq = min(ratqs(i,k),0.99) * zq(i)
               rneb(i,k) = (zq(i)+zdelq-zqs(i)) / (2.0*zdelq)
@@ -768 +768 @@
            ! les valeurs de T et Q initiales
            ! ----------------------------------------------------------------
-           do i=1,klon
+           DO i=1,klon
               IF(zq(i)<1.e-15) THEN
                  ncoreczq=ncoreczq+1
@@ -800 +800 @@
 
               endif
-              do i=1,klon
+              DO i=1,klon
                  rneb(i,k)=ctot(i,k)
                  rneblsvol(i,k)=ctot_vol(i,k)
@@ -821 +821 @@
 !CR: variation de qsat avec T en presence de glace ou non
 !initialisations
-           do i=1,klon
+           DO i=1,klon
               DT(i) = 0.
               n_i(i)=0
@@ -846 +846 @@
              ! Iteration pour condensation avec variation de qsat(T) 
              ! -----------------------------------------------------
-             do iter=1,iflag_fisrtilp_qsat+1
+             DO iter=1,iflag_fisrtilp_qsat+1
                 
-               do i=1,klon
+               DO i=1,klon
 !                 do while ((abs(DT(i)).gt.DDT0).OR.(n_i(i).EQ.0))
                  ! !! convergence = .TRUE. tant que l'on n'a pas converge !!
@@ -929 +929 @@
                  IF (.NOT. ice_thermo) THEN
                  ! --------------------------
-                 do i=1,klon
+                 DO i=1,klon
                  IF ((convergence(i).OR.(n_i(i)==0)).AND.lognormale(i)) THEN
                  qlbef(i)=max(0.,zqn(i)-zqs(i))
@@ -949 +949 @@
                  endif
 
-                 do i=1,klon
+                 DO i=1,klon
                  IF ((convergence(i).OR.(n_i(i)==0)).AND.lognormale(i)) THEN
                  IF (iflag_t_glace==0) THEN