/[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/libf/dyn3d/serre.f90 revision 3 by guez, Wed Feb 27 13:16:39 2008 UTC trunk/dyn3d/serre.f revision 113 by guez, Thu Sep 18 19:56:46 2014 UTC
# Line 2  module serre Line 2  module serre
2    
3    implicit none    implicit none
4    
5    REAL:: clon= 0. ! longitude en degres du centre du zoom    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
7    
8    real:: clat= 0. ! latitude en degres du centre du zoom    real:: grossismx = 1. ! facteur de grossissement du zoom, selon la longitude
9      real:: grossismy = 1. ! facteur de grossissement du zoom, selon la latitude
10    
11    real, save:: transx,transy    real:: dzoomx = 0.
12    real, save:: alphax, alphay ! anciennes formulations des grossissements    ! extension en longitude de la zone du zoom (fraction de la zone totale)
   real, save:: pxo,pyo  
13    
14    real:: grossismx= 1.0 ! facteur de grossissement du zoom, selon la longitude    real:: dzoomy = 0.
15      ! extension en latitude de la zone du zoom (fraction de la zone totale)
16    
17    real:: grossismy= 1.0 ! facteur de grossissement du zoom, selon la latitude    real:: taux = 3. ! raideur du zoom en X
18      real:: tauy = 3. ! raideur du zoom en Y
19    
20    real:: dzoomx= 0.0  contains
   ! (extension en longitude de la zone du zoom (fraction de la zone totale))  
21    
22    real:: dzoomy= 0.0    subroutine read_serre
   ! extension en latitude de la zone du zoom  
   ! (fraction de la zone totale)  
23    
24    real:: taux= 3.0 ! raideur du zoom en X      use unit_nml_m, only: unit_nml
25        use nr_util, only: assert
26    
27    real:: tauy= 3.0 ! raideur du zoom en Y      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.3  
changed lines
  Added in v.113
  ViewVC Help
Powered by ViewVC 1.1.21