/[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.5 by molod, Wed May 26 14:17:41 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
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22