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

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

@@ -1055 +1055 @@
           ! c        PRINT*, 'd_sigmaw(i),sigmaw(i),gfl(i),Cstar(i),wape(i),
           ! c     $  death_rate(i),ktop(i),kupper(i)',
-          ! c     $              d_sigmaw(i),sigmaw(i),gfl(i),Cstar(i),wape(i),
+          ! c     $             d_sigmaw(i),sigmaw(i),gfl(i),Cstar(i),wape(i),
           ! c     $  death_rate(i),ktop(i),kupper(i)
     
@@ -1169 +1169 @@
     ! c      DO i=1,klon
     ! c        PRINT*,'Pente entre 0 et kupper (reference)'
-    ! c     $           ,omg(i,kupper(i)+1)/(pupper(i)-ph(i,1))
+    ! c     $       ,omg(i,kupper(i)+1)/(pupper(i)-ph(i,1))
     ! c        PRINT*,'Pente entre ktop et kupper'
-    ! c     $   ,(omg(i,kupper(i)+1)-omgtop(i))/(pupper(i)-ptop(i))
+    ! c     $      ,(omg(i,kupper(i)+1)-omgtop(i))/(pupper(i)-ptop(i))
     ! c      ENDDO
     ! c
@@ -2660 +2660 @@
  
     ! On se limite ?? des poches avec integrale dT * dp < -wk_int_delta_t_min
-    do i=1,klon
+    DO i=1,klon
           IF (int_dth(i,k_ptop_provis(i)) > -wk_int_delta_t_min .OR. k_ptop_provis(i)==1) THEN
           !if (1==0) THEN
@@ -2740 +2740 @@
 !if (iflag_wk_new_ptop==2) THEN
 IF (iflag_wk_new_ptop>0) THEN 
-   do i=1,klon
+   DO i=1,klon
       ptop(i)=ptop1(i)
       ktop(i)=ktop1(i)