File indexing completed on 2025-11-22 06:08:48 UTC
view on githubraw file Latest commit feb7fa5d on 2025-11-21 15:45:20 UTC
feb7fa5d1e dngo*0001
0002
0003
0004 #ifdef ALLOW_STREAMICE
0005
0006 #ifdef ALLOW_STREAMICE_FP_ADJ
0007 #ifdef ALLOW_PETSC
0008 LOGICAL STREAMICE_need2createmat
0009 LOGICAL STREAMICE_need2destroymat
0010 LOGICAL STREAMICE_OAD_petsc_reuse
0011 CHARACTER*(MAX_LEN_FNAM) PETSC_PRECOND_TMP
0012 CHARACTER*(MAX_LEN_FNAM) PETSC_PRECOND_OAD
0013
0014 COMMON /STREAMICE_PARM_FP_PETSC_L/
0015 & STREAMICE_need2createmat,
0016 & STREAMICE_need2destroymat,
0017 & STREAMICE_OAD_petsc_reuse,
0018
0019 COMMON /STREAMICE_PARM_FP_PETSC_C/
0020 & PETSC_PRECOND_TMP,
0021 & PETSC_PRECOND_OAD
0022 #endif
0023 #endif
0024
0025 _RL streamice_nonlin_tol_adjoint
0026 _RL streamice_nonlin_tol_adjoint_rl
0027 #ifdef ALLOW_TAPENADE
0028 _RL refCumuls(5)
0029 _RL prevCumuls(5)
0030 INTEGER adjIters(5)
0031 INTEGER fpDepth
0032 #endif
0033
0034 COMMON /STREAMICE_PARM_FP_R/
0035 & streamice_nonlin_tol_adjoint,
0036 & streamice_nonlin_tol_adjoint_rl
0037 #ifdef ALLOW_TAPENADE
0038 & ,refCumuls,
0039 & prevCumuls
0040 #endif
0041
0042 #ifdef ALLOW_TAPENADE
0043 COMMON /STREAMICE_PARM_FP_I/
0044 & adjIters,
0045 & fpDepth
0046 #endif
0047
0048 #endif
