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

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

@@ -135 +135 @@
 
              !----Initialisations
-             do i=1,klon
+             DO i=1,klon
 !!jyg                proba_notrig(i)=1.
                 random_notrig(i)=1e6*ale_bl_stat(i)-int(1e6*ale_bl_stat(i))
@@ -156 +156 @@
              IF (iflag_trig_bl==1) THEN
                 !----Tirage al\'eatoire et calcul de ale_bl_trig
-                do i=1,klon
+                DO i=1,klon
                    IF ( (ale_bl_stat(i) > abs(cin(i))+1.e-10) )  THEN
                       proba_notrig(i)=proba_notrig(i)* &
@@ -177 +177 @@
 
              ELSE IF (iflag_trig_bl>=2) THEN
-                do i=1,klon
+                DO i=1,klon
                    IF ( (Ale_bl(i) > abs(cin(i))+1.e-10) )  THEN
                       proba_notrig(i)=proba_notrig(i)* &
@@ -208 +208 @@
           !-----------Statistical closure-----------
           IF (iflag_clos_bl==1) THEN
-             do i=1,klon
+             DO i=1,klon
                 !CR: alp probabiliste
                 IF (ale_bl_trig(i)>0.) THEN
@@ -217 +217 @@
           ELSE IF (iflag_clos_bl==2) THEN
              !CR: alp calculee dans thermcell_main
-             do i=1,klon
+             DO i=1,klon
                 alp_bl(i)=alp_bl_stat(i)
              enddo
@@ -244 +244 @@
         ! iflag_trig_bl value.
         IF (iflag_trig_bl==1) then         ! use ale_bl_stat (Rochetin computation)
-         do i=1,klon
+         DO i=1,klon
               ale_bl_ref(i)=ale_bl_stat(i)
          enddo
         ELSE IF (iflag_trig_bl>=2) then    ! use ale_bl (old computation)
-         do i=1,klon
+         DO i=1,klon
               ale_bl_ref(i)=Ale_bl(i)
          enddo
@@ -255 +255 @@
 
         !----Initializations and random number generation
-        do i=1,klon
+        DO i=1,klon
 !!jyg           proba_notrig(i)=1.
            random_notrig(i)=1e6*ale_bl_stat(i)-int(1e6*ale_bl_stat(i))
@@ -273 +273 @@
 
         !----alp_bl computation
-        do i=1,klon
+        DO i=1,klon
            IF ( (ale_bl_ref(i) > abs(cin(i))+1.e-10) )  THEN
               birth_number = n2(i)*exp(-strig(i)/s2(i))
@@ -292 +292 @@
 
         !----ale_bl_trig computation
-         do i=1,klon
+         DO i=1,klon
            IF (random_notrig(i) >= proba_notrig(i)) THEN
               ale_bl_trig(i)=ale_bl_ref(i)
@@ -324 +324 @@
                 WRITE(lunout,*)'Couplage Thermiques/Emanuel seulement si T<0'
              ENDIF
-             do i=1,klon
+             DO i=1,klon
                 IF (t_seri(i,lmax_th(i))>273.) THEN
                    Ale_bl(i)=0.