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

Last change on this file since 2172 was 2136, checked in by lguez, 10 years ago

Add the module from ecmwf model for water production by methane oxydation
and photolysis. Activated if def file option: ok_qch4=y.
LG, D.Cugnet

  • 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: 5.7 KB
Line 
1
2!
3! $Id: clesphys.h 2136 2014-10-27 17:47:03Z jescribano $
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,iflag_ener_conserv
16       REAL co2_ppm, co2_ppm0, solaire
17       REAL(kind=8) RCO2, RCH4, RN2O, RCFC11, RCFC12 
18       REAL(kind=8) RCO2_act, RCH4_act, RN2O_act, RCFC11_act, RCFC12_act 
19       REAL(kind=8) CH4_ppb, N2O_ppb, CFC11_ppt, CFC12_ppt
20!IM ajout CFMIP2/CMIP5
21       LOGICAL ok_4xCO2atm
22       REAL(kind=8) RCO2_per,RCH4_per,RN2O_per,RCFC11_per,RCFC12_per
23       REAL(kind=8) CH4_ppb_per,N2O_ppb_per,CFC11_ppt_per,CFC12_ppt_per
24
25!OM ---> correction du bilan d'eau global
26!OM Correction sur precip KE
27       REAL cvl_corr
28!OM Fonte calotte dans bilan eau
29       LOGICAL ok_lic_melt
30
31!IM simulateur ISCCP
32       INTEGER top_height, overlap
33!IM seuils cdrm, cdrh
34       REAL cdmmax, cdhmax
35!IM param. stabilite s/ terres et en dehors
36       REAL ksta, ksta_ter, f_ri_cd_min
37!IM ok_kzmin : clef calcul Kzmin dans la CL de surface cf FH
38       LOGICAL ok_kzmin
39!IM, MAFo fmagic, pmagic : parametres - additionnel et multiplicatif - 
40!                          pour regler l albedo sur ocean
41       REAL fmagic, pmagic
42! Hauteur (imposee) du contenu en eau du sol
43           REAL qsol0,albsno0,evap0
44! Frottement au sol (Cdrag)
45       Real f_cdrag_ter,f_cdrag_oce
46! Rugoro
47       Real f_rugoro
48
49!IM lev_histhf  : niveau sorties 6h
50!IM lev_histday : niveau sorties journalieres
51!IM lev_histmth : niveau sorties mensuelles
52!IM lev_histdayNMC : on peut sortir soit sur 8 (comme AR5) ou bien
53!                    sur 17 niveaux de pression
54       INTEGER lev_histhf, lev_histday, lev_histmth
55       INTEGER lev_histdayNMC
56       Integer lev_histins, lev_histLES 
57!IM ok_histNMC  : sortie fichiers niveaux de pression (histmthNMC, histdayNMC, histhfNMC)
58!IM freq_outNMC : frequences de sortie fichiers niveaux de pression (histmthNMC, histdayNMC, histhfNMC)
59!IM freq_calNMC : frequences de calcul fis. hist*NMC.nc
60!IM pasphys : pas de temps de physique (secondes)
61       REAL pasphys
62       LOGICAL ok_histNMC(3)
63       INTEGER levout_histNMC(3)
64       REAL freq_outNMC(3) , freq_calNMC(3)
65       CHARACTER(len=4) type_run
66! aer_type: pour utiliser un fichier constant dans readaerosol
67       CHARACTER(len=8) :: aer_type
68       LOGICAL ok_regdyn
69       REAL lonmin_ins, lonmax_ins, latmin_ins, latmax_ins
70       REAL ecrit_ins, ecrit_hf, ecrit_day
71       REAL ecrit_mth, ecrit_tra, ecrit_reg
72       REAL ecrit_LES
73       REAL freq_ISCCP, ecrit_ISCCP
74       REAL freq_COSP
75       LOGICAL :: ok_cosp,ok_mensuelCOSP,ok_journeCOSP,ok_hfCOSP
76       INTEGER :: ip_ebil_phy, iflag_rrtm, iflag_ice_thermo,NSW
77       LOGICAL :: ok_strato
78       LOGICAL :: ok_hines, ok_gwd_rando
79       LOGICAL :: ok_qch4
80       LOGICAL :: ok_conserv_q
81
82       COMMON/clesphys/                                                 &
83! REAL FIRST
84     &       co2_ppm, solaire                                           &
85     &     , RCO2, RCH4, RN2O, RCFC11, RCFC12                           &
86     &     , RCO2_act, RCH4_act, RN2O_act, RCFC11_act, RCFC12_act       &
87     &     , RCO2_per, RCH4_per, RN2O_per, RCFC11_per, RCFC12_per       &
88     &     , CH4_ppb, N2O_ppb, CFC11_ppt, CFC12_ppt                     &
89     &     , CH4_ppb_per, N2O_ppb_per, CFC11_ppt_per, CFC12_ppt_per     &
90     &     , cdmmax, cdhmax, ksta, ksta_ter, f_ri_cd_min                &
91     &     , fmagic, pmagic                                             &
92     &     , f_cdrag_ter,f_cdrag_oce,f_rugoro                           &
93     &     , pasphys            , freq_outNMC, freq_calNMC              &
94     &     , lonmin_ins, lonmax_ins, latmin_ins, latmax_ins             &
95     &     , freq_ISCCP, ecrit_ISCCP, freq_COSP                         &
96     &     , cvl_corr                                                   &
97     &     , qsol0,albsno0,evap0                                        &
98     &     , co2_ppm0                                                   &
99     &     , ecrit_LES                                                  &
100     &     , ecrit_ins, ecrit_hf, ecrit_day                             &
101     &     , ecrit_mth, ecrit_tra, ecrit_reg                            &
102! THEN INTEGER AND LOGICALS
103     &     , top_height                                                 &
104     &     , cycle_diurne, soil_model, new_oliq                         &
105     &     ,ok_orodr, ok_orolf, ok_limitvrai, nbapp_rad, iflag_con      &
106     &     , iflag_ener_conserv                                         &
107     &     , ok_4xCO2atm                                                & 
108     &     , overlap                                                    &
109     &     , ok_kzmin                                                   &
110     &     , lev_histhf, lev_histday, lev_histmth                       &
111     &     , lev_histins, lev_histLES, lev_histdayNMC, levout_histNMC   &
112     &     , ok_histNMC                                                 &
113     &     , type_run, ok_regdyn, ok_cosp                               &
114     &     , ok_mensuelCOSP,ok_journeCOSP,ok_hfCOSP                     &
115     &     , ip_ebil_phy                                                &
116     &     , ok_lic_melt,           aer_type                            &
117     &     , iflag_rrtm, ok_strato,ok_hines, ok_qch4                    &
118     &     , iflag_ice_thermo, ok_gwd_rando, NSW                        &
119     &     , ok_conserv_q, ok_all_xml
120     
121       save /clesphys/
122!$OMP THREADPRIVATE(/clesphys/)
123 
Note: See TracBrowser for help on using the repository browser.