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	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