source: LMDZ5/trunk/libf/phylmd/clesphys.h @ 2946

Last change on this file since 2946 was 2946, checked in by oboucher, 7 years ago

Put under the ok_lic_cond flag the option of depositing water vapour
onto snow, especially over ice sheets (lic). The default for the flag is
FALSE in order to keep backward compatibility, but should be turned to TRUE
in order to close the water budget. Tested in CM6.0.11.
  • 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.6 KB
Line 
1
2!
3! $Id: clesphys.h 2946 2017-07-12 18:28:32Z oboucher $
4!
5!  ATTENTION!!!!: ce fichier include est compatible format fixe/format libre
6!                 veillez \`a n'utiliser que des ! pour les commentaires
7!                 et \`a bien positionner les & des lignes de continuation
8!                 (les placer en colonne 6 et en colonne 73)
9!
10!..include cles_phys.h
11!
12       LOGICAL cycle_diurne,soil_model,new_oliq,ok_orodr,ok_orolf
13       LOGICAL ok_limitvrai
14       LOGICAL ok_all_xml
15       INTEGER nbapp_rad, iflag_con, nbapp_cv, nbapp_wk, iflag_ener_conserv
16       REAL co2_ppm, co2_ppm0, solaire
17       LOGICAL ok_suntime_rrtm
18       REAL(kind=8) RCO2, RCH4, RN2O, RCFC11, RCFC12 
19       REAL(kind=8) RCO2_act, RCH4_act, RN2O_act, RCFC11_act, RCFC12_act 
20       REAL(kind=8) CH4_ppb, N2O_ppb, CFC11_ppt, CFC12_ppt
21!IM ajout CFMIP2/CMIP5
22       LOGICAL ok_4xCO2atm
23       REAL(kind=8) RCO2_per,RCH4_per,RN2O_per,RCFC11_per,RCFC12_per
24       REAL(kind=8) CH4_ppb_per,N2O_ppb_per,CFC11_ppt_per,CFC12_ppt_per
25
26!OM ---> correction du bilan d'eau global
27!OM Correction sur precip KE
28       REAL cvl_corr
29!OM Fonte calotte dans bilan eau
30       LOGICAL ok_lic_melt
31!OB Depot de vapeur d eau sur la calotte pour le bilan eau
32       LOGICAL ok_lic_cond
33
34!IM simulateur ISCCP
35       INTEGER top_height, overlap
36!IM seuils cdrm, cdrh
37       REAL cdmmax, cdhmax
38!IM param. stabilite s/ terres et en dehors
39       REAL ksta, ksta_ter, f_ri_cd_min
40!IM ok_kzmin : clef calcul Kzmin dans la CL de surface cf FH
41       LOGICAL ok_kzmin
42!IM, MAFo fmagic, pmagic : parametres - additionnel et multiplicatif - 
43!                          pour regler l albedo sur ocean
44       REAL pbl_lmixmin_alpha
45       REAL fmagic, pmagic
46! Hauteur (imposee) du contenu en eau du sol
47           REAL qsol0,albsno0,evap0
48! Frottement au sol (Cdrag)
49       Real f_cdrag_ter,f_cdrag_oce
50       REAL min_wind_speed,f_gust_wk,f_gust_bl,f_qsat_oce,f_z0qh_oce
51       REAL z0m_seaice,z0h_seaice
52       INTEGER iflag_gusts,iflag_z0_oce
53
54! Rugoro
55       Real f_rugoro,z0min
56
57!IM lev_histhf  : niveau sorties 6h
58!IM lev_histday : niveau sorties journalieres
59!IM lev_histmth : niveau sorties mensuelles
60!IM lev_histdayNMC : on peut sortir soit sur 8 (comme AR5) ou bien
61!                    sur 17 niveaux de pression
62       INTEGER lev_histhf, lev_histday, lev_histmth
63       INTEGER lev_histdayNMC
64       Integer lev_histins, lev_histLES 
65!IM ok_histNMC  : sortie fichiers niveaux de pression (histmthNMC, histdayNMC, histhfNMC)
66!IM freq_outNMC : frequences de sortie fichiers niveaux de pression (histmthNMC, histdayNMC, histhfNMC)
67!IM freq_calNMC : frequences de calcul fis. hist*NMC.nc
68!IM pasphys : pas de temps de physique (secondes)
69       REAL pasphys
70       LOGICAL ok_histNMC(3)
71       INTEGER levout_histNMC(3)
72       REAL freq_outNMC(3) , freq_calNMC(3)
73       CHARACTER(len=4) type_run
74! aer_type: pour utiliser un fichier constant dans readaerosol
75       CHARACTER(len=8) :: aer_type
76       LOGICAL ok_regdyn
77       REAL lonmin_ins, lonmax_ins, latmin_ins, latmax_ins
78       REAL ecrit_ins, ecrit_hf, ecrit_day
79       REAL ecrit_mth, ecrit_tra, ecrit_reg
80       REAL ecrit_LES
81       REAL freq_ISCCP, ecrit_ISCCP
82       REAL freq_COSP, freq_AIRS
83       LOGICAL :: ok_cosp,ok_mensuelCOSP,ok_journeCOSP,ok_hfCOSP
84       LOGICAL :: ok_airs
85       INTEGER :: ip_ebil_phy, iflag_rrtm, iflag_ice_thermo, NSW, iflag_albedo
86       LOGICAL :: ok_chlorophyll
87       LOGICAL :: ok_strato
88       LOGICAL :: ok_hines, ok_gwd_rando
89       LOGICAL :: ok_qch4
90       LOGICAL :: ok_conserv_q
91       LOGICAL :: adjust_tropopause
92       LOGICAL :: ok_daily_climoz
93
94       COMMON/clesphys/                                                 &
95! REAL FIRST
96     &       co2_ppm, solaire                                           &
97     &     , RCO2, RCH4, RN2O, RCFC11, RCFC12                           &
98     &     , RCO2_act, RCH4_act, RN2O_act, RCFC11_act, RCFC12_act       &
99     &     , RCO2_per, RCH4_per, RN2O_per, RCFC11_per, RCFC12_per       &
100     &     , CH4_ppb, N2O_ppb, CFC11_ppt, CFC12_ppt                     &
101     &     , CH4_ppb_per, N2O_ppb_per, CFC11_ppt_per, CFC12_ppt_per     &
102     &     , cdmmax,cdhmax,ksta,ksta_ter,f_ri_cd_min,pbl_lmixmin_alpha  &
103     &     , fmagic, pmagic                                             &
104     &     , f_cdrag_ter,f_cdrag_oce,f_rugoro,z0min                     &
105     &     , min_wind_speed,f_gust_wk,f_gust_bl,f_qsat_oce,f_z0qh_oce   &
106     &     , z0m_seaice,z0h_seaice                                      &
107     &     , pasphys            , freq_outNMC, freq_calNMC              &
108     &     , lonmin_ins, lonmax_ins, latmin_ins, latmax_ins             &
109     &     , freq_ISCCP, ecrit_ISCCP, freq_COSP, freq_AIRS              &
110     &     , cvl_corr                                                   &
111     &     , qsol0,albsno0,evap0                                        &
112     &     , co2_ppm0                                                   &
113     &     , ecrit_LES                                                  &
114     &     , ecrit_ins, ecrit_hf, ecrit_day                             &
115     &     , ecrit_mth, ecrit_tra, ecrit_reg                            &
116! THEN INTEGER AND LOGICALS
117     &     , top_height                                                 &
118     &     , cycle_diurne, soil_model, new_oliq                         &
119     &     , ok_orodr, ok_orolf, ok_limitvrai, nbapp_rad                &
120     &     , iflag_con, nbapp_cv, nbapp_wk                              &
121     &     , iflag_ener_conserv                                         &
122     &     , ok_4xCO2atm                                                & 
123     &     , ok_suntime_rrtm                                            & 
124     &     , overlap                                                    &
125     &     , ok_kzmin                                                   &
126     &     , lev_histhf, lev_histday, lev_histmth                       &
127     &     , lev_histins, lev_histLES, lev_histdayNMC, levout_histNMC   &
128     &     , ok_histNMC                                                 &
129     &     , type_run, ok_regdyn, ok_cosp, ok_airs                      &
130     &     , ok_mensuelCOSP,ok_journeCOSP,ok_hfCOSP                     &
131     &     , ip_ebil_phy                                                &
132     &     , iflag_gusts ,iflag_z0_oce                                  &
133     &     , ok_lic_melt, ok_lic_cond, aer_type                         &
134     &     , iflag_rrtm, ok_strato,ok_hines, ok_qch4                    &
135     &     , iflag_ice_thermo, ok_gwd_rando, NSW, iflag_albedo          &
136     &     , ok_chlorophyll,ok_conserv_q, adjust_tropopause             &
137     &     , ok_daily_climoz, ok_all_xml
138     
139       save /clesphys/
140!$OMP THREADPRIVATE(/clesphys/)
Note: See TracBrowser for help on using the repository browser.