/[MITgcm]/MITgcm/pkg/opps/opps_calc.F
ViewVC logotype

Diff of /MITgcm/pkg/opps/opps_calc.F

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

revision 1.8 by jmc, Tue Aug 24 14:58:48 2010 UTC revision 1.9 by jmc, Fri Jun 24 01:08:18 2011 UTC
# Line 7  CBOP Line 7  CBOP
7  C !ROUTINE: OPPS_CALC  C !ROUTINE: OPPS_CALC
8    
9  C !INTERFACE: ======================================================  C !INTERFACE: ======================================================
10        subroutine OPPS_CALC(        SUBROUTINE OPPS_CALC(
11       U     tracerEnv,       U     tracerEnv,
12       I     wVel,       I     wVel,
13       I     kMax, nTracer, nTracerInuse,       I     kMax, nTracer, nTracerInuse,
# Line 920  c next, solve for the vertical velocity Line 920  c next, solve for the vertical velocity
920  c and eq 5 from the paper  c and eq 5 from the paper
921  c  c
922                   if(debug) then                   if(debug) then
923                     write(0,*)"Dd,De,entr,k ",Dd(k2),De(k2),entrainrate,k2                    write(0,*)"Dd,De,entr,k ",Dd(k2),De(k2),entrainrate,k2
924                   endif                   endif
925  c  c
926                   wsqr = wsqr - wsqr*abs(entrainrate)+ 9.81*                   wsqr = wsqr - wsqr*abs(entrainrate)+ 9.81*
Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9
  ViewVC Help
Powered by ViewVC 1.1.22