/[MITgcm]/MITgcm_contrib/dgoldberg/streamice/streamice_readparms.F
ViewVC logotype

Diff of /MITgcm_contrib/dgoldberg/streamice/streamice_readparms.F

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

revision 1.1 by heimbach, Thu Mar 29 15:59:21 2012 UTC revision 1.3 by dgoldberg, Tue Jul 24 20:49:41 2012 UTC
# Line 48  C     iUnit      :: Work variable for IO Line 48  C     iUnit      :: Work variable for IO
48       &     STREAMICE_dump_mnc, STREAMICE_tave_mnc,       &     STREAMICE_dump_mnc, STREAMICE_tave_mnc,
49       &     STREAMICE_GL_regularize, STREAMICE_move_front,       &     STREAMICE_GL_regularize, STREAMICE_move_front,
50       &     STREAMICE_calve_to_mask,       &     STREAMICE_calve_to_mask,
51       &     STREAMICE_construct_matrix,  !     &     STREAMICE_construct_matrix,
52       &     STREAMICE_lower_cg_tol,       &     STREAMICE_lower_cg_tol,
53       &     streamice_CFL_factor       &     streamice_CFL_factor
54    
# Line 115  C--   Default values for STREAMICE Line 115  C--   Default values for STREAMICE
115        STREAMICE_GL_regularize = .FALSE.        STREAMICE_GL_regularize = .FALSE.
116        STREAMICE_move_front = .FALSE.        STREAMICE_move_front = .FALSE.
117        STREAMICE_calve_to_mask = .FALSE.        STREAMICE_calve_to_mask = .FALSE.
118        STREAMICE_construct_matrix = .TRUE.  !      STREAMICE_construct_matrix = .TRUE.
119        STREAMICE_lower_cg_tol = .FALSE.        STREAMICE_lower_cg_tol = .FALSE.
120    
121        min_x_noflow_NORTH = 0.        min_x_noflow_NORTH = 0.
# Line 174  C     Read parameters from open data fil Line 174  C     Read parameters from open data fil
174       &    'STREAMICE_READPARMS: read first param block'       &    'STREAMICE_READPARMS: read first param block'
175        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
176       &    SQUEEZE_RIGHT , 1)       &    SQUEEZE_RIGHT , 1)
       READ(UNIT=iUnit,NML=STREAMICE_PARM02)  
177    
178        IF (TRIM(STREAMICEthickInit) .eq. "PARAM") THEN        IF (TRIM(STREAMICEthickInit) .eq. "PARAM") THEN
179           READ(UNIT=iUnit,NML=STREAMICE_PARM02)
180          WRITE(msgBuf,'(A)')          WRITE(msgBuf,'(A)')
181       &    'STREAMICE_READPARMS: read second param block'       &    'STREAMICE_READPARMS: read second param block'
182         CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,         CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
183       &    SQUEEZE_RIGHT , 1)       &    SQUEEZE_RIGHT , 1)
        READ(UNIT=iUnit,NML=STREAMICE_PARM03)  
184        ENDIF        ENDIF
185    
186          READ(UNIT=iUnit,NML=STREAMICE_PARM03)
187        WRITE(msgBuf,'(A)')        WRITE(msgBuf,'(A)')
188       &    'STREAMICE_READPARMS: read third param block'       &    'STREAMICE_READPARMS: read third param block'
189        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22