source: LMDZ5/trunk/libf/phylmd/clesphys.h @ 1584

Last change on this file since 1584 was 1572, checked in by lguez, 13 years ago

Bug fix. "clesphys" is declared neither in the main program unit,
neither in "leapfrog" (since revision 956). So the variables of
"clesphys" became undefined, in principle, when returning from
subroutine "physiq".

  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 4.5 KB
RevLine 
[1403]1
[524]2!
[1279]3! $Id: clesphys.h 1572 2011-09-13 08:58:59Z jghattas $
[524]4!
[793]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
[1279]15       REAL co2_ppm, co2_ppm0, solaire
16       REAL(kind=8) RCO2, RCH4, RN2O, RCFC11, RCFC12 
[1539]17       REAL(kind=8) RCO2_act, RCH4_act, RN2O_act, RCFC11_act, RCFC12_act 
[1279]18       REAL(kind=8) CH4_ppb, N2O_ppb, CFC11_ppt, CFC12_ppt
[1539]19!IM ajout CFMIP2/CMIP5
20       REAL co2_ppm_per
21       REAL(kind=8) RCO2_per,RCH4_per,RN2O_per,RCFC11_per,RCFC12_per
22       REAL(kind=8) CH4_ppb_per,N2O_ppb_per,CFC11_ppt_per,CFC12_ppt_per
[766]23
[793]24!OM ---> correction du bilan d'eau global
25!OM Correction sur precip KE
[766]26       REAL cvl_corr
[793]27!OM Fonte calotte dans bilan eau
[766]28       LOGICAL ok_lic_melt
29
[793]30!IM simulateur ISCCP
[524]31       INTEGER top_height, overlap
[793]32!IM seuils cdrm, cdrh
[524]33       REAL cdmmax, cdhmax
[793]34!IM param. stabilite s/ terres et en dehors
[524]35       REAL ksta, ksta_ter
[793]36!IM ok_kzmin : clef calcul Kzmin dans la CL de surface cf FH
[524]37       LOGICAL ok_kzmin
[900]38!IM, MAFo fmagic, pmagic : parametres - additionnel et multiplicatif - 
39!                          pour regler l albedo sur ocean
40       REAL fmagic, pmagic
[889]41! Hauteur (imposee) du contenu en eau du sol
42           REAL qsol0
[1279]43! Frottement au sol (Cdrag)
44       Real f_cdrag_ter,f_cdrag_oce
45! Rugoro
46       Real f_rugoro
47
[793]48!IM lev_histhf  : niveau sorties 6h
49!IM lev_histday : niveau sorties journalieres
50!IM lev_histmth : niveau sorties mensuelles
[1352]51!IM lev_histdayNMC : on peut sortir soit sur 8 (comme AR5) ou bien
52!                    sur 17 niveaux de pression
[524]53       INTEGER lev_histhf, lev_histday, lev_histmth
[1352]54       INTEGER lev_histdayNMC
[1279]55       Integer lev_histins, lev_histLES 
[1374]56!IM ok_histNMC  : sortie fichiers niveaux de pression (histmthNMC, histdayNMC, histhfNMC)
[1352]57!IM freq_outNMC : frequences de sortie fichiers niveaux de pression (histmthNMC, histdayNMC, histhfNMC)
58!IM freq_calNMC : frequences de calcul fis. hist*NMC.nc
59!IM pasphys : pas de temps de physique (secondes)
60       REAL pasphys
[1374]61       LOGICAL ok_histNMC(3)
[1352]62       REAL freq_outNMC(3) , freq_calNMC(3)
[1279]63       CHARACTER(len=4) type_run
64! aer_type: pour utiliser un fichier constant dans readaerosol
[1146]65       CHARACTER*8 :: aer_type
[644]66       LOGICAL ok_isccp, ok_regdyn
67       REAL lonmin_ins, lonmax_ins, latmin_ins, latmax_ins
[1563]68       REAL ecrit_ins, ecrit_hf, ecrit_day
[684]69       REAL ecrit_mth, ecrit_tra, ecrit_reg
[1054]70       REAL ecrit_LES
[828]71       REAL freq_ISCCP, ecrit_ISCCP
[1279]72       REAL freq_COSP
[1368]73       LOGICAL :: ok_cosp,ok_mensuelCOSP,ok_journeCOSP,ok_hfCOSP
[998]74       INTEGER :: ip_ebil_phy, iflag_rrtm
[1001]75       LOGICAL :: ok_strato
76       LOGICAL :: ok_hines
[524]77
[793]78       COMMON/clesphys/cycle_diurne, soil_model, new_oliq,              &
79     &     ok_orodr, ok_orolf, ok_limitvrai, nbapp_rad, iflag_con       &
[1539]80     &     , co2_ppm, solaire                                           &
81     &     , RCO2, RCH4, RN2O, RCFC11, RCFC12                           &
82     &     , RCO2_act, RCH4_act, RN2O_act, RCFC11_act, RCFC12_act       &
83     &     , RCO2_per, RCH4_per, RN2O_per, RCFC11_per, RCFC12_per       &
[793]84     &     , CH4_ppb, N2O_ppb, CFC11_ppt, CFC12_ppt                     &
[1539]85     &     , CH4_ppb_per, N2O_ppb_per, CFC11_ppt_per, CFC12_ppt_per     &
[793]86     &     , top_height, overlap, cdmmax, cdhmax, ksta, ksta_ter        &
[900]87     &     , ok_kzmin, fmagic, pmagic                                   &
[1279]88     &     , f_cdrag_ter,f_cdrag_oce,f_rugoro                           &
[900]89     &     , lev_histhf, lev_histday, lev_histmth                       &
[1352]90     &     , lev_histins, lev_histLES, lev_histdayNMC                   &
[1374]91     &     , pasphys, ok_histNMC, freq_outNMC, freq_calNMC              &
[1279]92     &     , type_run, ok_isccp, ok_regdyn, ok_cosp                     &
[1368]93     &     , ok_mensuelCOSP,ok_journeCOSP,ok_hfCOSP                     &
[793]94     &     , lonmin_ins, lonmax_ins, latmin_ins, latmax_ins             &
[1564]95     &     , ecrit_ins, ecrit_hf, ecrit_day                             &
[793]96     &     , ecrit_mth, ecrit_tra, ecrit_reg                            &
[1279]97     &     , freq_ISCCP, ecrit_ISCCP, freq_COSP, ip_ebil_phy            &
[1146]98     &     , ok_lic_melt, cvl_corr, aer_type                            &
[1279]99     &     , qsol0, iflag_rrtm, ok_strato,ok_hines,ecrit_LES            &
[1421]100     &     , co2_ppm0
[766]101     
[1572]102       save /clesphys/
[793]103!$OMP THREADPRIVATE(/clesphys/)
[766]104 
Note: See TracBrowser for help on using the repository browser.