/[MITgcm]/MITgcm/pkg/shelfice/shelfice_init_fixed.F
ViewVC logotype

Diff of /MITgcm/pkg/shelfice/shelfice_init_fixed.F

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

revision 1.10 by jmc, Thu Apr 11 18:59:12 2013 UTC revision 1.11 by jmc, Tue Sep 9 22:59:55 2014 UTC
# Line 2  C $Header$ Line 2  C $Header$
2  C $Name$  C $Name$
3    
4  #include "SHELFICE_OPTIONS.h"  #include "SHELFICE_OPTIONS.h"
5    #ifdef ALLOW_COST
6    # include "COST_OPTIONS.h"
7    #endif
8    #ifdef ALLOW_CTRL
9    # include "CTRL_OPTIONS.h"
10    #endif
11    
12        SUBROUTINE SHELFICE_INIT_FIXED( myThid )        SUBROUTINE SHELFICE_INIT_FIXED( myThid )
13  C     *============================================================*  C     *============================================================*
# Line 102  c--   use weight as mask Line 108  c--   use weight as mask
108        ENDDO        ENDDO
109        CALL ACTIVE_WRITE_XY_LOC( 'wshifwflx', wshifwflx,        CALL ACTIVE_WRITE_XY_LOC( 'wshifwflx', wshifwflx,
110       &                          1, 0, myThid, dummy )       &                          1, 0, myThid, dummy )
111  #endif /* ALLOW_SHIFWFLX_COST_CONTRIBUTION or ALLOW_SHIFWFLX_CONTROL */  #endif /* ALLOW_SHIFWFLX_COST_CONTRIBUTION and ALLOW_SHIFWFLX_CONTROL */
112  #endif /* ALLOW_COST */  #endif /* ALLOW_COST */
113    
114        IF ( SHELFICEloadAnomalyFile .NE. ' ' ) THEN        IF ( SHELFICEloadAnomalyFile .NE. ' ' ) THEN
Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11
  ViewVC Help
Powered by ViewVC 1.1.22