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 |