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 conf_guide_m, only: lat_min_guide, lat_max_guide |
17 |
USE dimens_m, ONLY : iim |
USE dimens_m, ONLY : iim |
18 |
USE nr_util, ONLY : pi |
USE nr_util, ONLY : pi |
19 |
USE comgeom, ONLY : cu_2d, cv_2d, rlatu, rlatv |
USE comgeom, ONLY : cu_2d, cv_2d, rlatu, rlatv |