/[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

trunk/dyn3d/serre.f90 revision 76 by guez, Fri Nov 15 18:45:49 2013 UTC trunk/dyn3d/serre.f revision 113 by guez, Thu Sep 18 19:56:46 2014 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    
   real, save:: transx, transy  
   real, save:: alphax, alphay ! anciennes formulations des grossissements  
   real, save:: pxo, pyo  
   
8    real:: grossismx = 1. ! facteur de grossissement du zoom, selon la longitude    real:: grossismx = 1. ! facteur de grossissement du zoom, selon la longitude
9    real:: grossismy = 1. ! facteur de grossissement du zoom, selon la latitude    real:: grossismy = 1. ! facteur de grossissement du zoom, selon la latitude
10    
# Line 21  module serre Line 17  module serre
17    real:: taux = 3. ! raideur du zoom en X    real:: taux = 3. ! raideur du zoom en X
18    real:: tauy = 3. ! raideur du zoom en Y    real:: tauy = 3. ! raideur du zoom en Y
19    
20    contains
21    
22      subroutine read_serre
23    
24        use unit_nml_m, only: unit_nml
25        use nr_util, only: assert
26    
27        namelist /serre_nml/ clon, clat, grossismx, grossismy, dzoomx, dzoomy, &
28             taux, tauy
29    
30        !-------------------------------------------------
31    
32        print *, "Enter namelist 'serre_nml'."
33        read(unit=*, nml=serre_nml)
34        write(unit_nml, nml=serre_nml)
35    
36        call assert(grossismx >= 1. .and. grossismy >= 1., "read_serre grossism")
37    
38      end subroutine read_serre
39    
40  end module serre  end module serre
Legend:
Removed from v.76  
changed lines
  Added in v.113
  ViewVC Help
Powered by ViewVC 1.1.21