| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/SEAICE.h |
255 |
NO PROCEDURE |
INTEGER nVec |
|
./pkg/seaice/SEAICE.h |
256 |
NO PROCEDURE |
PARAMETER ( nVec=2*sNx*sNy ) |
|
./pkg/seaice/SEAICE.h |
257 |
NO PROCEDURE |
_RL scalarProductMetric( nVec, 1, nSx, nSy ) |
|
./pkg/seaice/seaice_init_varia.F |
659 |
SEAICE_INIT_VARIA |
CALL SEAICE_MAP_RS2VEC( nVec, rAw, rAs, |
|
./pkg/seaice/seaice_init_varia.F |
663 |
SEAICE_INIT_VARIA |
DO i=1,nVec |
|
./pkg/seaice/seaice_jfnk.F |
113 |
SEAICE_JFNK |
_RL rhs(nVec,nSx,nSy), sol(nVec,nSx,nSy) |
|
./pkg/seaice/seaice_jfnk.F |
114 |
SEAICE_JFNK |
_RL vv(nVec,im+1,nSx,nSy), w(nVec,im,nSx,nSy) |
|
./pkg/seaice/seaice_jfnk.F |
115 |
SEAICE_JFNK |
_RL wk1(nVec,nSx,nSy), wk2(nVec,nSx,nSy) |
|
./pkg/seaice/seaice_jfnk.F |
242 |
SEAICE_JFNK |
CALL SEAICE_MAP2VEC(nVec,duIce,dvIce,sol,.TRUE.,myThid) |
|
./pkg/seaice/seaice_jfnk.F |
244 |
SEAICE_JFNK |
CALL SEAICE_MAP2VEC(nVec,uIceRes,vIceRes,rhs,.TRUE.,myThid) |
|
./pkg/seaice/seaice_jfnk.F |
247 |
SEAICE_JFNK |
DO j=1,nVec |
|
./pkg/seaice/seaice_jfnk.F |
260 |
SEAICE_JFNK |
CALL SEAICE_MAP2VEC(nVec,duIce,dvIce,wk2,.TRUE.,myThid) |
|
./pkg/seaice/seaice_jfnk.F |
262 |
SEAICE_JFNK |
CALL SEAICE_FGMRES (nVec,im,rhs,sol,ifgmres,krylovIter, |
|
./pkg/seaice/seaice_jfnk.F |
270 |
SEAICE_JFNK |
CALL SEAICE_MAP2VEC(nVec,duIce,dvIce,sol,.FALSE.,myThid) |
|
./pkg/seaice/seaice_jfnk.F |
274 |
SEAICE_JFNK |
CALL SEAICE_MAP2VEC(nVec,duIce,dvIce,wk1,.FALSE.,myThid) |
|
./pkg/seaice/seaice_jfnk.F |
534 |
SEAICE_JFNK_UPDATE |
INTEGER nVec |
|
./pkg/seaice/seaice_jfnk.F |
535 |
SEAICE_JFNK_UPDATE |
PARAMETER ( nVec = 2*sNx*sNy ) |
|
./pkg/seaice/seaice_jfnk.F |
536 |
SEAICE_JFNK_UPDATE |
_RL resTmp (nVec,1,nSx,nSy) |
|
./pkg/seaice/seaice_jfnk.F |
566 |
SEAICE_JFNK_UPDATE |
CALL SEAICE_MAP2VEC(nVec,uIceRes,vIceRes,resTmp,.TRUE.,myThid) |
|
./pkg/seaice/seaice_jfnk.F |
567 |
SEAICE_JFNK_UPDATE |
CALL SEAICE_SCALPROD(nVec,1,1,1,resTmp,resTmp,resLoc,myThid) |
|
./pkg/seaice/seaice_krylov.F |
103 |
SEAICE_KRYLOV |
_RL resTmp (nVec,1,nSx,nSy) |
|
./pkg/seaice/seaice_krylov.F |
105 |
SEAICE_KRYLOV |
_RL rhs(nVec,nSx,nSy), sol(nVec,nSx,nSy) |
|
./pkg/seaice/seaice_krylov.F |
106 |
SEAICE_KRYLOV |
_RL vv(nVec,im+1,nSx,nSy), w(nVec,im,nSx,nSy) |
|
./pkg/seaice/seaice_krylov.F |
107 |
SEAICE_KRYLOV |
_RL wk1(nVec,nSx,nSy), wk2(nVec,nSx,nSy) |
|
./pkg/seaice/seaice_krylov.F |
252 |
SEAICE_KRYLOV |
CALL SEAICE_MAP2VEC(nVec,uIceLHS,vIceLHS,resTmp,.TRUE.,myThid) |
|
./pkg/seaice/seaice_krylov.F |
253 |
SEAICE_KRYLOV |
CALL SEAICE_SCALPROD(nVec,1,1,1,resTmp,resTmp, |
|
./pkg/seaice/seaice_krylov.F |
303 |
SEAICE_KRYLOV |
CALL SEAICE_MAP2VEC(nVec,uIce,vIce,sol,.TRUE.,myThid) |
|
./pkg/seaice/seaice_krylov.F |
304 |
SEAICE_KRYLOV |
CALL SEAICE_MAP2VEC(nVec,uIceRHS,vIceRHS,rhs,.TRUE.,myThid) |
|
./pkg/seaice/seaice_krylov.F |
321 |
SEAICE_KRYLOV |
CALL SEAICE_MAP2VEC(nVec,uWork,vWork,wk2,.TRUE.,myThid) |
|
./pkg/seaice/seaice_krylov.F |
323 |
SEAICE_KRYLOV |
CALL SEAICE_FGMRES (nVec,im,rhs,sol,ifgmres,krylovIter, |
|
./pkg/seaice/seaice_krylov.F |
331 |
SEAICE_KRYLOV |
CALL SEAICE_MAP2VEC(nVec,uIce,vIce,sol,.FALSE.,myThid) |
|
./pkg/seaice/seaice_krylov.F |
336 |
SEAICE_KRYLOV |
CALL SEAICE_MAP2VEC(nVec,uWork,vWork,wk1,.FALSE.,myThid) |