4 |
! P. Le Van |
! P. Le Van |
5 |
|
|
6 |
USE dimens_m, ONLY : iim, jjm, llm |
USE dimens_m, ONLY : iim, jjm, llm |
7 |
USE comconst, ONLY : cpp, dtphys, dtvr, im, imp1, jm, kappa, & |
USE comconst, ONLY : cpp, dtphys, dtvr, im, imp1, jm, kappa, lllm, lllmm1, & |
8 |
lllm, lllmm1, lllmp1, pi, r, unsim |
lllmp1, r, unsim |
9 |
USE comvert, ONLY : disvert |
USE comvert, ONLY : disvert |
10 |
USE conf_gcm_m, ONLY : iphysiq |
USE conf_gcm_m, ONLY : iphysiq |
11 |
|
|
23 |
|
|
24 |
dtphys = iphysiq * dtvr |
dtphys = iphysiq * dtvr |
25 |
unsim = 1./iim |
unsim = 1./iim |
|
pi = 2.*ASIN( 1. ) |
|
26 |
r = cpp * kappa |
r = cpp * kappa |
27 |
PRINT *, 'cpp = ', cpp |
PRINT *, 'cpp = ', cpp |
28 |
PRINT *, 'R = ', r |
PRINT *, 'R = ', r |