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

Annotation of /trunk/dyn3d/conf_guide.f

Parent Directory Parent Directory | Revision Log Revision Log

Revision 102 - (hide 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 guez 44 module conf_guide_m
2 guez 37
3 guez 44 IMPLICIT NONE
4 guez 3
5 guez 83 ! 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 guez 3
17 guez 83 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 guez 102 logical:: online = .true. ! controle du guide
25     ! hors-ligne: x=x_rea
26    
27 guez 83 ! 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 guez 44 contains
33 guez 3
34 guez 44 SUBROUTINE conf_guide
35 guez 3
36 guez 44 ! 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 guez 3
39 guez 83 use unit_nml_m, only: unit_nml
40 guez 3
41 guez 83 namelist /conf_guide_nml/ ncep, ini_anal, guide_u, guide_v, guide_t, &
42 guez 85 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 guez 83 lat_min_guide, lat_max_guide
45    
46 guez 44 !-----------------------------------------------------------------------
47 guez 3
48 guez 44 print *, "Call sequence information: conf_guide"
49 guez 3
50 guez 83 print *, "Enter namelist 'conf_guide_nml'."
51     read(unit=*, nml=conf_guide_nml)
52     write(unit_nml, nml=conf_guide_nml)
53 guez 3
54 guez 44 end SUBROUTINE conf_guide
55    
56     end module conf_guide_m
  ViewVC Help
Powered by ViewVC 1.1.21