source: LMDZ4/trunk/libf/phylmd/clesphys.h @ 889

Last change on this file since 889 was 889, checked in by Laurent Fairhead, 17 years ago

Modifs pour que l'aquaplanete marche FH
LF

  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 2.5 KB
RevLine 
[524]1!
2! $Header$
3!
[793]4!
5!  ATTENTION!!!!: ce fichier include est compatible format fixe/format libre
6!                 veillez à n'utiliser que des ! pour les commentaires
7!                 et à bien positionner les & des lignes de continuation
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
14       INTEGER nbapp_rad, iflag_con
15       REAL co2_ppm, solaire
16       REAL*8 RCO2, RCH4, RN2O, RCFC11, RCFC12 
17       REAL*8 CH4_ppb, N2O_ppb, CFC11_ppt, CFC12_ppt
[766]18
[793]19!OM ---> correction du bilan d'eau global
20!OM Correction sur precip KE
[766]21       REAL cvl_corr
[793]22!OM Fonte calotte dans bilan eau
[766]23       LOGICAL ok_lic_melt
24
[793]25!IM simulateur ISCCP
[524]26       INTEGER top_height, overlap
[793]27!IM seuils cdrm, cdrh
[524]28       REAL cdmmax, cdhmax
[793]29!IM param. stabilite s/ terres et en dehors
[524]30       REAL ksta, ksta_ter
[793]31!IM ok_kzmin : clef calcul Kzmin dans la CL de surface cf FH
[524]32       LOGICAL ok_kzmin
[828]33!IM fmagic : parametre pour regler l albedo sur ocean
34       REAL fmagic
[889]35! Hauteur (imposee) du contenu en eau du sol
36           REAL qsol0
[793]37!IM lev_histhf  : niveau sorties 6h
38!IM lev_histday : niveau sorties journalieres
39!IM lev_histmth : niveau sorties mensuelles
[524]40       INTEGER lev_histhf, lev_histday, lev_histmth
[644]41       CHARACTER*4 type_run
42       LOGICAL ok_isccp, ok_regdyn
43       REAL lonmin_ins, lonmax_ins, latmin_ins, latmax_ins
[684]44       REAL ecrit_ins, ecrit_hf, ecrit_hf2mth, ecrit_day
45       REAL ecrit_mth, ecrit_tra, ecrit_reg
[828]46       REAL freq_ISCCP, ecrit_ISCCP
[684]47       INTEGER :: ip_ebil_phy
48       LOGICAL ok_slab_sicOBS
[524]49
[793]50       COMMON/clesphys/cycle_diurne, soil_model, new_oliq,              &
51     &     ok_orodr, ok_orolf, ok_limitvrai, nbapp_rad, iflag_con       &
52     &     , co2_ppm, solaire, RCO2, RCH4, RN2O, RCFC11, RCFC12         &
53     &     , CH4_ppb, N2O_ppb, CFC11_ppt, CFC12_ppt                     &
54     &     , top_height, overlap, cdmmax, cdhmax, ksta, ksta_ter        &
[828]55     &     , ok_kzmin, fmagic, lev_histhf, lev_histday, lev_histmth     &
[793]56     &     , type_run, ok_isccp, ok_regdyn                              &
57     &     , lonmin_ins, lonmax_ins, latmin_ins, latmax_ins             &
58     &     , ecrit_ins, ecrit_hf, ecrit_hf2mth, ecrit_day               &
59     &     , ecrit_mth, ecrit_tra, ecrit_reg                            &
[828]60     &     , freq_ISCCP, ecrit_ISCCP, ip_ebil_phy                       &
[889]61     &     , ok_slab_sicOBS, ok_lic_melt, cvl_corr                      &
62     &     , qsol0
[766]63     
[793]64!$OMP THREADPRIVATE(/clesphys/)
[766]65 
Note: See TracBrowser for help on using the repository browser.