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

Diff of /trunk/phylmd/clesphys.f90

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

trunk/Sources/phylmd/clesphys.f revision 251 by guez, Mon Jan 8 14:12:02 2018 UTC trunk/phylmd/clesphys.f90 revision 328 by guez, Thu Jun 13 14:40:06 2019 UTC
# Line 4  module clesphys Line 4  module clesphys
4    
5    implicit none    implicit none
6    
7    REAL:: co2_ppm = 348. ! AMIP II, concentration du gaz carbonique en ppmv    REAL, protected:: co2_ppm = 348.
8    real:: solaire = 1365. ! AMIP II, constante solaire en W/m2    ! AMIP II, concentration du gaz carbonique en ppmv
   double precision, save:: RCO2 ! Concentration du CO2  
   double precision, save:: RCH4 ! Concentration du CH4  
   double precision, save:: RN2O ! Concentration du N2O  
   double precision, save:: RCFC11 ! Concentration du CFC11  
   double precision, save:: RCFC12 ! Concentration du CFC12  
   double precision:: CH4_ppb = 1650., N2O_ppb = 306.  
   double precision:: CFC11_ppt = 280., CFC12_ppt = 484.  
   REAL:: cdmmax = 1.3E-3, cdhmax = 1.1E-3 ! seuils cdrm, cdrh  
9        
10    REAL:: ksta = 1.0e-10, ksta_ter = 1.0e-10    real, protected:: solaire = 1365. ! AMIP II, constante solaire en W/m2
11      double precision, save, protected:: RCO2 ! Concentration du CO2
12      double precision, save, protected:: RCH4 ! Concentration du CH4
13      double precision, save, protected:: RN2O ! Concentration du N2O
14      double precision, save, protected:: RCFC11 ! Concentration du CFC11
15      double precision, save, protected:: RCFC12 ! Concentration du CFC12
16      double precision, protected:: CH4_ppb = 1650., N2O_ppb = 306.
17      double precision, protected:: CFC11_ppt = 280., CFC12_ppt = 484.
18      REAL, protected:: cdmmax = 1.3E-3, cdhmax = 1.1E-3 ! seuils cdrm, cdrh
19      
20      REAL, protected:: ksta = 1e-10, ksta_ter = 1e-10
21    ! param\`etres de stabilit\'e sur terre et en dehors    ! param\`etres de stabilit\'e sur terre et en dehors
22    
23    LOGICAL:: ok_kzmin  = .true.! calcul de Kzmin dans la couche limite de surface    LOGICAL, protected:: ok_kzmin  = .true.
24    INTEGER, save:: ecrit_ins    ! calcul de Kzmin dans la couche limite de surface
25    logical:: ok_instan = .false. ! sorties instantanees dans le fichier histins    
26      INTEGER, save, protected:: ecrit_ins = 1
27      ! number of time steps of physics between outputs
28    
29      logical, protected:: ok_instan = .false.
30      ! sorties instantanees dans le fichier histins
31    
32      real, protected:: f_cdrag_ter = 1., f_cdrag_oce = 0.8
33      ! surface drag coefficients
34    
35  contains  contains
36    
# Line 30  contains Line 40  contains
40    
41      namelist /clesphys_nml/ solaire, co2_ppm, CH4_ppb, N2O_ppb, CFC11_ppt, &      namelist /clesphys_nml/ solaire, co2_ppm, CH4_ppb, N2O_ppb, CFC11_ppt, &
42           CFC12_ppt, cdmmax, cdhmax, ksta, ksta_ter, ok_kzmin, ecrit_ins, &           CFC12_ppt, cdmmax, cdhmax, ksta, ksta_ter, ok_kzmin, ecrit_ins, &
43           ok_instan           ok_instan, f_cdrag_ter, f_cdrag_oce
44    
45      !---------------------------------------------------------      !---------------------------------------------------------
46    
     ecrit_ins = NINT(86400./48.)  
   
47      print *, "Enter namelist 'clesphys_nml'."      print *, "Enter namelist 'clesphys_nml'."
48      read(unit=*, nml=clesphys_nml)      read(unit=*, nml=clesphys_nml)
49      write(unit_nml, nml=clesphys_nml)      write(unit_nml, nml=clesphys_nml)
Legend:
Removed from v.251  
changed lines
  Added in v.328
  ViewVC Help
Powered by ViewVC 1.1.21