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

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

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

revision 139 by guez, Tue May 26 17:46:03 2015 UTC revision 140 by guez, Fri Jun 5 18:58:06 2015 UTC
# Line 24  module conf_guide_m Line 24  module conf_guide_m
24    logical:: online = .true. ! controle du guide    logical:: online = .true. ! controle du guide
25    ! hors-ligne: x=x_rea    ! hors-ligne: x=x_rea
26    
27    ! Latitude min et max pour le rappel dans le cas ou on 'a les    ! Dans le cas où on n'a les analyses que sur une bande de latitudes :
28    ! analyses que sur une bande de latitudes.    REAL, save:: lat_min_guide ! minimum latitude for nudging, in rad
29    REAL:: lat_min_guide = -90. ! Latitude minimum pour le guidage    real, save:: lat_max_guide ! maximum latitude for nudging, in rad
   real:: lat_max_guide = 90. ! Latitude maximum pour le guidage  
30    
31    logical, save:: ok_guide ! guidage    logical, save:: ok_guide ! guidage
32    REAL, save:: factt ! pas de temps entre deux appels au guidage, en jours    REAL, save:: factt ! pas de temps entre deux appels au guidage, en jours
# Line 43  contains Line 42  contains
42      use comconst, only: daysec, dtvr      use comconst, only: daysec, dtvr
43      use conf_gcm_m, only: day_step, iperiod      use conf_gcm_m, only: day_step, iperiod
44      use dynetat0_m, only: grossismx, grossismy      use dynetat0_m, only: grossismx, grossismy
45      use nr_util, only: assert      use nr_util, only: assert, pi
46      use unit_nml_m, only: unit_nml      use unit_nml_m, only: unit_nml
47    
48        ! Local:
49    
50        REAL:: lat_min_guide_deg = -90. ! in degrees
51        real:: lat_max_guide_deg = 90. ! in degrees
52    
53      namelist /conf_guide_nml/ ncep, ini_anal, guide_u, guide_v, guide_t, &      namelist /conf_guide_nml/ ncep, ini_anal, guide_u, guide_v, guide_t, &
54           guide_q, online, tau_min_u, tau_max_u, tau_min_v, tau_max_v, &           guide_q, online, tau_min_u, tau_max_u, tau_min_v, tau_max_v, &
55           tau_min_t, tau_max_t, tau_min_q, tau_max_q, tau_min_p, tau_max_p, &           tau_min_t, tau_max_t, tau_min_q, tau_max_q, tau_min_p, tau_max_p, &
56           lat_min_guide, lat_max_guide           lat_min_guide_deg, lat_max_guide_deg
57    
58      !-----------------------------------------------------------------------      !-----------------------------------------------------------------------
59    
# Line 59  contains Line 63  contains
63      read(unit=*, nml=conf_guide_nml)      read(unit=*, nml=conf_guide_nml)
64      write(unit_nml, nml=conf_guide_nml)      write(unit_nml, nml=conf_guide_nml)
65    
66        lat_min_guide = lat_min_guide_deg / 180. * pi
67        lat_max_guide = lat_max_guide_deg / 180. * pi
68    
69      ok_guide = any((/guide_u, guide_v, guide_t, guide_q/))      ok_guide = any((/guide_u, guide_v, guide_t, guide_q/))
70      if (ok_guide .and. mod(day_step, 4 * iperiod) /= 0) call &      if (ok_guide .and. mod(day_step, 4 * iperiod) /= 0) call &
71           abort_gcm(modname = "conf_guide", &           abort_gcm(modname = "conf_guide", &
Legend:
Removed from v.139  
changed lines
  Added in v.140
  ViewVC Help
Powered by ViewVC 1.1.21