1 |
module tau2alpha_m |
module tau2alpha_m |
2 |
|
|
3 |
|
USE paramet_m, ONLY : iip1, jjp1 |
4 |
|
USE dimens_m, ONLY : jjm |
5 |
|
|
6 |
IMPLICIT NONE |
IMPLICIT NONE |
7 |
|
|
8 |
REAL lat_min_guide, lat_max_guide |
private iip1, jjp1, jjm |
9 |
|
|
10 |
|
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 dimens_m, ONLY : iim, jjm |
use conf_guide_m, only: lat_min_guide, lat_max_guide |
17 |
USE paramet_m, ONLY : iip1, jjp1 |
USE dimens_m, ONLY : iim |
18 |
USE comconst, 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 |
20 |
USE serre, ONLY : clat, clon, grossismx, grossismy |
USE serre, ONLY : clat, clon, grossismx, grossismy |
21 |
|
|
22 |
! arguments : |
! arguments : |
23 |
INTEGER type |
INTEGER type |
24 |
INTEGER pim, pjm |
INTEGER pim, pjm |
25 |
REAL factt, taumin, taumax |
REAL, intent(in):: factt, taumin, taumax |
26 |
REAL dxdy_, alpha(pim, pjm) |
REAL dxdy_, alpha(pim, pjm) |
27 |
REAL dxdy_min, dxdy_max |
REAL dxdy_min, dxdy_max |
28 |
|
|
36 |
DATA first/ .TRUE./ |
DATA first/ .TRUE./ |
37 |
|
|
38 |
REAL zdx(iip1, jjp1), zdy(iip1, jjp1) |
REAL zdx(iip1, jjp1), zdy(iip1, jjp1) |
|
|
|
39 |
REAL zlat |
REAL zlat |
40 |
REAL dxdys(iip1, jjp1), dxdyu(iip1, jjp1), dxdyv(iip1, jjm) |
|
41 |
COMMON /comdxdy/dxdys, dxdyu, dxdyv |
!------------------------------------------------------------ |
42 |
|
|
43 |
IF (first) THEN |
IF (first) THEN |
44 |
DO j = 2, jjm |
DO j = 2, jjm |