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

Diff of /trunk/phylmd/clesphys.f

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

revision 287 by guez, Wed Jul 11 15:31:01 2018 UTC revision 288 by guez, Tue Jul 24 16:27:12 2018 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    real:: f_cdrag_ter = 1., f_cdrag_oce = 0.8 ! surface drag coefficients    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 35  contains Line 44  contains
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.287  
changed lines
  Added in v.288
  ViewVC Help
Powered by ViewVC 1.1.21