/[MITgcm]/MITgcm/pkg/dic/alk_surfforcing.F
ViewVC logotype

Diff of /MITgcm/pkg/dic/alk_surfforcing.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch 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!
Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10
  ViewVC Help
Powered by ViewVC 1.1.22