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
  use paramet_m
  use comconst, only: cpp, dtdiss, dtphys, dtvr, im, imp1, jm, kappa, lllm, &
       lllmm1, lllmp1, pi, r, unsim
  use comvert, only: disvert
  use conf_gcm_m, only: idissip, iphysiq
  use temps

  IMPLICIT NONE

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

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

  dtdiss  = idissip * dtvr
  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
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