7 |
|
|
8 |
private iip1, jjp1, jjm |
private iip1, jjp1, jjm |
9 |
|
|
|
REAL lat_min_guide, lat_max_guide |
|
10 |
REAL dxdys(iip1, jjp1), dxdyu(iip1, jjp1), dxdyv(iip1, jjm) |
REAL dxdys(iip1, jjp1), dxdyu(iip1, jjp1), dxdyv(iip1, jjm) |
11 |
|
|
12 |
contains |
contains |
13 |
|
|
14 |
SUBROUTINE tau2alpha(type, pim, pjm, factt, taumin, taumax, alpha) |
SUBROUTINE tau2alpha(type, pim, pjm, factt, taumin, taumax, alpha) |
15 |
|
|
16 |
|
USE comgeom, ONLY : cu_2d, cv_2d, rlatu, rlatv |
17 |
|
use conf_guide_m, only: lat_min_guide, lat_max_guide |
18 |
|
use dump2d_m, only: dump2d |
19 |
USE dimens_m, ONLY : iim |
USE dimens_m, ONLY : iim |
20 |
USE nr_util, ONLY : pi |
USE nr_util, ONLY : pi |
|
USE comgeom, ONLY : cu_2d, cv_2d, rlatu, rlatv |
|
21 |
USE serre, ONLY : clat, clon, grossismx, grossismy |
USE serre, ONLY : clat, clon, grossismx, grossismy |
22 |
|
|
23 |
! arguments : |
! arguments : |
72 |
END DO |
END DO |
73 |
DO j = 1, jjm |
DO j = 1, jjm |
74 |
DO i = 1, iip1 |
DO i = 1, iip1 |
75 |
dxdyv(i, j) = 0.5*(dxdys(i, j)+dxdys(i+1, j)) |
dxdyv(i, j) = 0.5*(dxdys(i, j)+dxdys(i, j + 1)) |
76 |
END DO |
END DO |
77 |
END DO |
END DO |
78 |
|
|