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

Diff of /trunk/Sources/dyn3d/read_serre.f

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

revision 113 by guez, Thu Sep 18 19:56:46 2014 UTC revision 121 by guez, Wed Jan 28 16:10:02 2015 UTC
# Line 5  module serre Line 5  module serre
5    REAL:: clon = 0. ! longitude of the center of the zoom, in degrees    REAL:: clon = 0. ! longitude of the center of the zoom, in degrees
6    real:: clat = 0. ! latitude of the center of the zoom, in degrees    real:: clat = 0. ! latitude of the center of the zoom, in degrees
7    
8    real:: grossismx = 1. ! facteur de grossissement du zoom, selon la longitude    real:: grossismx = 1., grossismy = 1.
9    real:: grossismy = 1. ! facteur de grossissement du zoom, selon la latitude    ! facteurs de grossissement du zoom, selon la longitude et la latitude
10      ! = 2 si 2 fois, = 3 si 3 fois, etc.
11    real:: dzoomx = 0.  
12    ! extension en longitude de la zone du zoom (fraction de la zone totale)    real:: dzoomx = 0., dzoomy = 0.
13      ! extensions en longitude et latitude de la zone du zoom (fractions
14    real:: dzoomy = 0.    ! de la zone totale)
15    ! extension en latitude de la zone du zoom (fraction de la zone totale)  
16      real:: taux = 3., tauy = 3.
17    real:: taux = 3. ! raideur du zoom en X    ! raideur de la transition de l'intérieur à l'extérieur du zoom
18    real:: tauy = 3. ! raideur du zoom en Y    
   
19  contains  contains
20    
21    subroutine read_serre    subroutine read_serre
# Line 34  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")
37    
38    end subroutine read_serre    end subroutine read_serre
39    
Legend:
Removed from v.113  
changed lines
  Added in v.121
  ViewVC Help
Powered by ViewVC 1.1.21