source: LMDZ6/branches/LMDZ_ECRad/libf/phylmd/ini_COSP.h @ 5451

Last change on this file since 5451 was 4727, checked in by idelkadi, 15 months ago

Merged trunk changes -r4488:4726 LMDZ_ECRad branch
File size: 1.3 KB
Line 
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), &
16!           zx_rh_cosp0(klon,klev), cldfra_cosp0(klon,klev), rnebcon_cosp0(klon,klev), &
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)
22!       save /iniCOSP/
23!!$OMP THREADPRIVATE(/iniCOSP/)
24       
Note: See TracBrowser for help on using the repository browser.