/[lmdze]/trunk/dyn3d/tau2alpha.f
ViewVC logotype

Diff of /trunk/dyn3d/tau2alpha.f

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

revision 37 by guez, Tue Dec 21 15:45:48 2010 UTC revision 39 by guez, Tue Jan 25 15:11:05 2011 UTC
# Line 7  module tau2alpha_m Line 7  module tau2alpha_m
7  contains  contains
8    
9    SUBROUTINE tau2alpha(type, pim, pjm, factt, taumin, taumax, alpha)    SUBROUTINE tau2alpha(type, pim, pjm, factt, taumin, taumax, alpha)
     !=======================================================================  
10    
11      USE dimens_m, ONLY : iim, jjm      USE dimens_m, ONLY : iim, jjm
12      USE paramet_m, ONLY : iip1, jjp1      USE paramet_m, ONLY : iip1, jjp1
13      USE comconst, ONLY : pi      USE nr_util, ONLY : pi
14      USE comgeom, ONLY : cu_2d, cv_2d, rlatu, rlatv      USE comgeom, ONLY : cu_2d, cv_2d, rlatu, rlatv
15      USE serre, ONLY : clat, clon, grossismx, grossismy      USE serre, ONLY : clat, clon, grossismx, grossismy
16    
Legend:
Removed from v.37  
changed lines
  Added in v.39
  ViewVC Help
Powered by ViewVC 1.1.21