trunk/dyn3d/serre.f

module serre

  implicit none

  REAL:: clon = 0. ! longitude of the center of the zoom, in degrees
  real:: clat = 0. ! latitude of the center of the zoom, in degrees

  real:: grossismx = 1., grossismy = 1.
  ! facteurs de grossissement du zoom, selon la longitude et la latitude
  ! = 2 si 2 fois, = 3 si 3 fois, etc.

  real:: dzoomx = 0., dzoomy = 0.
  ! extensions en longitude et latitude de la zone du zoom (fractions
  ! de la zone totale)

  real:: taux = 3., tauy = 3. 
  ! raideur de la transition de l'intérieur à l'extérieur du zoom
  
contains

  subroutine read_serre

    use unit_nml_m, only: unit_nml
    use nr_util, only: assert

    namelist /serre_nml/ clon, clat, grossismx, grossismy, dzoomx, dzoomy, &
         taux, tauy

    !-------------------------------------------------

    print *, "Enter namelist 'serre_nml'."
    read(unit=*, nml=serre_nml)
    write(unit_nml, nml=serre_nml)

    call assert(grossismx >= 1. .and. grossismy >= 1., "read_serre grossism")

  end subroutine read_serre

end module serre
1	module serre
2
3	implicit none
4
5	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:: grossismx = 1., grossismy = 1.
9	! facteurs de grossissement du zoom, selon la longitude et la latitude
10	! = 2 si 2 fois, = 3 si 3 fois, etc.
11
12	real:: dzoomx = 0., dzoomy = 0.
13	! extensions en longitude et latitude de la zone du zoom (fractions
14	! de la zone totale)
15
16	real:: taux = 3., tauy = 3.
17	! raideur de la transition de l'intérieur à l'extérieur du zoom
18
19	contains
20
21	subroutine read_serre
22
23	use unit_nml_m, only: unit_nml
24	use nr_util, only: assert
25
26	namelist /serre_nml/ clon, clat, grossismx, grossismy, dzoomx, dzoomy, &
27	taux, tauy
28
29	!-------------------------------------------------
30
31	print *, "Enter namelist 'serre_nml'."
32	read(unit=*, nml=serre_nml)
33	write(unit_nml, nml=serre_nml)
34
35	call assert(grossismx >= 1. .and. grossismy >= 1., "read_serre grossism")
36
37	end subroutine read_serre
38
39	end module serre