source: LMDZ6/branches/contrails/libf/phylmd/ini_COSP.h @ 5450

Last change on this file since 5450 was 4527, checked in by idelkadi, 20 months ago

Initialization of the climatic fields for the 1st call to the COSP simulator. This, to solve the crash of LMDZ in debug mode when we activate COSP. This 1st call is only used to define the vertical axes for the COSP output files.
2 files added:

  • ini_COSP.h for variable declarations
  • ini_COSP.F90: for field initialization
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.