/[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 26 by guez, Tue Mar 9 15:27:15 2010 UTC revision 39 by guez, Tue Jan 25 15:11:05 2011 UTC
# Line 4  SUBROUTINE iniconst Line 4  SUBROUTINE iniconst
4    ! P. Le Van    ! P. Le Van
5    
6    USE dimens_m, ONLY : iim, jjm, llm    USE dimens_m, ONLY : iim, jjm, llm
7    USE comconst, ONLY : cpp, dtphys, dtvr, im, imp1, jm, kappa, &    USE comconst, ONLY : cpp, dtphys, dtvr, im, imp1, jm, kappa, lllm, lllmm1, &
8         lllm, lllmm1, lllmp1, pi, r, unsim         lllmp1, r, unsim
9    USE comvert, ONLY : disvert    USE comvert, ONLY : disvert
10    USE conf_gcm_m, ONLY : iphysiq    USE conf_gcm_m, ONLY : iphysiq
11    
# Line 23  SUBROUTINE iniconst Line 23  SUBROUTINE iniconst
23    
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.26  
changed lines
  Added in v.39
  ViewVC Help
Powered by ViewVC 1.1.21