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 |