/[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.5 by dgoldberg, Mon Jul 30 19:04:55 2012 UTC
# Line 38  C     iUnit      :: Work variable for IO Line 38  C     iUnit      :: Work variable for IO
38       &     A_glen_isothermal, n_glen, eps_glen_min,       &     A_glen_isothermal, n_glen, eps_glen_min,
39       &     C_basal_fric_const, n_basal_friction,       &     C_basal_fric_const, n_basal_friction,
40       &     streamice_vel_update,streamice_cg_tol,streamice_nonlin_tol,       &     streamice_vel_update,streamice_cg_tol,streamice_nonlin_tol,
41         &     streamice_nonlin_tol_fp,
42       &     streamice_max_cg_iter, streamice_max_nl_iter,       &     streamice_max_cg_iter, streamice_max_nl_iter,
43       &     STREAMICE_GL_regularize,       &     STREAMICE_GL_regularize,
44       &     STREAMICEthickInit,       &     STREAMICEthickInit,
# Line 48  C     iUnit      :: Work variable for IO Line 49  C     iUnit      :: Work variable for IO
49       &     STREAMICE_dump_mnc, STREAMICE_tave_mnc,       &     STREAMICE_dump_mnc, STREAMICE_tave_mnc,
50       &     STREAMICE_GL_regularize, STREAMICE_move_front,       &     STREAMICE_GL_regularize, STREAMICE_move_front,
51       &     STREAMICE_calve_to_mask,       &     STREAMICE_calve_to_mask,
52       &     STREAMICE_construct_matrix,  !     &     STREAMICE_construct_matrix,
53       &     STREAMICE_lower_cg_tol,       &     STREAMICE_lower_cg_tol,
54       &     streamice_CFL_factor       &     streamice_CFL_factor,
55         &     streamice_adjDump
56    
57        NAMELIST /STREAMICE_PARM02/        NAMELIST /STREAMICE_PARM02/
58       &     shelf_max_draft,       &     shelf_max_draft,
# Line 98  C--   Default values for STREAMICE Line 100  C--   Default values for STREAMICE
100        streamice_vel_update = 169200. ! seconds        streamice_vel_update = 169200. ! seconds
101        streamice_cg_tol = 1e-6        streamice_cg_tol = 1e-6
102        streamice_nonlin_tol = 1e-6        streamice_nonlin_tol = 1e-6
103          streamice_nonlin_tol_fp = 1.e-14
104        streamice_max_cg_iter = 2000        streamice_max_cg_iter = 2000
105        streamice_max_nl_iter = 100        streamice_max_nl_iter = 100
106        streamice_n_sub_regularize = 4        streamice_n_sub_regularize = 4
107        streamice_CFL_factor = .5        streamice_CFL_factor = .5
108          streamice_adjDump = 0.
109                
110        STREAMICEthickInit = 'FILE'        STREAMICEthickInit = 'FILE'
111        STREAMICEthickFile = ' '        STREAMICEthickFile = ' '
# Line 115  C--   Default values for STREAMICE Line 119  C--   Default values for STREAMICE
119        STREAMICE_GL_regularize = .FALSE.        STREAMICE_GL_regularize = .FALSE.
120        STREAMICE_move_front = .FALSE.        STREAMICE_move_front = .FALSE.
121        STREAMICE_calve_to_mask = .FALSE.        STREAMICE_calve_to_mask = .FALSE.
122        STREAMICE_construct_matrix = .TRUE.  !      STREAMICE_construct_matrix = .TRUE.
123        STREAMICE_lower_cg_tol = .FALSE.        STREAMICE_lower_cg_tol = .FALSE.
124    
125        min_x_noflow_NORTH = 0.        min_x_noflow_NORTH = 0.
# Line 174  C     Read parameters from open data fil Line 178  C     Read parameters from open data fil
178       &    'STREAMICE_READPARMS: read first param block'       &    'STREAMICE_READPARMS: read first param block'
179        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
180       &    SQUEEZE_RIGHT , 1)       &    SQUEEZE_RIGHT , 1)
       READ(UNIT=iUnit,NML=STREAMICE_PARM02)  
181    
182        IF (TRIM(STREAMICEthickInit) .eq. "PARAM") THEN        IF (TRIM(STREAMICEthickInit) .eq. "PARAM") THEN
183           READ(UNIT=iUnit,NML=STREAMICE_PARM02)
184          WRITE(msgBuf,'(A)')          WRITE(msgBuf,'(A)')
185       &    'STREAMICE_READPARMS: read second param block'       &    'STREAMICE_READPARMS: read second param block'
186         CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,         CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
187       &    SQUEEZE_RIGHT , 1)       &    SQUEEZE_RIGHT , 1)
        READ(UNIT=iUnit,NML=STREAMICE_PARM03)  
188        ENDIF        ENDIF
189    
190          READ(UNIT=iUnit,NML=STREAMICE_PARM03)
191        WRITE(msgBuf,'(A)')        WRITE(msgBuf,'(A)')
192       &    'STREAMICE_READPARMS: read third param block'       &    'STREAMICE_READPARMS: read third param block'
193        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22