source: LMDZ6/branches/contrails/libf/phylmd/ini_COSP.f90 @ 5449

Last change on this file since 5449 was 5268, checked in by abarral, 2 months ago

.f90 <-> .F90 depending on cpp key use

File size: 1.1 KB
Line 
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.