7 |
contains |
contains |
8 |
|
|
9 |
SUBROUTINE tau2alpha(type, pim, pjm, factt, taumin, taumax, alpha) |
SUBROUTINE tau2alpha(type, pim, pjm, factt, taumin, taumax, alpha) |
|
!======================================================================= |
|
10 |
|
|
11 |
USE dimens_m, ONLY : iim, jjm |
USE dimens_m, ONLY : iim, jjm |
12 |
USE paramet_m, ONLY : iip1, jjp1 |
USE paramet_m, ONLY : iip1, jjp1 |
13 |
USE comconst, ONLY : pi |
USE nr_util, ONLY : pi |
14 |
USE comgeom, ONLY : cu_2d, cv_2d, rlatu, rlatv |
USE comgeom, ONLY : cu_2d, cv_2d, rlatu, rlatv |
15 |
USE serre, ONLY : clat, clon, grossismx, grossismy |
USE serre, ONLY : clat, clon, grossismx, grossismy |
16 |
|
|