source: LMDZ6/branches/Amaury_dev/libf/phylmd/ini_COSP.h @ 5411

Last change on this file since 5411 was 5158, checked in by abarral, 5 months ago

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 size: 1.3 KB
RevLine 
[4527]1! A.I mars 2023
2
3! Declaration des champs inputs a initialiser pour le simulateur d'observable satellite  COSP
4
5    REAL :: zx_rhcosp0(klon,klev), &
6            ref_liq_cosp0(klon,klev), ref_ice_cosp0(klon,klev), &
7            zx_rh_cosp0(klon,klev), cldfra_cosp0(klon,klev), rnebcon_cosp0(klon,klev), &
8            fiwc_cosp0(klon,klev), flwc_cosp0(klon,klev), prfl_cosp0(klon,klev), &
9            psfl_cosp0(klon,klev), pmflxr_cosp0(klon,klev), pmflxs_cosp0(klon,klev), &
10            mr_ozone_cosp0(klon,klev), cldtau_cosp0(klon,klev), cldemi_cosp0(klon,klev), &
11            pctsrf_cosp0(klon),zu10m_cosp0(klon),zv10m_cosp0(klon), &
12            zxtsol_cosp0(klon),JrNt_cosp0(klon)
13
14!   COMMON/iniCOSP/                                                 &
15!            zx_rhcosp0(klon,klev),ref_liq_cosp0(klon,klev), ref_ice_cosp0(klon,klev), &
[5158]16!        zx_rh_cosp0(klon,klev), cldfra_cosp0(klon,klev), rnebcon_cosp0(klon,klev), &
[4527]17!            fiwc_cosp0(klon,klev), flwc_cosp0(klon,klev), prfl_cosp0(klon,klev), &
18!            psfl_cosp0(klon,klev), pmflxr_cosp0(klon,klev), pmflxs_cosp0(klon,klev), &
19!            mr_ozone_cosp0(klon,klev), cldtau_cosp0(klon,klev), cldemi_cosp0(klon,klev), &
20!            pctsrf_cosp0(klon),zu10m_cosp0(klon),zv10m_cosp0(klon), &
21!            zxtsol_cosp0(klon),JrNt_cosp0(klon)
[5158]22!    save /iniCOSP/
[4527]23!!$OMP THREADPRIVATE(/iniCOSP/)
[5158]24
Note: See TracBrowser for help on using the repository browser.