Parent Directory | Revision Log | Revision Graph | Patch
revision 1.9 by jmc, Tue Oct 9 00:01:42 2007 UTC | revision 1.10 by dfer, Fri Oct 26 21:08:12 2007 UTC | |
---|---|---|
# | Line 52 CEOP | Line 52 CEOP |
52 | #ifdef ALLOW_OLD_VIRTUALFLUX | #ifdef ALLOW_OLD_VIRTUALFLUX |
53 | DO j=jmin,jmax | DO j=jmin,jmax |
54 | DO i=imin,imax | DO i=imin,imax |
55 | IF (maskC(i,j,1,bi,bj).NE.0.) THEN | IF (maskC(i,j,1,bi,bj).NE.0. _d 0) THEN |
56 | c calculate virtual flux | c calculate virtual flux |
57 | c EminusPforV = dS/dt*(1/Sglob) | c EminusPforV = dS/dt*(1/Sglob) |
58 | C NOTE: Be very careful with signs here! | C NOTE: Be very careful with signs here! |
|
ViewVC Help | |
Powered by ViewVC 1.1.22 |