/[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.2 by dgoldberg, Mon May 14 16:47:27 2012 UTC revision 1.4 by heimbach, Fri Jul 27 21:07:13 2012 UTC
# Line 50  C     iUnit      :: Work variable for IO Line 50  C     iUnit      :: Work variable for IO
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         &     streamice_adjDump
55    
56        NAMELIST /STREAMICE_PARM02/        NAMELIST /STREAMICE_PARM02/
57       &     shelf_max_draft,       &     shelf_max_draft,
# Line 102  C--   Default values for STREAMICE Line 103  C--   Default values for STREAMICE
103        streamice_max_nl_iter = 100        streamice_max_nl_iter = 100
104        streamice_n_sub_regularize = 4        streamice_n_sub_regularize = 4
105        streamice_CFL_factor = .5        streamice_CFL_factor = .5
106          streamice_adjDump = 0.
107                
108        STREAMICEthickInit = 'FILE'        STREAMICEthickInit = 'FILE'
109        STREAMICEthickFile = ' '        STREAMICEthickFile = ' '
# Line 174  C     Read parameters from open data fil Line 176  C     Read parameters from open data fil
176       &    'STREAMICE_READPARMS: read first param block'       &    'STREAMICE_READPARMS: read first param block'
177        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
178       &    SQUEEZE_RIGHT , 1)       &    SQUEEZE_RIGHT , 1)
       READ(UNIT=iUnit,NML=STREAMICE_PARM02)  
179    
180        IF (TRIM(STREAMICEthickInit) .eq. "PARAM") THEN        IF (TRIM(STREAMICEthickInit) .eq. "PARAM") THEN
181           READ(UNIT=iUnit,NML=STREAMICE_PARM02)
182          WRITE(msgBuf,'(A)')          WRITE(msgBuf,'(A)')
183       &    'STREAMICE_READPARMS: read second param block'       &    'STREAMICE_READPARMS: read second param block'
184         CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,         CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
185       &    SQUEEZE_RIGHT , 1)       &    SQUEEZE_RIGHT , 1)
        READ(UNIT=iUnit,NML=STREAMICE_PARM03)  
186        ENDIF        ENDIF
187    
188          READ(UNIT=iUnit,NML=STREAMICE_PARM03)
189        WRITE(msgBuf,'(A)')        WRITE(msgBuf,'(A)')
190       &    'STREAMICE_READPARMS: read third param block'       &    'STREAMICE_READPARMS: read third param block'
191        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22