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

Diff of /trunk/Sources/dyn3d/Guide/conf_guide.f

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

trunk/libf/dyn3d/conf_guide.f revision 30 by guez, Thu Apr 1 09:07:28 2010 UTC trunk/dyn3d/conf_guide.f revision 102 by guez, Tue Jul 15 13:43:24 2014 UTC
# Line 1  Line 1 
1  !  module conf_guide_m
 ! $Header: /home/cvsroot/LMDZ4/libf/dyn3d/conf_guide.F,v 1.1.1.1 2004/05/19 12:53:07 lmdzadmin Exp $  
 !  
 c  
 c  
       SUBROUTINE conf_guide  
 c  
       use getparam  
       use guide_m  
       IMPLICIT NONE  
   
 c-----------------------------------------------------------------------  
 c  Parametres de controle du run:  
 c-----------------------------------------------------------------------  
   
       call getpar('guide.eff')  
   
       call getpar('online',1,online,'Index de controle du guide')  
       CALL getpar('ncep',.false.,ncep,'Coordonnee vert NCEP ou ECMWF')  
       CALL getpar('ini_anal',.false.,ini_anal,'Initial = analyse')  
   
       CALL getpar('guide_u',.true.,guide_u,'guidage de u')  
       CALL getpar('guide_v',.true.,guide_v,'guidage de v')  
       CALL getpar('guide_T',.true.,guide_T,'guidage de T')  
       CALL getpar('guide_P',.true.,guide_P,'guidage de P')  
       CALL getpar('guide_Q',.true.,guide_Q,'guidage de Q')  
   
 c   Constantes de rappel. Unite : fraction de jour  
       CALL getpar('tau_min_u',0.02,tau_min_u,'Cste de rappel min, u')  
       CALL getpar('tau_max_u', 10.,tau_max_u,'Cste de rappel max, u')  
       CALL getpar('tau_min_v',0.02,tau_min_v,'Cste de rappel min, v')  
       CALL getpar('tau_max_v', 10.,tau_max_v,'Cste de rappel max, v')  
       CALL getpar('tau_min_T',0.02,tau_min_T,'Cste de rappel min, T')  
       CALL getpar('tau_max_T', 10.,tau_max_T,'Cste de rappel max, T')  
       CALL getpar('tau_min_Q',0.02,tau_min_Q,'Cste de rappel min, Q')  
       CALL getpar('tau_max_Q', 10.,tau_max_Q,'Cste de rappel max, Q')  
       CALL getpar('tau_min_P',0.02,tau_min_P,'Cste de rappel min, P')  
       CALL getpar('tau_max_P', 10.,tau_max_P,'Cste de rappel max, P')  
   
 c   Latitude min et max pour le rappel.  
 c   dans le cas ou on 'a les analyses que sur une bande de latitudes.  
       CALL getpar('lat_min_guide',-90.,lat_min_guide  
      s     ,'Latitude minimum pour le guidage ')  
       CALL getpar('lat_max_guide', 90.,lat_max_guide  
      s     ,'Latitude maximum pour le guidage ')  
2    
3      IMPLICIT NONE
4    
5        CALL getpar    !   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        end    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
Legend:
Removed from v.30  
changed lines
  Added in v.102
  ViewVC Help
Powered by ViewVC 1.1.21