/[MITgcm]/MITgcm_contrib/dgoldberg/shelfice/shelfice_init_fixed.F
ViewVC logotype

Diff of /MITgcm_contrib/dgoldberg/shelfice/shelfice_init_fixed.F

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

revision 1.1 by dgoldberg, Wed Aug 27 19:26:17 2014 UTC revision 1.2 by dgoldberg, Sun Dec 14 18:48:40 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    
13        SUBROUTINE SHELFICE_INIT_FIXED( myThid )        SUBROUTINE SHELFICE_INIT_FIXED( myThid )
14  C     *============================================================*  C     *============================================================*
# Line 103  c--   use weight as mask Line 110  c--   use weight as mask
110        ENDDO        ENDDO
111        CALL ACTIVE_WRITE_XY_LOC( 'wshifwflx', wshifwflx,        CALL ACTIVE_WRITE_XY_LOC( 'wshifwflx', wshifwflx,
112       &                          1, 0, myThid, dummy )       &                          1, 0, myThid, dummy )
113  #endif /* ALLOW_SHIFWFLX_COST_CONTRIBUTION or ALLOW_SHIFWFLX_CONTROL */  #endif /* ALLOW_SHIFWFLX_COST_CONTRIBUTION and ALLOW_SHIFWFLX_CONTROL */
114  #endif /* ALLOW_COST */  #endif /* ALLOW_COST */
115    
116        IF ( SHELFICEloadAnomalyFile .NE. ' ' ) THEN        IF ( SHELFICEloadAnomalyFile .NE. ' ' ) THEN
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22