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

Diff of /trunk/dyn3d/conf_gcm.f

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

revision 56 by guez, Tue Jan 10 19:02:02 2012 UTC revision 57 by guez, Mon Jan 30 12:54:02 2012 UTC
# Line 36  module conf_gcm_m Line 36  module conf_gcm_m
36    logical:: offline = .FALSE.    logical:: offline = .FALSE.
37    ! permet de mettre en route la nouvelle parametrisation de l'eau liquide    ! permet de mettre en route la nouvelle parametrisation de l'eau liquide
38    
39      integer:: prt_level = 0 ! niveau d'impression souhaité (0 = minimum)
40    
41      LOGICAL:: purmats= .FALSE.
42      ! Help = Choix du schema d'integration temporel.
43      ! y = pure Matsuno sinon c'est du Matsuno-leapfrog
44    
45      logical:: fxyhypb = .TRUE.
46      ! (fonction f(y) à dérivée tangente hyperbolique, sinon à dérivée
47      ! sinusoïdale)
48    
49      logical:: ysinus = .TRUE.
50      ! (Fonction f(y) avec y = Sin(latit.) si = .true. sinon y = latit.)
51    
52      logical:: ok_guide= .FALSE. ! guidage
53    
54      INTEGER:: iflag_phys = 1
55      ! contrôle l'appel à la physique :
56      ! 0 : pas de physique
57      ! 1 : physique normale (appel à phylmd, phymars...) (default)
58      ! 2 : rappel Newtonien pour la température + friction au sol
59    
60  contains  contains
61    
62    SUBROUTINE conf_gcm    SUBROUTINE conf_gcm
# Line 51  contains Line 72  contains
72    
73      use abort_gcm_m, only: abort_gcm      use abort_gcm_m, only: abort_gcm
74      use comdissnew, only: read_comdissnew      use comdissnew, only: read_comdissnew
     use logic, only: read_logic  
75      use serre, only: clon, clat, grossismx, grossismy, alphax, alphay, &      use serre, only: clon, clat, grossismx, grossismy, alphax, alphay, &
76           dzoomx, dzoomy, taux, tauy           dzoomx, dzoomy, taux, tauy
77      use iniprint, only: read_iniprint      use unit_nml_m, only: unit_nml
78    
79      namelist /conf_gcm_nml/dayref, anneeref, raz_date, nday, day_step, &      namelist /conf_gcm_nml/dayref, anneeref, raz_date, nday, day_step, &
80           iperiod, iapp_tracvl, iconser, iecri, periodav, &           iperiod, iapp_tracvl, iconser, iecri, periodav, &
81           iphysiq, clon, clat, grossismx, grossismy, dzoomx, dzoomy, taux, &           iphysiq, clon, clat, grossismx, grossismy, dzoomx, dzoomy, taux, &
82           tauy, offline           tauy, offline
83    
84        namelist /iniprint_nml/prt_level
85    
86        namelist /logic_nml/ purmats, fxyhypb, ysinus, ok_guide, iflag_phys
87    
88      !------------------------------------      !------------------------------------
89    
90      print *, "Call sequence information: conf_gcm"      print *, "Call sequence information: conf_gcm"
91    
92      call read_iniprint      print *, "Enter namelist 'iniprint_nml'."
93      call read_logic      read(unit=*, nml=iniprint_nml)
94        write(unit_nml, nml=iniprint_nml)
95    
96        print *, "Enter namelist 'logic_nml'."
97        read(unit=*, nml=logic_nml)
98        write(unit_nml, nml=logic_nml)
99    
100      call read_comdissnew      call read_comdissnew
101    
102      print *, "Enter namelist 'conf_gcm_nml'."      print *, "Enter namelist 'conf_gcm_nml'."
103      read(unit=*, nml=conf_gcm_nml)      read(unit=*, nml=conf_gcm_nml)
104      write(unit=*, nml=conf_gcm_nml)      write(unit_nml, nml=conf_gcm_nml)
105    
106      IF (MOD(day_step, iperiod) /= 0) call abort_gcm(modname = "conf_gcm", &      IF (MOD(day_step, iperiod) /= 0) call abort_gcm(modname = "conf_gcm", &
107           message = &           message = &
Legend:
Removed from v.56  
changed lines
  Added in v.57
  ViewVC Help
Powered by ViewVC 1.1.21