source: LMDZ5/branches/testing/libf/phylmd/clesphys.h @ 5456

Last change on this file since 5456 was 2839, checked in by Laurent Fairhead, 8 years ago

Merged trunk changes r2785:2838 into testing branch

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