/[lmdze]/trunk/Sources/dyn3d/Guide/init_tau2alpha.f
ViewVC logotype

Diff of /trunk/Sources/dyn3d/Guide/init_tau2alpha.f

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

revision 138 by guez, Wed Apr 29 15:47:56 2015 UTC revision 139 by guez, Tue May 26 17:46:03 2015 UTC
# Line 8  contains Line 8  contains
8    
9    SUBROUTINE init_tau2alpha(dxdys, dxdyu, dxdyv)    SUBROUTINE init_tau2alpha(dxdys, dxdyu, dxdyv)
10    
11      USE comgeom, ONLY: cu_2d, cv_2d, rlatu      USE comgeom, ONLY: cu_2d, cv_2d
12      use conf_guide_m, only: guide_u, guide_v      use conf_guide_m, only: guide_u, guide_v
13      use coordij_m, only: coordij      use coordij_m, only: coordij
14      USE dimens_m, ONLY: iim, jjm      USE dimens_m, ONLY: iim, jjm
15        USE dynetat0_m, ONLY: clat, clon, grossismx, grossismy, rlatu
16      USE paramet_m, ONLY: iip1, jjp1      USE paramet_m, ONLY: iip1, jjp1
     USE serre, ONLY: clat, clon, grossismx, grossismy  
17      use writefield_m, only: writefield      use writefield_m, only: writefield
18    
19      REAL, intent(out):: dxdys(iip1, jjp1), dxdyu(iip1, jjp1), dxdyv(iip1, jjm)      REAL, intent(out):: dxdys(iip1, jjp1), dxdyu(iip1, jjp1), dxdyv(iip1, jjm)
Legend:
Removed from v.138  
changed lines
  Added in v.139
  ViewVC Help
Powered by ViewVC 1.1.21