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 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
  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, lllm, lllmm1, &
8	lllmp1, 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	r = cpp * kappa
27	PRINT *, 'cpp = ', cpp
28	PRINT *, 'R = ', r
29	PRINT *, 'kappa = ', kappa
30	CALL disvert
31
32	END SUBROUTINE iniconst