/[lmdze]/trunk/libf/dyn3d/iniconst.f90
ViewVC logotype

Diff of /trunk/libf/dyn3d/iniconst.f90

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 3 by guez, Wed Feb 27 13:16:39 2008 UTC revision 39 by guez, Tue Jan 25 15:11:05 2011 UTC
# Line 3  SUBROUTINE iniconst Line 3  SUBROUTINE iniconst
3    ! From dyn3d/iniconst.F,v 1.1.1.1 2004/05/19 12:53:05    ! From dyn3d/iniconst.F,v 1.1.1.1 2004/05/19 12:53:05
4    ! P. Le Van    ! P. Le Van
5    
6    use dimens_m    USE dimens_m, ONLY : iim, jjm, llm
7    use paramet_m    USE comconst, ONLY : cpp, dtphys, dtvr, im, imp1, jm, kappa, lllm, lllmm1, &
8    use comconst, only: cpp, dtdiss, dtphys, dtvr, im, imp1, jm, kappa, lllm, &         lllmp1, r, unsim
9         lllmm1, lllmp1, pi, r, unsim    USE comvert, ONLY : disvert
10    use comvert, only: disvert    USE conf_gcm_m, ONLY : iphysiq
   use conf_gcm_m, only: idissip, iphysiq  
   use temps  
11    
12    IMPLICIT NONE    IMPLICIT NONE
13    
# Line 23  SUBROUTINE iniconst Line 21  SUBROUTINE iniconst
21    lllmm1  = llm - 1    lllmm1  = llm - 1
22    lllmp1  = llm + 1    lllmp1  = llm + 1
23    
   dtdiss  = idissip * dtvr  
24    dtphys  = iphysiq * dtvr    dtphys  = iphysiq * dtvr
25    unsim   = 1./iim    unsim   = 1./iim
   pi      = 2.*ASIN( 1. )  
26    r       = cpp * kappa    r       = cpp * kappa
27    PRINT *, 'cpp = ', cpp    PRINT *, 'cpp = ', cpp
28    PRINT *, 'R = ', r    PRINT *, 'R = ', r
Legend:
Removed from v.3  
changed lines
  Added in v.39
  ViewVC Help
Powered by ViewVC 1.1.21