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

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

@@ -122 +122 @@
 ! var tmp tests
   REAL                           :: conserv
-  real                           :: conservMA
+  REAL                           :: conservMA
 ! JE SPLA adaptation
 
@@ -190 +190 @@
 ! ======================================================
 !initialisation
-  do j=1,klev
-   do i=1,klon
+  DO j=1,klev
+   DO i=1,klon
      imp(i,j)=0.
    enddo
@@ -381 +381 @@
 ! Par la suite, I est tout le temps multiplié par sig_d pour avoir l'impaction sur la surface de la maille
 ! on le néglige ici pour simplifier le code
-  do j=1,klev-1
-   do i=1,klon
+  DO j=1,klev-1
+   DO i=1,klon
 !JE    imp(i,j) = coefcoli*0.75e-3/rdrop *&
 !JE             0.5*(pmflxr(i,j+1)+pmflxs(i,j+1)+pmflxr(i,j)+pmflxs(i,j))