/[MITgcm]/MITgcm_contrib/plumes/plume2dyn.F
ViewVC logotype

Diff of /MITgcm_contrib/plumes/plume2dyn.F

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

revision 1.4 by molod, Wed May 26 03:10:27 2004 UTC revision 1.6 by molod, Tue Jun 1 22:31:34 2004 UTC
# Line 46  C*************************************** Line 46  C***************************************
46        _RL qdyn2(idim1:idim2,jdim1:jdim2,Lmplume,Nsx,Nsy)        _RL qdyn2(idim1:idim2,jdim1:jdim2,Lmplume,Nsx,Nsy)
47    
48        integer i,j,L,iplume        integer i,j,L,iplume
49        _RL qplumeav(i1,j2,Lmplume)        _RL qplumeav(i2,j2,Lmplume)
50        _RL sqrtarg        _RL sqrtarg
51    
52  C First step - compute the average of qplume over Nxplume  C First step - compute the average of qplume over Nxplume
# Line 88  C the angle given by uref and vref Line 88  C the angle given by uref and vref
88          else          else
89           qdyn1(i,j,L,bi,bj) = qplumeav(i,j,L)           qdyn1(i,j,L,bi,bj) = qplumeav(i,j,L)
90           qdyn2(i,j,L,bi,bj) = 0.           qdyn2(i,j,L,bi,bj) = 0.
91            endif
92         enddo         enddo
93         enddo         enddo
94         enddo         enddo
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22