/[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.3 by dimitri, Thu Apr 30 13:42:30 2009 UTC revision 1.4 by jmc, Wed Jul 8 21:58:30 2009 UTC
# Line 4  C $Name$ Line 4  C $Name$
4  #include "SHELFICE_OPTIONS.h"  #include "SHELFICE_OPTIONS.h"
5    
6        SUBROUTINE SHELFICE_INIT_FIXED( myThid )        SUBROUTINE SHELFICE_INIT_FIXED( myThid )
7  C     /============================================================\  C     *============================================================*
8  C     | SUBROUTINE SHELFICE_INIT_FIXED                             |  C     | SUBROUTINE SHELFICE_INIT_FIXED
9  C     | o Routine to initialize SHELFICE parameters and variables. |  C     | o Routine to initialize SHELFICE parameters and variables.
10  C     |============================================================|  C     *============================================================*
11  C     | Initialize SHELFICE parameters and variables.              |  C     | Initialize SHELFICE parameters and variables.
12  C     \============================================================/  C     *============================================================*
13        IMPLICIT NONE        IMPLICIT NONE
14    
15  C     === Global variables ===  C     === Global variables ===
# Line 35  C     I,J,K,bi,bj - Loop counters Line 35  C     I,J,K,bi,bj - Loop counters
35        CHARACTER*(80) diagTitle        CHARACTER*(80) diagTitle
36  #endif /* ALLOW_DIAGNOSTICS */  #endif /* ALLOW_DIAGNOSTICS */
37    
38    #ifdef ALLOW_MNC
39    C     Initialize MNC variable information for SHELFICE
40          IF ( useMNC .AND. (shelfice_tave_mnc.OR.shelfice_dump_mnc)
41         &    ) THEN
42            CALL SHELFICE_MNC_INIT( myThid )
43          ENDIF
44    #endif /* ALLOW_MNC */
45    
46  C-----------------------------------------------------------------------  C-----------------------------------------------------------------------
47  C--   Initialize SHELFICE variables kTopC  C--   Initialize SHELFICE variables kTopC
48  C--   kTopC is the same as kSurfC, except for places over land.  C--   kTopC is the same as kSurfC, except for places over land.
# Line 104  C--------------------------------------- Line 112  C---------------------------------------
112    
113        RETURN        RETURN
114        END        END
   
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22