libf/dyn3d/iniconst.f90

SUBROUTINE iniconst

  ! From dyn3d/iniconst.F,v 1.1.1.1 2004/05/19 12:53:05
  ! P. Le Van

  USE dimens_m, ONLY : iim, jjm, llm
  USE comconst, ONLY : cpp, dtphys, dtvr, im, imp1, jm, kappa, lllm, lllmm1, &
       lllmp1, r, unsim
  USE disvert_m, ONLY : disvert
  USE conf_gcm_m, ONLY : iphysiq

  IMPLICIT NONE

  !-----------------------------------------------------------------------

  !   dimension des boucles:
  im      = iim
  jm      = jjm
  lllm    = llm
  imp1    = iim 
  lllmm1  = llm - 1
  lllmp1  = llm + 1

  dtphys  = iphysiq * dtvr
  unsim   = 1./iim
  r       = cpp * kappa
  PRINT *, 'cpp = ', cpp
  PRINT *, 'R = ', r
  PRINT *, 'kappa = ', kappa
  CALL disvert

END SUBROUTINE iniconst
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	guez	26	USE dimens_m, ONLY : iim, jjm, llm
7	guez	39	USE comconst, ONLY : cpp, dtphys, dtvr, im, imp1, jm, kappa, lllm, lllmm1, &
8			lllmp1, r, unsim
9	guez	66	USE disvert_m, ONLY : disvert
10	guez	26	USE conf_gcm_m, ONLY : iphysiq
11	guez	3
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			r = cpp * kappa
27			PRINT *, 'cpp = ', cpp
28			PRINT *, 'R = ', r
29			PRINT *, 'kappa = ', kappa
30			CALL disvert
31
32			END SUBROUTINE iniconst