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

Contents of /trunk/dyn3d/conf_guide.f

Parent Directory Parent Directory | Revision Log Revision Log

Revision 102 - (show annotations)
Tue Jul 15 13:43:24 2014 UTC (9 years, 10 months ago) by guez
File size: 1699 byte(s) 
Removed unused file "condsurf.f" (only useful for ocean slab).

day_step must be a multiple of 4 * iperiod if ok_guide.

Changed type of variable online of module conf_guide_m from integer to
logical. Value -1 was not useful, equivalent to not ok_guide.

Removed argument masse of procedure guide. masse is kept consistent
with ps throughout the run. masse need only be computed again just
after ps has been modified. In prodecure guide, replaced use of
remanent variable first by test on itau. Replaced test on variable
"test" by test on integer values.

In leapfrog, for the call to guide, replaced test on real values by
test on integer values.

Bug fix in tau2alpha: computation of dxdyv (following LMDZ revision 1040).

In procedure wrgrads, replaced badly chosen argument name "if" by i_f.
1 module conf_guide_m
2
3 IMPLICIT NONE
4
5 ! Constantes de rappel. Unite : fraction de jour
6 REAL:: tau_min_u = 0.02
7 REAL:: tau_max_u = 10.
8 REAL:: tau_min_v = 0.02
9 REAL:: tau_max_v = 10.
10 REAL:: tau_min_t = 0.02
11 REAL:: tau_max_t = 10.
12 REAL:: tau_min_q = 0.02
13 REAL:: tau_max_q = 10.
14 REAL:: tau_min_p = 0.02
15 REAL:: tau_max_p = 10.
16
17 LOGICAL:: ncep = .false. ! Coordonnee vert NCEP ou ECMWF
18 LOGICAL:: ini_anal = .false. ! Initial = analyse
19 LOGICAL:: guide_u = .true. ! guidage de u
20 LOGICAL:: guide_v = .true. ! gvidage de v
21 LOGICAL:: guide_t = .true. ! guidage de T
22 LOGICAL:: guide_q = .true. ! guidage de q
23
24 logical:: online = .true. ! controle du guide
25 ! hors-ligne: x=x_rea
26
27 ! Latitude min et max pour le rappel dans le cas ou on 'a les
28 ! analyses que sur une bande de latitudes.
29 REAL:: lat_min_guide = -90. ! Latitude minimum pour le guidage
30 real:: lat_max_guide = 90. ! Latitude maximum pour le guidage
31
32 contains
33
34 SUBROUTINE conf_guide
35
36 ! From LMDZ4/libf/dyn3d/conf_guide.F, version 1.1.1.1 2004/05/19 12:53:07
37 ! Parametres de controle du run:
38
39 use unit_nml_m, only: unit_nml
40
41 namelist /conf_guide_nml/ ncep, ini_anal, guide_u, guide_v, guide_t, &
42 online, tau_min_u, tau_max_u, tau_min_v, tau_max_v, tau_min_t, &
43 tau_max_t, tau_min_q, tau_max_q, tau_min_p, tau_max_p, &
44 lat_min_guide, lat_max_guide
45
46 !-----------------------------------------------------------------------
47
48 print *, "Call sequence information: conf_guide"
49
50 print *, "Enter namelist 'conf_guide_nml'."
51 read(unit=*, nml=conf_guide_nml)
52 write(unit_nml, nml=conf_guide_nml)
53
54 end SUBROUTINE conf_guide
55
56 end module conf_guide_m
  ViewVC Help
Powered by ViewVC 1.1.21