1 |
SUBROUTINE iniconst |
2 |
|
3 |
! From dyn3d/iniconst.F,v 1.1.1.1 2004/05/19 12:53:05 |
4 |
! P. Le Van |
5 |
|
6 |
USE dimens_m, ONLY : iim, jjm, llm |
7 |
USE comconst, ONLY : cpp, dtphys, dtvr, im, imp1, jm, kappa, & |
8 |
lllm, lllmm1, lllmp1, pi, r, unsim |
9 |
USE comvert, ONLY : disvert |
10 |
USE conf_gcm_m, ONLY : iphysiq |
11 |
|
12 |
IMPLICIT NONE |
13 |
|
14 |
!----------------------------------------------------------------------- |
15 |
|
16 |
! dimension des boucles: |
17 |
im = iim |
18 |
jm = jjm |
19 |
lllm = llm |
20 |
imp1 = iim |
21 |
lllmm1 = llm - 1 |
22 |
lllmp1 = llm + 1 |
23 |
|
24 |
dtphys = iphysiq * dtvr |
25 |
unsim = 1./iim |
26 |
pi = 2.*ASIN( 1. ) |
27 |
r = cpp * kappa |
28 |
PRINT *, 'cpp = ', cpp |
29 |
PRINT *, 'R = ', r |
30 |
PRINT *, 'kappa = ', kappa |
31 |
CALL disvert |
32 |
|
33 |
END SUBROUTINE iniconst |