source: LMDZ4/branches/LMDZ4_V3_patches/libf/phylmd/clesphys.h @ 1135

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

Inclusion de la constante pmagic dans le calcul de l'albedo MAFO/JLD
LF

  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 2.7 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
[899]33!IM, MAFo fmagic, pmagic : parametres - additionnel et multiplicatif - 
34!                          pour regler l albedo sur ocean
35       REAL fmagic, pmagic
[793]36!IM lev_histhf  : niveau sorties 6h
37!IM lev_histday : niveau sorties journalieres
38!IM lev_histmth : niveau sorties mensuelles
[524]39       INTEGER lev_histhf, lev_histday, lev_histmth
[644]40       CHARACTER*4 type_run
41       LOGICAL ok_isccp, ok_regdyn
42       REAL lonmin_ins, lonmax_ins, latmin_ins, latmax_ins
[684]43       REAL ecrit_ins, ecrit_hf, ecrit_hf2mth, ecrit_day
44       REAL ecrit_mth, ecrit_tra, ecrit_reg
[845]45       REAL freq_ISCCP, ecrit_ISCCP
[684]46       INTEGER :: ip_ebil_phy
47       LOGICAL ok_slab_sicOBS
[857]48!LF aer_actuel: pour utiliser un fichier constant dans readsulfate
49       CHARACTER*8 :: aer_type
[524]50
[793]51       COMMON/clesphys/cycle_diurne, soil_model, new_oliq,              &
52     &     ok_orodr, ok_orolf, ok_limitvrai, nbapp_rad, iflag_con       &
53     &     , co2_ppm, solaire, RCO2, RCH4, RN2O, RCFC11, RCFC12         &
54     &     , CH4_ppb, N2O_ppb, CFC11_ppt, CFC12_ppt                     &
55     &     , top_height, overlap, cdmmax, cdhmax, ksta, ksta_ter        &
[899]56     &     , ok_kzmin, fmagic, pmagic                                   &
57     &     , lev_histhf, lev_histday, lev_histmth                       &
[793]58     &     , type_run, ok_isccp, ok_regdyn                              &
59     &     , lonmin_ins, lonmax_ins, latmin_ins, latmax_ins             &
60     &     , ecrit_ins, ecrit_hf, ecrit_hf2mth, ecrit_day               &
61     &     , ecrit_mth, ecrit_tra, ecrit_reg                            &
[845]62     &     , freq_ISCCP, ecrit_ISCCP, ip_ebil_phy                       &
[857]63     &     , ok_slab_sicOBS, ok_lic_melt, cvl_corr, aer_type
[766]64     
[793]65!$OMP THREADPRIVATE(/clesphys/)
[766]66 
Note: See TracBrowser for help on using the repository browser.