Last change
on this file since 4744 was
4527,
checked in by idelkadi, 16 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.1 KB
|
Rev | Line | |
---|
[4527] | 1 | ! A.I avril 2023 |
---|
| 2 | |
---|
| 3 | subroutine ini_COSP(ref_liq_cosp0,ref_ice_cosp0,pctsrf_cosp0,zu10m_cosp0,zv10m_cosp0, & |
---|
| 4 | zxtsol_cosp0,zx_rh_cosp0,cldfra_cosp0,rnebcon_cosp0,flwc_cosp0, & |
---|
| 5 | fiwc_cosp0,prfl_cosp0,psfl_cosp0,pmflxr_cosp0,pmflxs_cosp0, & |
---|
| 6 | mr_ozone_cosp0,cldtau_cosp0,cldemi_cosp0,JrNt_cosp0) |
---|
| 7 | |
---|
| 8 | ! Routine pour initialiser les champs input pour Cosp au 1er appel de celui-ci |
---|
| 9 | ! Ce 1er appel sert uniquement a definir les axes verticaux pour les |
---|
| 10 | ! sortie Cosp |
---|
| 11 | |
---|
| 12 | use dimphy |
---|
| 13 | include "ini_COSP.h" |
---|
| 14 | |
---|
| 15 | ! Initialisations pour le 1er passage a Cosp |
---|
| 16 | ref_liq_cosp0=1. |
---|
| 17 | ref_ice_cosp0=1. |
---|
| 18 | pctsrf_cosp0=0.5 |
---|
| 19 | zu10m_cosp0=1. |
---|
| 20 | zv10m_cosp0=1. |
---|
| 21 | zxtsol_cosp0=288. |
---|
| 22 | zx_rh_cosp0=1. |
---|
| 23 | cldfra_cosp0=1. |
---|
| 24 | rnebcon_cosp0=0. |
---|
| 25 | flwc_cosp0=0. |
---|
| 26 | fiwc_cosp0=0. |
---|
| 27 | prfl_cosp0(:,1:klev)=0. |
---|
| 28 | psfl_cosp0(:,1:klev)=0. |
---|
| 29 | pmflxr_cosp0(:,1:klev)=0. |
---|
| 30 | pmflxs_cosp0(:,1:klev)=0. |
---|
| 31 | mr_ozone_cosp0=0. |
---|
| 32 | cldtau_cosp0=0. |
---|
| 33 | cldemi_cosp0=0. |
---|
| 34 | JrNt_cosp0=0. |
---|
| 35 | |
---|
| 36 | end subroutine ini_COSP |
---|
Note: See
TracBrowser
for help on using the repository browser.