/[MITgcm]/MITgcm/pkg/ctrl/ctrl_mask_set_xz.F
ViewVC logotype

Diff of /MITgcm/pkg/ctrl/ctrl_mask_set_xz.F

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

revision 1.5 by heimbach, Mon May 14 22:02:34 2007 UTC revision 1.6 by jmc, Tue Oct 9 00:00:00 2007 UTC
# Line 1  Line 1 
1    C $Header$
2    C $Name$
3    
4  #include "CTRL_CPPOPTIONS.h"  #include "CTRL_CPPOPTIONS.h"
5    
6    
7        subroutine ctrl_mask_set_xz(        subroutine ctrl_mask_set_xz(
8       &     jp1, OB_J, nwetobcs, ymaskobcs, mythid )       &     jp1, OB_J, nwetobcs, ymaskobcs, mythid )
9    
10  c     ==================================================================  c     ==================================================================
# Line 10  c     SUBROUTINE ctrl_mask_set_xz Line 12  c     SUBROUTINE ctrl_mask_set_xz
12  c     ==================================================================  c     ==================================================================
13  c  c
14  c     o count sliced (xz) wet points and set xz masks  c     o count sliced (xz) wet points and set xz masks
15  c      c
16  c     heimbach@mit.edu, 30-Aug-2001  c     heimbach@mit.edu, 30-Aug-2001
17  c     gebbie@mit.edu, corrected array bounds  c     gebbie@mit.edu, corrected array bounds
18  c  c
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22