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

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

@@ -903 +903 @@
           DO k=1,kflev
              POZON_i(1:klon,k,:)=POZON(1:klon,kflev+1-k,:)
-!!!            POZON_i(1:klon,k)=POZON(1:klon,k)            !!! on laisse 1=sol et klev=top 
+!!!            POZON_i(1:klon,k)=POZON(1:klon,k)        !!! on laisse 1=sol et klev=top
              !          print *,'Juste avant RECMWFL: k tsol temp',k,tsol,t(1,k)
 !!!!!!! Modif MPL 6.01.09 avec RRTM, on passe de 5 a 6      
@@ -1153 +1153 @@
                 ENDIF
                 !          print *,'heat cool heat0 cool0 ',zheat(i,k),zcool(i,k),zheat0(i,k),zcool0(i,k)
-                !          ZFLUCUP_i(i,k)=ZFLUC_i(i,1,k)
-                !          ZFLUCDWN_i(i,k)=ZFLUC_i(i,2,k)          
+                !       ZFLUCUP_i(i,k)=ZFLUC_i(i,1,k)
+                !       ZFLUCDWN_i(i,k)=ZFLUC_i(i,2,k)
              ENDDO
           ENDDO