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