/[MITgcm]/MITgcm/pkg/generic_advdiff/gad_os7mp_adv_y.F
ViewVC logotype

Diff of /MITgcm/pkg/generic_advdiff/gad_os7mp_adv_y.F

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

revision 1.5 by adcroft, Fri May 11 18:24:31 2007 UTC revision 1.6 by jmc, Wed Jun 13 18:45:26 2007 UTC
# Line 157  C        MP limiter Line 157  C        MP limiter
157           A = 4.*d2 - d2p1           A = 4.*d2 - d2p1
158           B = 4.*d2p1 - d2           B = 4.*d2p1 - d2
159           C = d2           C = d2
160           D = d2p1;           D = d2p1
161           dp1h = max(min(A,B,C,D),0. _d 0)+min(max(A,B,C,D),0. _d 0)           dp1h = max(min(A,B,C,D),0. _d 0)+min(max(A,B,C,D),0. _d 0)
162           A = 4.*d2m1 - d2           A = 4.*d2m1 - d2
163           B = 4.*d2 - d2m1           B = 4.*d2 - d2m1
164           C = d2m1           C = d2m1
165           D = d2;           D = d2
166           dm1h = max(min(A,B,C,D),0. _d 0)+min(max(A,B,C,D),0. _d 0)           dm1h = max(min(A,B,C,D),0. _d 0)+min(max(A,B,C,D),0. _d 0)
167          !qMD = 0.5*( ( Qi + Qip ) - dp1h )          !qMD = 0.5*( ( Qi + Qip ) - dp1h )
168           qMD = 0.5*( ( 2.*Qi + DelIp ) - dp1h )           qMD = 0.5*( ( 2.*Qi + DelIp ) - dp1h )
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22