Changeset 5158 for LMDZ6/branches/Amaury_dev/libf/phylmd/ini_COSP.h

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/ini_COSP.h (modified) (2 diffs)

LMDZ6/branches/Amaury_dev/libf/phylmd/ini_COSP.h

@@ -14 +14 @@
 !   COMMON/iniCOSP/                                                 &
 !            zx_rhcosp0(klon,klev),ref_liq_cosp0(klon,klev), ref_ice_cosp0(klon,klev), &
-!           zx_rh_cosp0(klon,klev), cldfra_cosp0(klon,klev), rnebcon_cosp0(klon,klev), &
+!        zx_rh_cosp0(klon,klev), cldfra_cosp0(klon,klev), rnebcon_cosp0(klon,klev), &
 !            fiwc_cosp0(klon,klev), flwc_cosp0(klon,klev), prfl_cosp0(klon,klev), &
 !            psfl_cosp0(klon,klev), pmflxr_cosp0(klon,klev), pmflxs_cosp0(klon,klev), &
@@ -20 +20 @@
 !            pctsrf_cosp0(klon),zu10m_cosp0(klon),zv10m_cosp0(klon), &
 !            zxtsol_cosp0(klon),JrNt_cosp0(klon)
-!       save /iniCOSP/
+!    save /iniCOSP/
 !!$OMP THREADPRIVATE(/iniCOSP/)
-        
+