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

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

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

revision 210 by guez, Tue Dec 13 16:02:23 2016 UTC revision 211 by guez, Tue Dec 13 17:23:09 2016 UTC
# Line 4  module tau2alpha_m Line 4  module tau2alpha_m
4    
5  contains  contains
6    
7    SUBROUTINE tau2alpha(dxdy, rlat, taumin, taumax, alpha)    SUBROUTINE tau2alpha(lat_min_guide, lat_max_guide, factt, dxdy, rlat, &
8           taumin, taumax, alpha)
9    
     use conf_guide_m, only: lat_min_guide, lat_max_guide, factt  
10      use init_tau2alpha_m, only: dxdy_min, dxdy_max, gamma      use init_tau2alpha_m, only: dxdy_min, dxdy_max, gamma
11      USE nr_util, ONLY: assert_eq      USE nr_util, ONLY: assert_eq
12    
13        ! Dans le cas où on n'a les analyses que sur une bande de latitudes :
14        REAL, intent(in):: lat_min_guide ! minimum latitude for nudging, in rad
15        real, intent(in):: lat_max_guide ! maximum latitude for nudging, in rad
16    
17        REAL, intent(in):: factt
18        ! pas de temps entre deux appels au guidage, en jours
19        
20      REAL, intent(in):: dxdy(:, :) ! (n_lon, n_lat)      REAL, intent(in):: dxdy(:, :) ! (n_lon, n_lat)
21      REAL, intent(in):: rlat(:) ! (n_lat)      REAL, intent(in):: rlat(:) ! (n_lat)
22      REAL, intent(in):: taumin, taumax      REAL, intent(in):: taumin, taumax
Legend:
Removed from v.210  
changed lines
  Added in v.211
  ViewVC Help
Powered by ViewVC 1.1.21