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

Last change on this file since 2306 was 2254, checked in by fhourdin, 10 years ago

Modification du calcul des flux air/mer
1) Introduction d'un facteur f_qsat_oce=0.98 devant qsat dans le calcul
de l'évaporation sur océan pour tenir compte de la moindre évaporation
de l'eau salée.
2) Introduction d'une différentiation entre z0 pour le sensible, z0h,
et le latent, z0q, imposé constant z0q=f_z0qh_oce*z0h

Modification of air/sea fluxes computation
1) Introduction of a correcting factor f_qsat_oce=0.98 on qsat
to account for the weaker evaporation of salty water.
2) Introduction of z0q=f_z0qh_oce*z0h

  • 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.1 KB
Line 
1
2!
3! $Id: clesphys.h 2254 2015-04-03 10:16:36Z jyg $
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       REAL min_wind_speed,f_gust_wk,f_gust_bl,f_qsat_oce,f_z0qh_oce
47       REAL z0m_seaice,z0h_seaice
48       INTEGER iflag_gusts,iflag_z0_oce
49
50! Rugoro
51       Real f_rugoro,z0min
52
53!IM lev_histhf  : niveau sorties 6h
54!IM lev_histday : niveau sorties journalieres
55!IM lev_histmth : niveau sorties mensuelles
56!IM lev_histdayNMC : on peut sortir soit sur 8 (comme AR5) ou bien
57!                    sur 17 niveaux de pression
58       INTEGER lev_histhf, lev_histday, lev_histmth
59       INTEGER lev_histdayNMC
60       Integer lev_histins, lev_histLES 
61!IM ok_histNMC  : sortie fichiers niveaux de pression (histmthNMC, histdayNMC, histhfNMC)
62!IM freq_outNMC : frequences de sortie fichiers niveaux de pression (histmthNMC, histdayNMC, histhfNMC)
63!IM freq_calNMC : frequences de calcul fis. hist*NMC.nc
64!IM pasphys : pas de temps de physique (secondes)
65       REAL pasphys
66       LOGICAL ok_histNMC(3)
67       INTEGER levout_histNMC(3)
68       REAL freq_outNMC(3) , freq_calNMC(3)
69       CHARACTER(len=4) type_run
70! aer_type: pour utiliser un fichier constant dans readaerosol
71       CHARACTER(len=8) :: aer_type
72       LOGICAL ok_regdyn
73       REAL lonmin_ins, lonmax_ins, latmin_ins, latmax_ins
74       REAL ecrit_ins, ecrit_hf, ecrit_day
75       REAL ecrit_mth, ecrit_tra, ecrit_reg
76       REAL ecrit_LES
77       REAL freq_ISCCP, ecrit_ISCCP
78       REAL freq_COSP
79       LOGICAL :: ok_cosp,ok_mensuelCOSP,ok_journeCOSP,ok_hfCOSP
80       INTEGER :: ip_ebil_phy, iflag_rrtm, iflag_ice_thermo, NSW, iflag_albedo
81       LOGICAL :: ok_chlorophyll
82       LOGICAL :: ok_strato
83       LOGICAL :: ok_hines, ok_gwd_rando
84       LOGICAL :: ok_qch4
85       LOGICAL :: ok_conserv_q
86
87       COMMON/clesphys/                                                 &
88! REAL FIRST
89     &       co2_ppm, solaire                                           &
90     &     , RCO2, RCH4, RN2O, RCFC11, RCFC12                           &
91     &     , RCO2_act, RCH4_act, RN2O_act, RCFC11_act, RCFC12_act       &
92     &     , RCO2_per, RCH4_per, RN2O_per, RCFC11_per, RCFC12_per       &
93     &     , CH4_ppb, N2O_ppb, CFC11_ppt, CFC12_ppt                     &
94     &     , CH4_ppb_per, N2O_ppb_per, CFC11_ppt_per, CFC12_ppt_per     &
95     &     , cdmmax, cdhmax, ksta, ksta_ter, f_ri_cd_min                &
96     &     , fmagic, pmagic                                             &
97     &     , f_cdrag_ter,f_cdrag_oce,f_rugoro,z0min                     &
98     &     , min_wind_speed,f_gust_wk,f_gust_bl,f_qsat_oce,f_z0qh_oce   &
99     &     , z0m_seaice,z0h_seaice                                      &
100     &     , pasphys            , freq_outNMC, freq_calNMC              &
101     &     , lonmin_ins, lonmax_ins, latmin_ins, latmax_ins             &
102     &     , freq_ISCCP, ecrit_ISCCP, freq_COSP                         &
103     &     , cvl_corr                                                   &
104     &     , qsol0,albsno0,evap0                                        &
105     &     , co2_ppm0                                                   &
106     &     , ecrit_LES                                                  &
107     &     , ecrit_ins, ecrit_hf, ecrit_day                             &
108     &     , ecrit_mth, ecrit_tra, ecrit_reg                            &
109! THEN INTEGER AND LOGICALS
110     &     , top_height                                                 &
111     &     , cycle_diurne, soil_model, new_oliq                         &
112     &     ,ok_orodr, ok_orolf, ok_limitvrai, nbapp_rad, iflag_con      &
113     &     , iflag_ener_conserv                                         &
114     &     , ok_4xCO2atm                                                & 
115     &     , overlap                                                    &
116     &     , ok_kzmin                                                   &
117     &     , lev_histhf, lev_histday, lev_histmth                       &
118     &     , lev_histins, lev_histLES, lev_histdayNMC, levout_histNMC   &
119     &     , ok_histNMC                                                 &
120     &     , type_run, ok_regdyn, ok_cosp                               &
121     &     , ok_mensuelCOSP,ok_journeCOSP,ok_hfCOSP                     &
122     &     , ip_ebil_phy                                                &
123     &     , iflag_gusts ,iflag_z0_oce                                  &
124     &     , ok_lic_melt,           aer_type                            &
125     &     , iflag_rrtm, ok_strato,ok_hines, ok_qch4                    &
126     &     , iflag_ice_thermo, ok_gwd_rando, NSW, iflag_albedo          &
127     &     , ok_chlorophyll,ok_conserv_q, ok_all_xml
128     
129       save /clesphys/
130!$OMP THREADPRIVATE(/clesphys/)
131 
Note: See TracBrowser for help on using the repository browser.