/[MITgcm]/MITgcm/pkg/fizhi/fizhi_gwdrag.F
ViewVC logotype

Diff of /MITgcm/pkg/fizhi/fizhi_gwdrag.F

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

revision 1.10 by ce107, Fri Jun 17 16:51:24 2005 UTC revision 1.11 by jmc, Fri Jul 1 01:12:00 2005 UTC
# Line 72  c --------------- Line 72  c ---------------
72        _RL us(istrip,Lm), vs(istrip,Lm), ts(istrip,Lm)        _RL us(istrip,Lm), vs(istrip,Lm), ts(istrip,Lm)
73        _RL dragus(istrip,Lm), dragvs(istrip,Lm)        _RL dragus(istrip,Lm), dragvs(istrip,Lm)
74        _RL dragxs(istrip), dragys(istrip)        _RL dragxs(istrip), dragys(istrip)
75        _RL plstr(istrip,Lm),plestr(istrip,Lm),dpresstr(istrip,Lm)        _RL plstr(istrip,Lm),plestr(istrip,Lm+1),dpresstr(istrip,Lm)
76        integer nthinstr(istrip),nbasestr(istrip)        integer nthinstr(istrip),nbasestr(istrip)
77    
78        integer n,i,j,L        integer n,i,j,L
# Line 162  c -------------------------------------- Line 162  c --------------------------------------
162        call stripit ( vz,vs,im*jm,im*jm,istrip,Lm,n )        call stripit ( vz,vs,im*jm,im*jm,istrip,Lm,n )
163        call stripit ( tv,ts,im*jm,im*jm,istrip,Lm,n )        call stripit ( tv,ts,im*jm,im*jm,istrip,Lm,n )
164        call stripit ( pl,plstr,im*jm,im*jm,istrip,Lm,n )        call stripit ( pl,plstr,im*jm,im*jm,istrip,Lm,n )
165        call stripit ( ple,plestr,im*jm,im*jm,istrip,Lm,n )        call stripit ( ple,plestr,im*jm,im*jm,istrip,Lm+1,n )
166        call stripit ( dpres,dpresstr,im*jm,im*jm,istrip,Lm,n )        call stripit ( dpres,dpresstr,im*jm,im*jm,istrip,Lm,n )
167        call stripitint ( nthin,nthinstr,im*jm,im*jm,istrip,1,n )        call stripitint ( nthin,nthinstr,im*jm,im*jm,istrip,1,n )
168        call stripitint ( nbase,nbasestr,im*jm,im*jm,istrip,1,n )        call stripitint ( nbase,nbasestr,im*jm,im*jm,istrip,1,n )
Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11
  ViewVC Help
Powered by ViewVC 1.1.22