/[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.7 by stephd, Fri Dec 16 21:07:53 2005 UTC revision 1.8 by dfer, Mon Aug 27 19:44:13 2007 UTC
# Line 46  C  i,j                  :: loop indices Line 46  C  i,j                  :: loop indices
46        INTEGER i,j        INTEGER i,j
47  CEOP  CEOP
48    
49    #ifdef ALLOW_OLD_VIRTUALFLUX
50          DO j=jmin,jmax          DO j=jmin,jmax
51            DO i=imin,imax            DO i=imin,imax
52              IF (maskC(i,j,1,bi,bj).NE.0.) THEN              IF (maskC(i,j,1,bi,bj).NE.0.) THEN
# Line 66  c Line 67  c
67              ENDIF              ENDIF
68            ENDDO            ENDDO
69           ENDDO           ENDDO
70    #endif /* ALLOW_OLD_VIRTUALFLUX */
71    
72  #endif  #endif
73  #endif  #endif
Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8
  ViewVC Help
Powered by ViewVC 1.1.22