/[lmdze]/trunk/dyn3d/read_serre.f
ViewVC logotype

Diff of /trunk/dyn3d/read_serre.f

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

revision 121 by guez, Wed Jan 28 16:10:02 2015 UTC revision 122 by guez, Tue Feb 3 19:30:48 2015 UTC
# Line 9  module serre Line 9  module serre
9    ! facteurs de grossissement du zoom, selon la longitude et la latitude    ! facteurs de grossissement du zoom, selon la longitude et la latitude
10    ! = 2 si 2 fois, = 3 si 3 fois, etc.    ! = 2 si 2 fois, = 3 si 3 fois, etc.
11    
12    real:: dzoomx = 0., dzoomy = 0.    real:: dzoomx = 0.2, dzoomy = 0.2
13    ! extensions en longitude et latitude de la zone du zoom (fractions    ! extensions en longitude et latitude de la zone du zoom (fractions
14    ! de la zone totale)    ! de la zone totale)
15    
# Line 33  contains Line 33  contains
33      write(unit_nml, nml=serre_nml)      write(unit_nml, nml=serre_nml)
34    
35      call assert(grossismx >= 1. .and. grossismy >= 1., "read_serre grossism")      call assert(grossismx >= 1. .and. grossismy >= 1., "read_serre grossism")
36      call assert(dzoomx < 1., dzoomy < 1., "read_serre dzoomx dzoomy")      call assert(dzoomx > 0., dzoomx < 1., dzoomy < 1., &
37             "read_serre dzoomx dzoomy")
38    
39    end subroutine read_serre    end subroutine read_serre
40    
Legend:
Removed from v.121  
changed lines
  Added in v.122
  ViewVC Help
Powered by ViewVC 1.1.21