/[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.12 by dgoldberg, Mon Jun 15 14:31:59 2015 UTC
# Line 41  C     iUnit      :: Work variable for IO Line 41  C     iUnit      :: Work variable for IO
41       &     C_basal_fric_const, n_basal_friction,       &     C_basal_fric_const, n_basal_friction,
42       &     streamice_vel_update,streamice_cg_tol,streamice_nonlin_tol,       &     streamice_vel_update,streamice_cg_tol,streamice_nonlin_tol,
43       &     streamice_nonlin_tol_fp,       &     streamice_nonlin_tol_fp,
 #if (defined (ALLOW_OPENAD) && defined (ALLOW_STREAMICE_OAD_FP))  
      &     streamice_nonlin_tol_adjoint,  
 #endif  
44       &     streamice_max_cg_iter, streamice_max_nl_iter,       &     streamice_max_cg_iter, streamice_max_nl_iter,
45       &     streamice_maxcgiter_cpl, streamice_maxnliter_cpl,       &     streamice_maxcgiter_cpl, streamice_maxnliter_cpl,
46       &     STREAMICEthickInit,       &     STREAMICEthickInit,
# Line 113  C     iUnit      :: Work variable for IO Line 110  C     iUnit      :: Work variable for IO
110       &     streamice_use_petsc       &     streamice_use_petsc
111  #endif  #endif
112    
113    #if (defined (ALLOW_OPENAD) && defined (ALLOW_STREAMICE_OAD_FP))
114          NAMELIST /STREAMICE_PARMOAD/
115         &     streamice_nonlin_tol_adjoint
116    #ifdef ALLOW_PETSC
117         &     ,STREAMICE_OAD_petsc_reuse,
118         &     PETSC_PRECOND_OAD
119    #endif
120    #endif
121    
122  !#ifdef ALLOW_STREAMICE_FLUX_CONTROL  !#ifdef ALLOW_STREAMICE_FLUX_CONTROL
123  !      NAMELIST /STREAMICE_PARMFLUXCTRL/  !      NAMELIST /STREAMICE_PARMFLUXCTRL/
124  !     &     n_fluxes, n_epochs,  !     &     n_fluxes, n_epochs,
# Line 188  C--   Default values for STREAMICE Line 194  C--   Default values for STREAMICE
194        streamice_nonlin_tol_fp = 1.e-14        streamice_nonlin_tol_fp = 1.e-14
195  #if (defined (ALLOW_OPENAD) && defined (ALLOW_STREAMICE_OAD_FP))  #if (defined (ALLOW_OPENAD) && defined (ALLOW_STREAMICE_OAD_FP))
196        streamice_nonlin_tol_adjoint = 1.e-14        streamice_nonlin_tol_adjoint = 1.e-14
197    #ifdef ALLOW_PETSC
198          PETSC_PRECOND_OAD = 'MUMPS'
199          STREAMICE_OAD_petsc_reuse =.false.
200    #endif
201  #endif  #endif
202        streamice_max_cg_iter = 2000        streamice_max_cg_iter = 2000
203        streamice_max_nl_iter = 100        streamice_max_nl_iter = 100
# Line 368  C     Read parameters from open data fil Line 378  C     Read parameters from open data fil
378        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
379       &    SQUEEZE_RIGHT , 1)       &    SQUEEZE_RIGHT , 1)
380  #endif  #endif
381    
382    #if (defined (ALLOW_OPENAD) && defined (ALLOW_STREAMICE_OAD_FP))
383          READ(UNIT=iUnit,NML=STREAMICE_PARMOAD)
384          WRITE(msgBuf,'(A)')
385         &    'STREAMICE_READPARMS: read oad parm block'
386          CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
387         &    SQUEEZE_RIGHT , 1)
388    #endif
389    
390        READ(UNIT=iUnit,NML=STREAMICE_PARM03)        READ(UNIT=iUnit,NML=STREAMICE_PARM03)
391        WRITE(msgBuf,'(A)')        WRITE(msgBuf,'(A)')
Legend:
Removed from v.1.11  
changed lines
  Added in v.1.12
  ViewVC Help
Powered by ViewVC 1.1.22