/[lmdze]/trunk/phylmd/clesphys.f
ViewVC logotype

Diff of /trunk/phylmd/clesphys.f

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

trunk/libf/phylmd/clesphys.f90 revision 51 by guez, Tue Sep 20 09:14:34 2011 UTC trunk/Sources/phylmd/clesphys.f revision 251 by guez, Mon Jan 8 14:12:02 2018 UTC
# Line 4  module clesphys Line 4  module clesphys
4    
5    implicit none    implicit none
6    
7    LOGICAL bug_ozone    REAL:: co2_ppm = 348. ! AMIP II, concentration du gaz carbonique en ppmv
8    REAL co2_ppm, solaire    real:: solaire = 1365. ! AMIP II, constante solaire en W/m2
9    double precision RCO2, RCH4, RN2O, RCFC11, RCFC12      double precision, save:: RCO2 ! Concentration du CO2
10    double precision CH4_ppb, N2O_ppb, CFC11_ppt, CFC12_ppt    double precision, save:: RCH4 ! Concentration du CH4
11    INTEGER top_height, overlap ! simulateur ISCCP    double precision, save:: RN2O ! Concentration du N2O
12    REAL cdmmax, cdhmax ! seuils cdrm, cdrh    double precision, save:: RCFC11 ! Concentration du CFC11
13    REAL ksta, ksta_ter ! paramètres stabilité sur terres et en dehors    double precision, save:: RCFC12 ! Concentration du CFC12
14    LOGICAL ok_kzmin ! calcul Kzmin dans la couche limite de surface    double precision:: CH4_ppb = 1650., N2O_ppb = 306.
15    INTEGER lev_histhf ! niveau sorties 6h    double precision:: CFC11_ppt = 280., CFC12_ppt = 484.
16    integer lev_histday ! niveau sorties journalieres    REAL:: cdmmax = 1.3E-3, cdhmax = 1.1E-3 ! seuils cdrm, cdrh
17    integer lev_histmth ! niveau sorties mensuelles    
18    CHARACTER(len=4) type_run    REAL:: ksta = 1.0e-10, ksta_ter = 1.0e-10
19    LOGICAL ok_isccp, ok_regdyn    ! param\`etres de stabilit\'e sur terre et en dehors
   REAL lonmin_ins, lonmax_ins, latmin_ins, latmax_ins  
   INTEGER ecrit_ins, ecrit_hf, ecrit_hf2mth, ecrit_day  
   INTEGER ecrit_mth, ecrit_tra, ecrit_reg  
20    
21    save    LOGICAL:: ok_kzmin  = .true.! calcul de Kzmin dans la couche limite de surface
22      INTEGER, save:: ecrit_ins
23      logical:: ok_instan = .false. ! sorties instantanees dans le fichier histins
24    
25    contains
26    
27      subroutine read_clesphys
28    
29        use unit_nml_m, only: unit_nml
30    
31        namelist /clesphys_nml/ solaire, co2_ppm, CH4_ppb, N2O_ppb, CFC11_ppt, &
32             CFC12_ppt, cdmmax, cdhmax, ksta, ksta_ter, ok_kzmin, ecrit_ins, &
33             ok_instan
34    
35        !---------------------------------------------------------
36    
37        ecrit_ins = NINT(86400./48.)
38    
39        print *, "Enter namelist 'clesphys_nml'."
40        read(unit=*, nml=clesphys_nml)
41        write(unit_nml, nml=clesphys_nml)
42    
43        RCO2 = co2_ppm * 1.0e-06 * 44.011/28.97
44        RCH4 = CH4_ppb * 1.0E-09 * 16.043/28.97
45        RN2O = N2O_ppb * 1.0E-09 * 44.013/28.97
46        RCFC11=CFC11_ppt* 1.0E-12 * 137.3686/28.97
47        RCFC12 = CFC12_ppt * 1.0E-12 * 120.9140/28.97
48    
49        print *, ' RCO2 = ', RCO2
50        print *, ' RCH4 = ', RCH4
51        print *, ' RN2O = ', RN2O
52        print *, ' RCFC11 = ', RCFC11
53        print *, ' RCFC12 = ', RCFC12
54    
55      end subroutine read_clesphys
56    
57  end module clesphys  end module clesphys
Legend:
Removed from v.51  
changed lines
  Added in v.251
  ViewVC Help
Powered by ViewVC 1.1.21