source: LMDZ4/branches/LMDZ4-dev/libf/phylmd/clesphys.h @ 1150

Last change on this file since 1150 was 1150, checked in by jghattas, 15 years ago

Ajoute possiblilite de forcer avec d'autre aersols avec le meme principe que pour les so4.

Par default la convergence est rempu avec flag_aersosol=1 + ok_ade=ok_aie=y. Exactement les memes resultats peuvent etre retrouver avec new_aod=n. Les resultats sont exactement les memes sans prise en compte aucun aerosol, avec ok_ade=ok_aie=n.

  • flag_aerosol indique quel aersosol ou combinasion a utiliser (=1 uniquement les SO4 comme avant)
  • les fichiers d'entree so4.runXXXX.cdf change du nom pour majescule SO4.runXXXX.cdf
  • readsulfate change du nom pour readaerosol qui trait tous les aerosols
  • radlwsw change du nom pour radlwsw_aero.
  • aeropt_2bands.F90 et aeropt_5wv.F90 correspond a un reecriture de aeropt.F (premier et deuxieme moitie respectivement)
  • aeropt.F est gardé pour retrouver la convergence si demande avec new_aod=false (=true default)
  • sw_aero est un version evolue de sw_lmdar4 (dans fichier radiation_ar4.F)

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