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

Annotation of /trunk/dyn3d/conf_gcm.f

Parent Directory Parent Directory | Revision Log Revision Log

Revision 115 - (hide annotations)
Fri Sep 19 17:36:20 2014 UTC (9 years, 8 months ago) by guez
File size: 3254 byte(s) 
Extracted code from tau2alpha for first call into new procedure
init_tau2alpha. dxdys, dxdyu, dxdyv are now local variables if guide
computed by init_tau2alpha. This allows us to remove terrible argument
type of tau2alpha: we just give to tau2alpha the right dxdy and
rlat.

In module conf_guide_m, changed default values of tau_min_*, because
0.02 is too small for the default daystep = 240, iperiod = 5. Changed
default values of guide_[uv] to false. Moved variable ok_guide from
conf_gcm_m to conf_guide_m, ok_guide is no longer an input parameter,
it is computed from guide_*. Had then to move test on ok_guide and
day_step from conf_gcm_m to conf_guide_m. Added checks on input
nudging parameters in procedure conf_guide. Upgraded variable factt to
module conf_guide_m in order to check nudging parameters. Bug fix:
variable guide_q was not in namelist conf_guide_nml.

Removed unused variables aire_min, aire_max of MODULE guide_m.

Moved the call to conf_guide from guide to gcm. This was needed to
define ok_guide before getting into guide (since ok_guide is no longer
in conf_gcm_m). Moved test on grossismx and grossismy from tau2alpha
to guide. It is clearer now that only tau_max is used for a regular
grid, and we do not have to repeat this test in each call to
tau2alpha. In guide, we only call writefield when alpha is not a
constant.
1 guez 3 module conf_gcm_m
2    
3     IMPLICIT NONE
4    
5 guez 39 INTEGER:: nday = 10 ! nombre de jours d'intégration
6     integer:: day_step = 240 ! nombre de pas par jour, multiple de iperiod
7 guez 3
8 guez 39 integer:: iperiod = 5
9 guez 3 ! periode pour le pas Matsuno (en pas de temps)
10    
11 guez 39 integer:: iapp_tracvl = 5
12 guez 3 ! Should normally be equal to "iperiod"
13     ! frequence du groupement des flux (en pas de temps)
14    
15 guez 39 integer:: iconser = 240
16     ! number of time steps between output of control variables
17 guez 3
18 guez 39 integer:: iecri = 1 ! time interval between outputs to "dyn_hist.nc" (in days)
19 guez 3
20 guez 40 integer:: iphysiq = 5
21     ! number of time steps of dynamics between calls to physics
22    
23 guez 3 integer:: dayref = 1 ! jour de l'année de l'état initial
24     ! (= 350 si 20 décembre par exemple)
25    
26     integer:: anneeref = 1998 ! Annee de l'etat initial (avec 4 chiffres)
27    
28 guez 15 logical:: raz_date = .false.
29 guez 98 ! prise en compte de la date initiale de la namelist et remise à
30     ! zéro des compteurs de pas de temps (sinon on garde la date du
31     ! fichier restart)
32 guez 3
33 guez 56 integer:: periodav = 1
34     ! time interval between outputs in the dynamical part, in days
35 guez 3
36 guez 12 logical:: offline = .FALSE.
37 guez 33 ! permet de mettre en route la nouvelle parametrisation de l'eau liquide
38 guez 3
39 guez 57 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     INTEGER:: iflag_phys = 1
46     ! contrôle l'appel à la physique :
47     ! 0 : pas de physique
48     ! 1 : physique normale (appel à phylmd, phymars...) (default)
49     ! 2 : rappel Newtonien pour la température + friction au sol
50    
51 guez 3 contains
52    
53 guez 13 SUBROUTINE conf_gcm
54 guez 3
55     ! Auteurs : L. Fairhead, P. Le Van
56     ! Version du 29/04/97
57    
58 guez 97 ! On ne compare pas les paramètres du zoom (grossismx, grossismy,
59 guez 113 ! clon, clat) lus sur le fichier start avec ceux lus dans
60 guez 97 ! une namelist, au début de gcm. Ces paramètres définissent entre
61     ! autres la grille et doivent être identiques, sinon il y aura
62     ! divergence du gcm.
63 guez 3
64 guez 33 use abort_gcm_m, only: abort_gcm
65 guez 3 use comdissnew, only: read_comdissnew
66 guez 57 use unit_nml_m, only: unit_nml
67 guez 3
68     namelist /conf_gcm_nml/dayref, anneeref, raz_date, nday, day_step, &
69 guez 112 iperiod, iapp_tracvl, iconser, iecri, periodav, iphysiq, offline
70 guez 3
71 guez 57 namelist /iniprint_nml/prt_level
72    
73 guez 115 namelist /logic_nml/ purmats, iflag_phys
74 guez 57
75 guez 3 !------------------------------------
76    
77     print *, "Call sequence information: conf_gcm"
78 guez 12
79 guez 57 print *, "Enter namelist 'iniprint_nml'."
80     read(unit=*, nml=iniprint_nml)
81     write(unit_nml, nml=iniprint_nml)
82    
83     print *, "Enter namelist 'logic_nml'."
84     read(unit=*, nml=logic_nml)
85     write(unit_nml, nml=logic_nml)
86    
87 guez 12 call read_comdissnew
88 guez 3
89     print *, "Enter namelist 'conf_gcm_nml'."
90     read(unit=*, nml=conf_gcm_nml)
91 guez 57 write(unit_nml, nml=conf_gcm_nml)
92 guez 3
93 guez 40 IF (MOD(day_step, iperiod) /= 0) call abort_gcm(modname = "conf_gcm", &
94 guez 33 message = &
95     'Il faut choisir un nombre de pas par jour multiple de "iperiod".', &
96     ierr = 1)
97    
98 guez 69 IF (MOD(day_step, iphysiq)/= 0) call abort_gcm(modname = "conf_gcm", &
99 guez 40 message = &
100 guez 33 'Il faut choisir un nombre de pas par jour multiple de "iphysiq".', &
101     ierr = 1)
102    
103 guez 3 END SUBROUTINE conf_gcm
104    
105     end module conf_gcm_m
  ViewVC Help
Powered by ViewVC 1.1.21