/[MITgcm]/MITgcm/pkg/streamice/streamice_readparms.F
ViewVC logotype

Diff of /MITgcm/pkg/streamice/streamice_readparms.F

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

revision 1.11 by dgoldberg, Sat Feb 21 19:09:53 2015 UTC revision 1.14 by dgoldberg, Thu Mar 17 20:15:43 2016 UTC
# Line 37  C     iUnit      :: Work variable for IO Line 37  C     iUnit      :: Work variable for IO
37    
38        NAMELIST /STREAMICE_PARM01/        NAMELIST /STREAMICE_PARM01/
39       &     streamice_density, streamice_density_ocean_avg,       &     streamice_density, streamice_density_ocean_avg,
40         &     streamice_density_firn,
41       &     B_glen_isothermal, n_glen, eps_glen_min, eps_u_min,       &     B_glen_isothermal, n_glen, eps_glen_min, eps_u_min,
42       &     C_basal_fric_const, n_basal_friction,       &     C_basal_fric_const, n_basal_friction,
43       &     streamice_vel_update,streamice_cg_tol,streamice_nonlin_tol,       &     streamice_vel_update,streamice_cg_tol,streamice_nonlin_tol,
44       &     streamice_nonlin_tol_fp,       &     streamice_nonlin_tol_fp,
 #if (defined (ALLOW_OPENAD) && defined (ALLOW_STREAMICE_OAD_FP))  
      &     streamice_nonlin_tol_adjoint,  
 #endif  
45       &     streamice_max_cg_iter, streamice_max_nl_iter,       &     streamice_max_cg_iter, streamice_max_nl_iter,
46       &     streamice_maxcgiter_cpl, streamice_maxnliter_cpl,       &     streamice_maxcgiter_cpl, streamice_maxnliter_cpl,
47       &     STREAMICEthickInit,       &     STREAMICEthickInit,
# Line 95  C     iUnit      :: Work variable for IO Line 93  C     iUnit      :: Work variable for IO
93       &     streamice_addl_backstress,       &     streamice_addl_backstress,
94       &     streamice_smooth_gl_width,       &     streamice_smooth_gl_width,
95       &     streamice_adot_uniform,       &     streamice_adot_uniform,
96         &     streamice_firn_correction,
97         &     STREAMICE_apply_firn_correction,
98       &     STREAMICE_ADV_SCHEME, streamice_forcing_period,       &     STREAMICE_ADV_SCHEME, streamice_forcing_period,
99       &     STREAMICE_chkfixedptconvergence,       &     STREAMICE_chkfixedptconvergence,
100       &     STREAMICE_chkresidconvergence,       &     STREAMICE_chkresidconvergence,
101    #ifdef STREAMICE_FLOWLINE_BUTTRESS
102         &     streamice_buttr_width,
103         &     useStreamiceFlowlineButtr,
104    #endif
105       &     STREAMICE_allow_cpl       &     STREAMICE_allow_cpl
106    
107  #ifdef ALLOW_STREAMICE_2DTRACER  #ifdef ALLOW_STREAMICE_2DTRACER
# Line 113  C     iUnit      :: Work variable for IO Line 117  C     iUnit      :: Work variable for IO
117       &     streamice_use_petsc       &     streamice_use_petsc
118  #endif  #endif
119    
120    #if (defined (ALLOW_OPENAD) && defined (ALLOW_STREAMICE_OAD_FP))
121          NAMELIST /STREAMICE_PARMOAD/
122         &     streamice_nonlin_tol_adjoint
123    #ifdef ALLOW_PETSC
124         &     ,STREAMICE_OAD_petsc_reuse,
125         &     PETSC_PRECOND_OAD
126    #endif
127    #endif
128    
129  !#ifdef ALLOW_STREAMICE_FLUX_CONTROL  !#ifdef ALLOW_STREAMICE_FLUX_CONTROL
130  !      NAMELIST /STREAMICE_PARMFLUXCTRL/  !      NAMELIST /STREAMICE_PARMFLUXCTRL/
131  !     &     n_fluxes, n_epochs,  !     &     n_fluxes, n_epochs,
# Line 176  C--   Default values for STREAMICE Line 189  C--   Default values for STREAMICE
189    
190        streamice_density = 917.        streamice_density = 917.
191        streamice_density_ocean_avg = 1024.        streamice_density_ocean_avg = 1024.
192          streamice_density_firn = streamice_density  
193        B_glen_isothermal = 9.461e-18   !  Pa (-1/3) a        B_glen_isothermal = 9.461e-18   !  Pa (-1/3) a
194        n_glen = 3.        n_glen = 3.
195        eps_glen_min = 1.0e-12        eps_glen_min = 1.0e-12
# Line 188  C--   Default values for STREAMICE Line 202  C--   Default values for STREAMICE
202        streamice_nonlin_tol_fp = 1.e-14        streamice_nonlin_tol_fp = 1.e-14
203  #if (defined (ALLOW_OPENAD) && defined (ALLOW_STREAMICE_OAD_FP))  #if (defined (ALLOW_OPENAD) && defined (ALLOW_STREAMICE_OAD_FP))
204        streamice_nonlin_tol_adjoint = 1.e-14        streamice_nonlin_tol_adjoint = 1.e-14
205    #ifdef ALLOW_PETSC
206          PETSC_PRECOND_OAD = 'MUMPS'
207          STREAMICE_OAD_petsc_reuse =.false.
208    #endif
209  #endif  #endif
210        streamice_max_cg_iter = 2000        streamice_max_cg_iter = 2000
211        streamice_max_nl_iter = 100        streamice_max_nl_iter = 100
# Line 209  C--   Default values for STREAMICE Line 227  C--   Default values for STREAMICE
227        streamice_smooth_gl_width = 0.0        streamice_smooth_gl_width = 0.0
228        streamice_adot_uniform = 0.0        streamice_adot_uniform = 0.0
229        streamice_forcing_period = 0        streamice_forcing_period = 0
230          streamice_firn_correction = 0.
231    #ifdef STREAMICE_FLOWLINE_BUTTRESS
232          streamice_buttr_width = 1000000000.
233    #endif
234          STREAMICE_apply_firn_correction = .false.
235          
236        STREAMICEthickInit = 'FILE'        STREAMICEthickInit = 'FILE'
237        STREAMICEthickFile = ' '        STREAMICEthickFile = ' '
238        STREAMICEcalveMaskFile = ' '        STREAMICEcalveMaskFile = ' '
# Line 279  C--   Default values for STREAMICE Line 302  C--   Default values for STREAMICE
302  !      STREAMICE_construct_matrix = .TRUE.  !      STREAMICE_construct_matrix = .TRUE.
303        STREAMICE_lower_cg_tol = .FALSE.        STREAMICE_lower_cg_tol = .FALSE.
304        STREAMICE_diagnostic_only = .FALSE.        STREAMICE_diagnostic_only = .FALSE.
305    #ifdef STREAMICE_FLOWLINE_BUTTRESS
306          useStreamiceFlowlineButtr=.FALSE.
307    #endif
308        STREAMICE_ppm_driving_stress = .FALSE.        STREAMICE_ppm_driving_stress = .FALSE.
309        STREAMICE_chkfixedptconvergence = .true.        STREAMICE_chkfixedptconvergence = .true.
310        STREAMICE_chkresidconvergence = .true.        STREAMICE_chkresidconvergence = .true.
# Line 368  C     Read parameters from open data fil Line 394  C     Read parameters from open data fil
394        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
395       &    SQUEEZE_RIGHT , 1)       &    SQUEEZE_RIGHT , 1)
396  #endif  #endif
397    
398    #if (defined (ALLOW_OPENAD) && defined (ALLOW_STREAMICE_OAD_FP))
399          READ(UNIT=iUnit,NML=STREAMICE_PARMOAD)
400          WRITE(msgBuf,'(A)')
401         &    'STREAMICE_READPARMS: read oad parm block'
402          CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
403         &    SQUEEZE_RIGHT , 1)
404    #endif
405    
406        READ(UNIT=iUnit,NML=STREAMICE_PARM03)        READ(UNIT=iUnit,NML=STREAMICE_PARM03)
407        WRITE(msgBuf,'(A)')        WRITE(msgBuf,'(A)')
Legend:
Removed from v.1.11  
changed lines
  Added in v.1.14
  ViewVC Help
Powered by ViewVC 1.1.22