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, pi, r, unsim
  USE comvert, 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
  pi      = 2.*ASIN( 1. )
  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			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	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			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