/[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 191 by guez, Mon May 9 19:56:28 2016 UTC revision 202 by guez, Wed Jun 8 12:23:41 2016 UTC
# Line 40  module clesphys Line 40  module clesphys
40    ! sorties instantanées tous les pas de temps de la physique,    ! sorties instantanées tous les pas de temps de la physique,
41    ! fichier "histbilKP_ins.nc"    ! fichier "histbilKP_ins.nc"
42    
43    INTEGER ecrit_ins, ecrit_hf, ecrit_hf2mth, ecrit_day    INTEGER ecrit_ins
   INTEGER ecrit_mth, ecrit_tra, ecrit_reg  
44    logical:: ok_instan = .false. ! sorties instantanees dans le fichier histins    logical:: ok_instan = .false. ! sorties instantanees dans le fichier histins
45    
46    save    save
# Line 56  contains Line 55  contains
55           CFC12_ppt, top_height, overlap, cdmmax, cdhmax, ksta, &           CFC12_ppt, top_height, overlap, cdmmax, cdhmax, ksta, &
56           ksta_ter, ok_kzmin, lev_histhf, lev_histday, lev_histmth, &           ksta_ter, ok_kzmin, lev_histhf, lev_histday, lev_histmth, &
57           type_run, ok_isccp, ok_regdyn, lonmin_ins, lonmax_ins, latmin_ins, &           type_run, ok_isccp, ok_regdyn, lonmin_ins, lonmax_ins, latmin_ins, &
58           latmax_ins, ecrit_ins, ecrit_hf, ecrit_hf2mth, ecrit_day, ecrit_mth, &           latmax_ins, ecrit_ins, ok_instan
          ecrit_tra, ecrit_reg, ok_instan  
59    
60      !---------------------------------------------------------      !---------------------------------------------------------
61    
# Line 85  contains Line 83  contains
83      latmin_ins = -20.      latmin_ins = -20.
84      latmax_ins = 20.      latmax_ins = 20.
85      ecrit_ins = NINT(86400./48.)      ecrit_ins = NINT(86400./48.)
     ecrit_hf = NINT(86400. *0.25)  
     ecrit_hf2mth = 4*30 ! ecriture mens. a partir de val. inst. toutes les 6h  
     ecrit_day = 86400  
     ecrit_mth = 86400  
     ecrit_tra = 1  
     ecrit_reg = NINT(86400. *0.25) ! 4 fois par jour  
86    
87      print *, "Enter namelist 'clesphys_nml'."      print *, "Enter namelist 'clesphys_nml'."
88      read(unit=*, nml=clesphys_nml)      read(unit=*, nml=clesphys_nml)
Legend:
Removed from v.191  
changed lines
  Added in v.202
  ViewVC Help
Powered by ViewVC 1.1.21