1 |
guez |
3 |
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 |
7 |
|
|
use paramet_m |
8 |
|
|
use comconst, only: cpp, dtdiss, dtphys, dtvr, im, imp1, jm, kappa, lllm, & |
9 |
|
|
lllmm1, lllmp1, pi, r, unsim |
10 |
|
|
use comvert, only: disvert |
11 |
|
|
use conf_gcm_m, only: idissip, iphysiq |
12 |
|
|
use temps |
13 |
|
|
|
14 |
|
|
IMPLICIT NONE |
15 |
|
|
|
16 |
|
|
!----------------------------------------------------------------------- |
17 |
|
|
|
18 |
|
|
! dimension des boucles: |
19 |
|
|
im = iim |
20 |
|
|
jm = jjm |
21 |
|
|
lllm = llm |
22 |
|
|
imp1 = iim |
23 |
|
|
lllmm1 = llm - 1 |
24 |
|
|
lllmp1 = llm + 1 |
25 |
|
|
|
26 |
|
|
dtdiss = idissip * dtvr |
27 |
|
|
dtphys = iphysiq * dtvr |
28 |
|
|
unsim = 1./iim |
29 |
|
|
pi = 2.*ASIN( 1. ) |
30 |
|
|
r = cpp * kappa |
31 |
|
|
PRINT *, 'cpp = ', cpp |
32 |
|
|
PRINT *, 'R = ', r |
33 |
|
|
PRINT *, 'kappa = ', kappa |
34 |
|
|
CALL disvert |
35 |
|
|
|
36 |
|
|
END SUBROUTINE iniconst |