source: LMDZ6/branches/LMDZ_cdrag_LSCE/libf/phylmd/clesphys.h @ 5456

Last change on this file since 5456 was 4669, checked in by Laurent Fairhead, 16 months ago

Merged with trunk revision 4586 corresponding to june 2023 testing

  • 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: 7.6 KB
RevLine 
[1279]1! $Id: clesphys.h 4669 2023-09-04 08:17:16Z aborella $
[524]2!
[793]3!  ATTENTION!!!!: ce fichier include est compatible format fixe/format libre
[2110]4!                 veillez \`a n'utiliser que des ! pour les commentaires
5!                 et \`a bien positionner les & des lignes de continuation
[793]6!                 (les placer en colonne 6 et en colonne 73)
7!
8!..include cles_phys.h
[4352]9
[4458]10       ! threshold on to activate SSO schemes
11       REAL zrel_oro_t, zpmm_orodr_t, zpmm_orolf_t, zstd_orodr_t
[3317]12       INTEGER iflag_cycle_diurne
13       LOGICAL soil_model,new_oliq,ok_orodr,ok_orolf
[524]14       LOGICAL ok_limitvrai
[2114]15       LOGICAL ok_all_xml
[3048]16       LOGICAL ok_lwoff
[2730]17       INTEGER nbapp_rad, iflag_con, nbapp_cv, nbapp_wk, iflag_ener_conserv
[1279]18       REAL co2_ppm, co2_ppm0, solaire
[4089]19       INTEGER iflag_thermals,nsplit_thermals
[4669]20       INTEGER iflag_physiq
[4089]21       REAL tau_thermals
22
[2952]23!FC
24       REAL Cd_frein
[2524]25       LOGICAL ok_suntime_rrtm
[1279]26       REAL(kind=8) RCO2, RCH4, RN2O, RCFC11, RCFC12 
[1539]27       REAL(kind=8) RCO2_act, RCH4_act, RN2O_act, RCFC11_act, RCFC12_act 
[1279]28       REAL(kind=8) CH4_ppb, N2O_ppb, CFC11_ppt, CFC12_ppt
[1539]29!IM ajout CFMIP2/CMIP5
30       REAL(kind=8) RCO2_per,RCH4_per,RN2O_per,RCFC11_per,RCFC12_per
31       REAL(kind=8) CH4_ppb_per,N2O_ppb_per,CFC11_ppt_per,CFC12_ppt_per
[766]32
[793]33!OM ---> correction du bilan d'eau global
34!OM Correction sur precip KE
[766]35       REAL cvl_corr
[793]36!OM Fonte calotte dans bilan eau
[766]37       LOGICAL ok_lic_melt
[2946]38!OB Depot de vapeur d eau sur la calotte pour le bilan eau
39       LOGICAL ok_lic_cond
[766]40
[793]41!IM simulateur ISCCP
[524]42       INTEGER top_height, overlap
[793]43!IM seuils cdrm, cdrh
[524]44       REAL cdmmax, cdhmax
[4661]45!IM pour les params différentes Olivier Torres
46       INTEGER choix_bulk, nit_bulk, kz0
[793]47!IM param. stabilite s/ terres et en dehors
[2126]48       REAL ksta, ksta_ter, f_ri_cd_min
[793]49!IM ok_kzmin : clef calcul Kzmin dans la CL de surface cf FH
[524]50       LOGICAL ok_kzmin
[900]51!IM, MAFo fmagic, pmagic : parametres - additionnel et multiplicatif - 
52!                          pour regler l albedo sur ocean
53       REAL fmagic, pmagic
[889]54! Hauteur (imposee) du contenu en eau du sol
[1894]55           REAL qsol0,albsno0,evap0
[1279]56! Frottement au sol (Cdrag)
57       Real f_cdrag_ter,f_cdrag_oce
[2254]58       REAL min_wind_speed,f_gust_wk,f_gust_bl,f_qsat_oce,f_z0qh_oce
[2243]59       REAL z0m_seaice,z0h_seaice
[4245]60       REAL z0m_landice, z0h_landice
[2243]61       INTEGER iflag_gusts,iflag_z0_oce
[2240]62
[1279]63! Rugoro
[2243]64       Real f_rugoro,z0min
[1279]65
[3327]66! tau_gl : constante de rappel de la temperature a la surface de la glace
67       REAL tau_gl
68
[793]69!IM lev_histhf  : niveau sorties 6h
70!IM lev_histday : niveau sorties journalieres
71!IM lev_histmth : niveau sorties mensuelles
[1352]72!IM lev_histdayNMC : on peut sortir soit sur 8 (comme AR5) ou bien
73!                    sur 17 niveaux de pression
[524]74       INTEGER lev_histhf, lev_histday, lev_histmth
[1352]75       INTEGER lev_histdayNMC
[1279]76       Integer lev_histins, lev_histLES 
[1374]77!IM ok_histNMC  : sortie fichiers niveaux de pression (histmthNMC, histdayNMC, histhfNMC)
[1352]78!IM freq_outNMC : frequences de sortie fichiers niveaux de pression (histmthNMC, histdayNMC, histhfNMC)
79!IM freq_calNMC : frequences de calcul fis. hist*NMC.nc
[1374]80       LOGICAL ok_histNMC(3)
[1828]81       INTEGER levout_histNMC(3)
[1352]82       REAL freq_outNMC(3) , freq_calNMC(3)
[1279]83       CHARACTER(len=4) type_run
84! aer_type: pour utiliser un fichier constant dans readaerosol
[1938]85       CHARACTER(len=8) :: aer_type
[1877]86       LOGICAL ok_regdyn
[644]87       REAL lonmin_ins, lonmax_ins, latmin_ins, latmax_ins
[1563]88       REAL ecrit_ins, ecrit_hf, ecrit_day
[684]89       REAL ecrit_mth, ecrit_tra, ecrit_reg
[1054]90       REAL ecrit_LES
[828]91       REAL freq_ISCCP, ecrit_ISCCP
[2580]92       REAL freq_COSP, freq_AIRS
[1368]93       LOGICAL :: ok_cosp,ok_mensuelCOSP,ok_journeCOSP,ok_hfCOSP
[2580]94       LOGICAL :: ok_airs
[4062]95       INTEGER :: ip_ebil_phy, iflag_rrtm, iflag_ice_thermo, NSW, iflag_albedo
96       LOGICAL :: ok_ice_sursat, ok_plane_h2o, ok_plane_contrail
[2227]97       LOGICAL :: ok_chlorophyll
[1001]98       LOGICAL :: ok_strato
[1938]99       LOGICAL :: ok_hines, ok_gwd_rando
[2136]100       LOGICAL :: ok_qch4
[2007]101       LOGICAL :: ok_conserv_q
[2788]102       LOGICAL :: adjust_tropopause
103       LOGICAL :: ok_daily_climoz
[3999]104       LOGICAL :: ok_new_lscp
[4669]105       LOGICAL :: ok_bs, ok_rad_bs
[2973]106! flag to bypass or not the phytrac module
107       INTEGER :: iflag_phytrac
[524]108
[1961]109       COMMON/clesphys/                                                 &
110! REAL FIRST
[4661]111! rajout choix_bulk et nit_bulk kz0 par Olivier Torres
[2007]112     &       co2_ppm, solaire                                           &
[1539]113     &     , RCO2, RCH4, RN2O, RCFC11, RCFC12                           &
114     &     , RCO2_act, RCH4_act, RN2O_act, RCFC11_act, RCFC12_act       &
115     &     , RCO2_per, RCH4_per, RN2O_per, RCFC11_per, RCFC12_per       &
[793]116     &     , CH4_ppb, N2O_ppb, CFC11_ppt, CFC12_ppt                     &
[1539]117     &     , CH4_ppb_per, N2O_ppb_per, CFC11_ppt_per, CFC12_ppt_per     &
[4448]118     &     , cdmmax,cdhmax,ksta,ksta_ter,f_ri_cd_min                    &
[1961]119     &     , fmagic, pmagic                                             &
[3327]120     &     , f_cdrag_ter,f_cdrag_oce,f_rugoro,z0min,tau_gl              &
[2254]121     &     , min_wind_speed,f_gust_wk,f_gust_bl,f_qsat_oce,f_z0qh_oce   &
[4245]122     &     , z0m_seaice,z0h_seaice,z0m_landice,z0h_landice              &
[3435]123     &     , freq_outNMC, freq_calNMC                                   &
[1961]124     &     , lonmin_ins, lonmax_ins, latmin_ins, latmax_ins             &
[2580]125     &     , freq_ISCCP, ecrit_ISCCP, freq_COSP, freq_AIRS              &
[1961]126     &     , cvl_corr                                                   &
127     &     , qsol0,albsno0,evap0                                        &
128     &     , co2_ppm0                                                   &
[2952]129!FC
[4458]130     &     , Cd_frein,zrel_oro_t,zpmm_orodr_t,zpmm_orolf_t,zstd_orodr_t &
[1961]131     &     , ecrit_LES                                                  &
132     &     , ecrit_ins, ecrit_hf, ecrit_day                             &
133     &     , ecrit_mth, ecrit_tra, ecrit_reg                            &
134! THEN INTEGER AND LOGICALS
135     &     , top_height                                                 &
[4059]136     &     , iflag_cycle_diurne, soil_model, new_oliq                   &
[2707]137     &     , ok_orodr, ok_orolf, ok_limitvrai, nbapp_rad                &
[2730]138     &     , iflag_con, nbapp_cv, nbapp_wk                              &
[4661]139     &     , choix_bulk, nit_bulk, kz0                                  &
[1961]140     &     , iflag_ener_conserv                                         &
[2524]141     &     , ok_suntime_rrtm                                            & 
[1961]142     &     , overlap                                                    &
143     &     , ok_kzmin                                                   &
[900]144     &     , lev_histhf, lev_histday, lev_histmth                       &
[1828]145     &     , lev_histins, lev_histLES, lev_histdayNMC, levout_histNMC   &
[1961]146     &     , ok_histNMC                                                 &
[2580]147     &     , type_run, ok_regdyn, ok_cosp, ok_airs                      &
[1368]148     &     , ok_mensuelCOSP,ok_journeCOSP,ok_hfCOSP                     &
[1961]149     &     , ip_ebil_phy                                                &
[2243]150     &     , iflag_gusts ,iflag_z0_oce                                  &
[2946]151     &     , ok_lic_melt, ok_lic_cond, aer_type                         &
[2136]152     &     , iflag_rrtm, ok_strato,ok_hines, ok_qch4                    &
[4062]153     &     , iflag_ice_thermo, ok_ice_sursat                            & 
154     &     , ok_plane_h2o, ok_plane_contrail                            & 
[4059]155     &     , ok_gwd_rando, NSW, iflag_albedo                            &
[2788]156     &     , ok_chlorophyll,ok_conserv_q, adjust_tropopause             &
[3048]157     &     , ok_daily_climoz, ok_all_xml, ok_lwoff                      &
[4669]158     &     , iflag_phytrac, ok_new_lscp, ok_bs, ok_rad_bs               &
159     &     ,  iflag_thermals,nsplit_thermals, tau_thermals              &
160     &     , iflag_physiq
[1572]161       save /clesphys/
[793]162!$OMP THREADPRIVATE(/clesphys/)
Note: See TracBrowser for help on using the repository browser.