/[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.7 by dgoldberg, Thu Sep 27 20:29:00 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,
45         &     STREAMICEsigcoordInit,
46         &     STREAMICEsigcoordFile,
47       &     STREAMICEthickFile,       &     STREAMICEthickFile,
48       &     STREAMICEcalveMaskFile,       &     STREAMICEcalveMaskFile,
49       &     STREAMICEison,       &     STREAMICEison,
# Line 48  C     iUnit      :: Work variable for IO Line 51  C     iUnit      :: Work variable for IO
51       &     STREAMICE_dump_mnc, STREAMICE_tave_mnc,       &     STREAMICE_dump_mnc, STREAMICE_tave_mnc,
52       &     STREAMICE_GL_regularize, STREAMICE_move_front,       &     STREAMICE_GL_regularize, STREAMICE_move_front,
53       &     STREAMICE_calve_to_mask,       &     STREAMICE_calve_to_mask,
54       &     STREAMICE_construct_matrix,       &     STREAMICE_diagnostic_only,
55    !     &     STREAMICE_construct_matrix,
56       &     STREAMICE_lower_cg_tol,       &     STREAMICE_lower_cg_tol,
57       &     streamice_CFL_factor       &     streamice_CFL_factor,
58         &     streamice_adjDump,
59    !      &     STREAMICE_hybrid_stress,
60         &     streamice_bg_surf_slope_x, streamice_bg_surf_slope_y,
61         &     streamice_kx_b_init, streamice_ky_b_init,
62         &     STREAMICEbasalTracConfig,
63         &     STREAMICEbasalTracFile,
64         &     STREAMICEvelOptimFile,
65         &     STREAMICE_ppm_driving_stress,
66         &     STREAMICE_h_ctrl_const_surf
67    
68    
69        NAMELIST /STREAMICE_PARM02/        NAMELIST /STREAMICE_PARM02/
70       &     shelf_max_draft,       &     shelf_max_draft,
# Line 82  C     iUnit      :: Work variable for IO Line 96  C     iUnit      :: Work variable for IO
96       &     min_y_CFBC_WEST, max_y_CFBC_WEST,       &     min_y_CFBC_WEST, max_y_CFBC_WEST,
97       &     min_y_CFBC_EAST, max_y_CFBC_EAST,       &     min_y_CFBC_EAST, max_y_CFBC_EAST,
98       &     flux_bdry_val_SOUTH, flux_bdry_val_NORTH,       &     flux_bdry_val_SOUTH, flux_bdry_val_NORTH,
99       &     flux_bdry_val_WEST, flux_bdry_val_EAST       &     flux_bdry_val_WEST, flux_bdry_val_EAST,
100         &     STREAMICE_NS_periodic, STREAMICE_EW_periodic
101    
102        _BEGIN_MASTER(myThid)        _BEGIN_MASTER(myThid)
103    
# Line 98  C--   Default values for STREAMICE Line 113  C--   Default values for STREAMICE
113        streamice_vel_update = 169200. ! seconds        streamice_vel_update = 169200. ! seconds
114        streamice_cg_tol = 1e-6        streamice_cg_tol = 1e-6
115        streamice_nonlin_tol = 1e-6        streamice_nonlin_tol = 1e-6
116          streamice_nonlin_tol_fp = 1.e-14
117        streamice_max_cg_iter = 2000        streamice_max_cg_iter = 2000
118        streamice_max_nl_iter = 100        streamice_max_nl_iter = 100
119        streamice_n_sub_regularize = 4        streamice_n_sub_regularize = 4
120        streamice_CFL_factor = .5        streamice_CFL_factor = .5
121                streamice_adjDump = 0.
122          streamice_bg_surf_slope_x = .0
123          streamice_bg_surf_slope_y = 0.
124          streamice_kx_b_init = 1.
125          streamice_ky_b_init = 1.
126    
127        STREAMICEthickInit = 'FILE'        STREAMICEthickInit = 'FILE'
128        STREAMICEthickFile = ' '        STREAMICEthickFile = ' '
129        STREAMICEcalveMaskFile = ' '        STREAMICEcalveMaskFile = ' '
130          STREAMICEsigcoordInit = 'UNIFORM'
131          STREAMICEsigcoordFile = ' '
132          STREAMICEbasalTracConfig = 'UNIFORM'
133          STREAMICEbasalTracFile = ' '
134          STREAMICEvelOptimFile = ''
135    
136        STREAMICEison = .TRUE.        STREAMICEison = .TRUE.
137        STREAMICE_tave_mdsio = .TRUE.        STREAMICE_tave_mdsio = .TRUE.
# Line 115  C--   Default values for STREAMICE Line 141  C--   Default values for STREAMICE
141        STREAMICE_GL_regularize = .FALSE.        STREAMICE_GL_regularize = .FALSE.
142        STREAMICE_move_front = .FALSE.        STREAMICE_move_front = .FALSE.
143        STREAMICE_calve_to_mask = .FALSE.        STREAMICE_calve_to_mask = .FALSE.
144        STREAMICE_construct_matrix = .TRUE.  !      STREAMICE_construct_matrix = .TRUE.
145        STREAMICE_lower_cg_tol = .FALSE.        STREAMICE_lower_cg_tol = .FALSE.
146          STREAMICE_diagnostic_only = .FALSE.
147          STREAMICE_ppm_driving_stress = .FALSE.
148          STREAMICE_h_ctrl_const_surf = .FALSE.
149    !       STREAMICE_hybrid_stress= .FALSE.
150    
151        min_x_noflow_NORTH = 0.        min_x_noflow_NORTH = 0.
152        max_x_noflow_NORTH = 0.        max_x_noflow_NORTH = 0.
# Line 159  C--   Default values for STREAMICE Line 189  C--   Default values for STREAMICE
189        flux_bdry_val_WEST = 0.        flux_bdry_val_WEST = 0.
190        flux_bdry_val_EAST = 0.        flux_bdry_val_EAST = 0.
191    
192          STREAMICE_NS_periodic = .FALSE.
193          STREAMICE_EW_periodic = .FALSE.
194    
195        WRITE(msgBuf,'(A)') 'STREAMICE_READPARMS: opening data.streamice'        WRITE(msgBuf,'(A)') 'STREAMICE_READPARMS: opening data.streamice'
196        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
# Line 174  C     Read parameters from open data fil Line 206  C     Read parameters from open data fil
206       &    'STREAMICE_READPARMS: read first param block'       &    'STREAMICE_READPARMS: read first param block'
207        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
208       &    SQUEEZE_RIGHT , 1)       &    SQUEEZE_RIGHT , 1)
       READ(UNIT=iUnit,NML=STREAMICE_PARM02)  
209    
210        IF (TRIM(STREAMICEthickInit) .eq. "PARAM") THEN        IF (TRIM(STREAMICEthickInit) .eq. "PARAM") THEN
211           READ(UNIT=iUnit,NML=STREAMICE_PARM02)
212          WRITE(msgBuf,'(A)')          WRITE(msgBuf,'(A)')
213       &    'STREAMICE_READPARMS: read second param block'       &    'STREAMICE_READPARMS: read second param block'
214         CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,         CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
215       &    SQUEEZE_RIGHT , 1)       &    SQUEEZE_RIGHT , 1)
        READ(UNIT=iUnit,NML=STREAMICE_PARM03)  
216        ENDIF        ENDIF
217    
218          READ(UNIT=iUnit,NML=STREAMICE_PARM03)
219        WRITE(msgBuf,'(A)')        WRITE(msgBuf,'(A)')
220       &    'STREAMICE_READPARMS: read third param block'       &    'STREAMICE_READPARMS: read third param block'
221        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.22