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

Diff of /trunk/dyn3d/serre.f

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

revision 82 by guez, Wed Mar 5 14:57:53 2014 UTC revision 112 by guez, Thu Sep 18 13:36:51 2014 UTC
# Line 21  module serre Line 21  module serre
21    real:: taux = 3. ! raideur du zoom en X    real:: taux = 3. ! raideur du zoom en X
22    real:: tauy = 3. ! raideur du zoom en Y    real:: tauy = 3. ! raideur du zoom en Y
23    
24    contains
25    
26      subroutine read_serre
27    
28        use unit_nml_m, only: unit_nml
29    
30        namelist /serre_nml/ clon, clat, grossismx, grossismy, dzoomx, dzoomy, &
31             taux, tauy
32    
33        !-------------------------------------------------
34    
35        print *, "Enter namelist 'serre_nml'."
36        read(unit=*, nml=serre_nml)
37        write(unit_nml, nml=serre_nml)
38    
39        IF (grossismx < 1.) THEN
40           PRINT *, 'Error: grossismx < 1'
41           STOP 1
42        ELSE
43           alphax = 1. - 1. / grossismx
44        ENDIF
45        IF (grossismy < 1.) THEN
46           PRINT *, 'Error: grossismy < 1'
47           STOP 1
48        ELSE
49           alphay = 1. - 1. / grossismy
50        ENDIF
51        PRINT *, 'alphax = ', alphax
52        PRINT *, 'alphay = ', alphay
53    
54      end subroutine read_serre
55    
56  end module serre  end module serre
Legend:
Removed from v.82  
changed lines
  Added in v.112
  ViewVC Help
Powered by ViewVC 1.1.21