source: LMDZ6/trunk/libf/phylmd/clesphys.h @ 4034

Last change on this file since 4034 was 3999, checked in by evignon, 3 years ago

commission de la nouvelle routine de condensation
grande echelle simplifiee (lscp, version epuree de fistilp)
et du schema de nuages de phase mixte (en developpement)

La routine lscp n'est active que sous flag
ok_new_lscp=y

  • Property copyright set to
    Name of program: LMDZ
    Creation date: 1984
    Version: LMDZ5
    License: CeCILL version 2
    Holder: Laboratoire de m\'et\'eorologie dynamique, CNRS, UMR 8539
    See the license file in the root directory
  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 6.9 KB
Line 
1! $Id: clesphys.h 3999 2021-11-05 11:40:08Z lguez $
2!
3!  ATTENTION!!!!: ce fichier include est compatible format fixe/format libre
4!                 veillez \`a n'utiliser que des ! pour les commentaires
5!                 et \`a bien positionner les & des lignes de continuation
6!                 (les placer en colonne 6 et en colonne 73)
7!
8!..include cles_phys.h
9!
10       INTEGER iflag_cycle_diurne
11       LOGICAL soil_model,new_oliq,ok_orodr,ok_orolf
12       LOGICAL ok_limitvrai
13       LOGICAL ok_all_xml
14       LOGICAL ok_lwoff
15       INTEGER nbapp_rad, iflag_con, nbapp_cv, nbapp_wk, iflag_ener_conserv
16       REAL co2_ppm, co2_ppm0, solaire
17!FC
18       REAL Cd_frein
19       LOGICAL ok_suntime_rrtm
20       REAL(kind=8) RCO2, RCH4, RN2O, RCFC11, RCFC12 
21       REAL(kind=8) RCO2_act, RCH4_act, RN2O_act, RCFC11_act, RCFC12_act 
22       REAL(kind=8) CH4_ppb, N2O_ppb, CFC11_ppt, CFC12_ppt
23!IM ajout CFMIP2/CMIP5
24       REAL(kind=8) RCO2_per,RCH4_per,RN2O_per,RCFC11_per,RCFC12_per
25       REAL(kind=8) CH4_ppb_per,N2O_ppb_per,CFC11_ppt_per,CFC12_ppt_per
26
27!OM ---> correction du bilan d'eau global
28!OM Correction sur precip KE
29       REAL cvl_corr
30!OM Fonte calotte dans bilan eau
31       LOGICAL ok_lic_melt
32!OB Depot de vapeur d eau sur la calotte pour le bilan eau
33       LOGICAL ok_lic_cond
34
35!IM simulateur ISCCP
36       INTEGER top_height, overlap
37!IM seuils cdrm, cdrh
38       REAL cdmmax, cdhmax
39!IM param. stabilite s/ terres et en dehors
40       REAL ksta, ksta_ter, f_ri_cd_min
41!IM ok_kzmin : clef calcul Kzmin dans la CL de surface cf FH
42       LOGICAL ok_kzmin
43!IM, MAFo fmagic, pmagic : parametres - additionnel et multiplicatif - 
44!                          pour regler l albedo sur ocean
45       REAL pbl_lmixmin_alpha
46       REAL fmagic, pmagic
47! Hauteur (imposee) du contenu en eau du sol
48           REAL qsol0,albsno0,evap0
49! Frottement au sol (Cdrag)
50       Real f_cdrag_ter,f_cdrag_oce
51       REAL min_wind_speed,f_gust_wk,f_gust_bl,f_qsat_oce,f_z0qh_oce
52       REAL z0m_seaice,z0h_seaice
53       INTEGER iflag_gusts,iflag_z0_oce
54
55! Rugoro
56       Real f_rugoro,z0min
57
58! tau_gl : constante de rappel de la temperature a la surface de la glace
59       REAL tau_gl
60
61!IM lev_histhf  : niveau sorties 6h
62!IM lev_histday : niveau sorties journalieres
63!IM lev_histmth : niveau sorties mensuelles
64!IM lev_histdayNMC : on peut sortir soit sur 8 (comme AR5) ou bien
65!                    sur 17 niveaux de pression
66       INTEGER lev_histhf, lev_histday, lev_histmth
67       INTEGER lev_histdayNMC
68       Integer lev_histins, lev_histLES 
69!IM ok_histNMC  : sortie fichiers niveaux de pression (histmthNMC, histdayNMC, histhfNMC)
70!IM freq_outNMC : frequences de sortie fichiers niveaux de pression (histmthNMC, histdayNMC, histhfNMC)
71!IM freq_calNMC : frequences de calcul fis. hist*NMC.nc
72       LOGICAL ok_histNMC(3)
73       INTEGER levout_histNMC(3)
74       REAL freq_outNMC(3) , freq_calNMC(3)
75       CHARACTER(len=4) type_run
76! aer_type: pour utiliser un fichier constant dans readaerosol
77       CHARACTER(len=8) :: aer_type
78       LOGICAL ok_regdyn
79       REAL lonmin_ins, lonmax_ins, latmin_ins, latmax_ins
80       REAL ecrit_ins, ecrit_hf, ecrit_day
81       REAL ecrit_mth, ecrit_tra, ecrit_reg
82       REAL ecrit_LES
83       REAL freq_ISCCP, ecrit_ISCCP
84       REAL freq_COSP, freq_AIRS
85       LOGICAL :: ok_cosp,ok_mensuelCOSP,ok_journeCOSP,ok_hfCOSP
86       LOGICAL :: ok_airs
87       INTEGER :: ip_ebil_phy, iflag_rrtm, iflag_ice_thermo, NSW, iflag_albedo
88       LOGICAL :: ok_chlorophyll
89       LOGICAL :: ok_strato
90       LOGICAL :: ok_hines, ok_gwd_rando
91       LOGICAL :: ok_qch4
92       LOGICAL :: ok_conserv_q
93       LOGICAL :: adjust_tropopause
94       LOGICAL :: ok_daily_climoz
95       LOGICAL :: ok_new_lscp
96! flag to bypass or not the phytrac module
97       INTEGER :: iflag_phytrac
98
99       COMMON/clesphys/                                                 &
100! REAL FIRST
101     &       co2_ppm, solaire                                           &
102     &     , RCO2, RCH4, RN2O, RCFC11, RCFC12                           &
103     &     , RCO2_act, RCH4_act, RN2O_act, RCFC11_act, RCFC12_act       &
104     &     , RCO2_per, RCH4_per, RN2O_per, RCFC11_per, RCFC12_per       &
105     &     , CH4_ppb, N2O_ppb, CFC11_ppt, CFC12_ppt                     &
106     &     , CH4_ppb_per, N2O_ppb_per, CFC11_ppt_per, CFC12_ppt_per     &
107     &     , cdmmax,cdhmax,ksta,ksta_ter,f_ri_cd_min,pbl_lmixmin_alpha  &
108     &     , fmagic, pmagic                                             &
109     &     , f_cdrag_ter,f_cdrag_oce,f_rugoro,z0min,tau_gl              &
110     &     , min_wind_speed,f_gust_wk,f_gust_bl,f_qsat_oce,f_z0qh_oce   &
111     &     , z0m_seaice,z0h_seaice                                      &
112     &     , freq_outNMC, freq_calNMC                                   &
113     &     , lonmin_ins, lonmax_ins, latmin_ins, latmax_ins             &
114     &     , freq_ISCCP, ecrit_ISCCP, freq_COSP, freq_AIRS              &
115     &     , cvl_corr                                                   &
116     &     , qsol0,albsno0,evap0                                        &
117     &     , co2_ppm0                                                   &
118!FC
119     &     , Cd_frein                                                   &
120     &     , ecrit_LES                                                  &
121     &     , ecrit_ins, ecrit_hf, ecrit_day                             &
122     &     , ecrit_mth, ecrit_tra, ecrit_reg                            &
123! THEN INTEGER AND LOGICALS
124     &     , top_height                                                 &
125     &     , iflag_cycle_diurne, soil_model, new_oliq                         &
126     &     , ok_orodr, ok_orolf, ok_limitvrai, nbapp_rad                &
127     &     , iflag_con, nbapp_cv, nbapp_wk                              &
128     &     , iflag_ener_conserv                                         &
129     &     , ok_suntime_rrtm                                            & 
130     &     , overlap                                                    &
131     &     , ok_kzmin                                                   &
132     &     , lev_histhf, lev_histday, lev_histmth                       &
133     &     , lev_histins, lev_histLES, lev_histdayNMC, levout_histNMC   &
134     &     , ok_histNMC                                                 &
135     &     , type_run, ok_regdyn, ok_cosp, ok_airs                      &
136     &     , ok_mensuelCOSP,ok_journeCOSP,ok_hfCOSP                     &
137     &     , ip_ebil_phy                                                &
138     &     , iflag_gusts ,iflag_z0_oce                                  &
139     &     , ok_lic_melt, ok_lic_cond, aer_type                         &
140     &     , iflag_rrtm, ok_strato,ok_hines, ok_qch4                    &
141     &     , iflag_ice_thermo, ok_gwd_rando, NSW, iflag_albedo          &
142     &     , ok_chlorophyll,ok_conserv_q, adjust_tropopause             &
143     &     , ok_daily_climoz, ok_all_xml, ok_lwoff                      &
144     &     , iflag_phytrac, ok_new_lscp
145     
146       save /clesphys/
147!$OMP THREADPRIVATE(/clesphys/)
Note: See TracBrowser for help on using the repository browser.