/[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 26 by guez, Tue Mar 9 15:27:15 2010 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, &
8    use comconst, only: cpp, dtdiss, dtphys, dtvr, im, imp1, jm, kappa, lllm, &         lllm, lllmm1, lllmp1, pi, 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
26    pi      = 2.*ASIN( 1. )    pi      = 2.*ASIN( 1. )
Legend:
Removed from v.3  
changed lines
  Added in v.26
  ViewVC Help
Powered by ViewVC 1.1.21