| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/lsr.F |
221 |
LSR |
& +(vIce(I,J,bi,bj)-GWATY(I,J,bi,bj))**2 |
|
./pkg/seaice/lsr.F |
499 |
LSR |
vTmp(I,J,bi,bj)=vIce(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
565 |
LSR |
IF (J.EQ.1) AA3 = AA3 - AV(I,J,bi,bj)*vIce(I,J-1,bi,bj) |
|
./pkg/seaice/lsr.F |
566 |
LSR |
IF (J.EQ.sNy) AA3 = AA3 - CV(I,J,bi,bj)*vIce(I,J+1,bi,bj) |
|
./pkg/seaice/lsr.F |
574 |
LSR |
& + vRt1(I,J,bi,bj)*vIce(I-1,J,bi,bj) |
|
./pkg/seaice/lsr.F |
575 |
LSR |
& + vRt2(I,J,bi,bj)*vIce(I+1,J,bi,bj) |
|
./pkg/seaice/lsr.F |
597 |
LSR |
vIce(I,J,bi,bj)=vTmp(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
639 |
LSR |
UERR=(vIce(I,J,bi,bj)-vTmp(I,J,bi,bj)) |
|
./pkg/seaice/lsr.F |
656 |
LSR |
CALL EXCH_UV_XY_RL( uIce, vIce,.TRUE.,myThid) |
|
./pkg/seaice/lsr.F |
669 |
LSR |
CALL DEBUG_STATS_RL( 1, vIce, msgBuf, myThid ) |
|
./pkg/seaice/seaice_diagnostics_state.F |
165 |
SEAICE_DIAGNOSTICS_STATE |
I uIce, vIce, |
|
./pkg/seaice/seaice_dynsolver.F |
181 |
SEAICE_DYNSOLVER |
I uIce, vIce, |
|
./pkg/seaice/seaice_dynsolver.F |
255 |
SEAICE_DYNSOLVER |
vIce(i,j,bi,bj) = vIce_fd(i,j,bi,bj) |
|
./pkg/seaice/seaice_dynsolver.F |
267 |
SEAICE_DYNSOLVER |
CALL OBCS_APPLY_UVICE( uIce, vIce, myThid ) |
|
./pkg/seaice/seaice_dynsolver.F |
343 |
SEAICE_DYNSOLVER |
vIce(i,j,bi,bj)= |
|
./pkg/seaice/seaice_dynsolver.F |
344 |
SEAICE_DYNSOLVER |
& MAX(MIN(vIce(i,j,bi,bj),0.40 _d +00),-0.40 _d +00) |
|
./pkg/seaice/seaice_evp.F |
152 |
SEAICE_EVP |
vIceNm1(I,J,bi,bj) = vIce(I,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
202 |
SEAICE_EVP |
I uIce, vIce, |
|
./pkg/seaice/seaice_evp.F |
466 |
SEAICE_EVP |
I uIce, vIce, |
|
./pkg/seaice/seaice_evp.F |
496 |
SEAICE_EVP |
& (vVel(I ,J ,kSrf,bi,bj)-vIce(I ,J ,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
497 |
SEAICE_EVP |
& +vVel(I ,J+1,kSrf,bi,bj)-vIce(I ,J+1,bi,bj)) |
|
./pkg/seaice/seaice_evp.F |
499 |
SEAICE_EVP |
& (vVel(I-1,J ,kSrf,bi,bj)-vIce(I-1,J ,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
500 |
SEAICE_EVP |
& +vVel(I-1,J+1,kSrf,bi,bj)-vIce(I-1,J+1,bi,bj)) |
|
./pkg/seaice/seaice_evp.F |
516 |
SEAICE_EVP |
& * 0.5 _d 0*( vIce(I ,J,bi,bj)+vIce(I ,J+1,bi,bj) ) |
|
./pkg/seaice/seaice_evp.F |
518 |
SEAICE_EVP |
& * 0.5 _d 0*( vIce(I-1,J,bi,bj)+vIce(I-1,J+1,bi,bj) ) |
|
./pkg/seaice/seaice_evp.F |
544 |
SEAICE_EVP |
vIce(I,J,bi,bj) = seaiceMaskV(I,J,bi,bj) * |
|
./pkg/seaice/seaice_evp.F |
546 |
SEAICE_EVP |
& * vIce(I,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
569 |
SEAICE_EVP |
vIce(i,j,bi,bj) = vIce(i,j,bi,bj)*locMaskV |
|
./pkg/seaice/seaice_evp.F |
582 |
SEAICE_EVP |
CALL EXCH_UV_XY_RL(uIce,vIce,.TRUE.,myThid) |
|
./pkg/seaice/seaice_get_dynforcing.F |
13 |
SEAICE_GET_DYNFORCING |
I uIce, vIce, |
|
./pkg/seaice/seaice_get_dynforcing.F |
140 |
SEAICE_GET_DYNFORCING |
& - 0.5 _d 0 * (vIce(i,j,bi,bj)+vIce(i,j+1,bi,bj)) |
|
./pkg/seaice/seaice_get_dynforcing.F |
185 |
SEAICE_GET_DYNFORCING |
& -0.5 _d 0*(vIce(i,j,bi,bj)+vIce(i,j+1,bi,bj)))) |
|
./pkg/seaice/seaice_get_dynforcing.F |
193 |
SEAICE_GET_DYNFORCING |
& -0.5 _d 0*(vIce(i-1,j,bi,bj)+vIce(i-1,j+1,bi,bj)))) |
|
./pkg/seaice/seaice_get_dynforcing.F |
204 |
SEAICE_GET_DYNFORCING |
& -0.5 _d 0*(vIce(i,j,bi,bj)+vIce(i,j+1,bi,bj)))) |
|
./pkg/seaice/seaice_get_dynforcing.F |
212 |
SEAICE_GET_DYNFORCING |
& -0.5 _d 0*(vIce(i,j-1,bi,bj)+vIce(i,j,bi,bj)))) |
|
./pkg/seaice/seaice_get_dynforcing.F |
50 |
SEAICE_GET_DYNFORCING |
_RL vIce (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/seaice/seaice_init_varia.F |
481 |
SEAICE_INIT_VARIA |
& CALL READ_FLD_XY_RL( vIceFile, ' ', vIce, 0, myThid ) |
|
./pkg/seaice/seaice_init_varia.F |
489 |
SEAICE_INIT_VARIA |
vIce(i,j,bi,bj) = vIce(i,j,bi,bj)*seaiceMaskV(i,j,bi,bj) |
|
./pkg/seaice/seaice_init_varia.F |
495 |
SEAICE_INIT_VARIA |
CALL EXCH_UV_XY_RL( uIce, vIce, .TRUE., myThid ) |
|
./pkg/seaice/seaice_jacvec.F |
150 |
SEAICE_JACVEC |
vtp(I,J,bi,bj) = vIce(I,J,bi,bj) + epsilon * dvIce(I,J,bi,bj) |
|
./pkg/seaice/seaice_jfnk.F |
147 |
SEAICE_JFNK |
dvIcNm1(I,J,bi,bj) = vIce(I,J,bi,bj) * bdfAlpha |
|
./pkg/seaice/seaice_jfnk.F |
148 |
SEAICE_JFNK |
& + ( vIce(I,J,bi,bj) - vIceNm1(I,J,bi,bj) ) * bdfFac |
|
./pkg/seaice/seaice_jfnk.F |
150 |
SEAICE_JFNK |
vIceNm1(I,J,bi,bj) = vIce(I,J,bi,bj) |
|
./pkg/seaice/seaice_jfnk.F |
177 |
SEAICE_JFNK |
U uIce, vIce, JFNKresidual, |
|
./pkg/seaice/seaice_jfnk.F |
248 |
SEAICE_JFNK |
I uIce, vIce, uIceRes, vIceRes, |
|
./pkg/seaice/seaice_jfnk.F |
294 |
SEAICE_JFNK |
U uIce, vIce, JFNKresidual, |
|
./pkg/seaice/seaice_jfnk.F |
432 |
SEAICE_JFNK_UPDATE |
U uIce, vIce, JFNKresidual, |
|
./pkg/seaice/seaice_jfnk.F |
477 |
SEAICE_JFNK_UPDATE |
_RL vIce (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/seaice/seaice_jfnk.F |
510 |
SEAICE_JFNK_UPDATE |
vIce(I,J,bi,bj) = vIce(I,J,bi,bj)+facLS*dvIce(I,J,bi,bj) |
|
./pkg/seaice/seaice_jfnk.F |
518 |
SEAICE_JFNK_UPDATE |
I uIce, vIce, |
|
./pkg/seaice/seaice_lsr.F |
1732 |
SEAICE_LSR_TRIDIAGV |
U vIce, |
|
./pkg/seaice/seaice_lsr.F |
1770 |
SEAICE_LSR_TRIDIAGV |
_RL vIce(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/seaice/seaice_lsr.F |
1824 |
SEAICE_LSR_TRIDIAGV |
IF (J.EQ.jMin) AA3 = AA3 - AV(I,J,bi,bj)*vIce(I,J-1,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1825 |
SEAICE_LSR_TRIDIAGV |
IF (J.EQ.jMax) AA3 = AA3 - CV(I,J,bi,bj)*vIce(I,J+1,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1829 |
SEAICE_LSR_TRIDIAGV |
& + vRt1(I,J,bi,bj)*vIce(I-1,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1830 |
SEAICE_LSR_TRIDIAGV |
& + vRt2(I,J,bi,bj)*vIce(I+1,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1889 |
SEAICE_LSR_TRIDIAGV |
vIce(I,J,bi,bj)=vTmp(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
239 |
SEAICE_LSR |
vIceNm1(i,j,bi,bj)=vIce(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
241 |
SEAICE_LSR |
vIceC(I,J,bi,bj)=vIce(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
253 |
SEAICE_LSR |
vIce(I,J,bi,bj)=HALF*(vIce(I,J,bi,bj)+vIceNm1(i,j,bi,bj)) |
|
./pkg/seaice/seaice_lsr.F |
255 |
SEAICE_LSR |
vIceC(I,J,bi,bj)=vIce(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
268 |
SEAICE_LSR |
vIceNm1(i,j,bi,bj)=vIce(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
435 |
SEAICE_LSR |
rhsV(I,J,bi,bj) = vIce(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
460 |
SEAICE_LSR |
I AU, BU, CU, AV, BV, CV, uIce, vIce, |
|
./pkg/seaice/seaice_lsr.F |
527 |
SEAICE_LSR |
vIce(i,j,bi,bj) = ( errFD *vIce(i,j,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
535 |
SEAICE_LSR |
CALL EXCH_UV_XY_RL( uIce, vIce, .TRUE., myThid ) |
|
./pkg/seaice/seaice_lsr.F |
543 |
SEAICE_LSR |
I AU, BU, CU, AV, BV, CV, uIce, vIce, |
|
./pkg/seaice/seaice_lsr.F |
629 |
SEAICE_LSR |
vTmp(i,j,bi,bj) = vIce(i,j,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
631 |
SEAICE_LSR |
& + vRt1(i,j,bi,bj)*vIce(i-1,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
632 |
SEAICE_LSR |
& + vRt2(i,j,bi,bj)*vIce(i+1,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
646 |
SEAICE_LSR |
O uIce, vIce, errCode, |
|
./pkg/seaice/seaice_lsr.F |
662 |
SEAICE_LSR |
vIce(i,j,bi,bj) = vTmp(i,j,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
663 |
SEAICE_LSR |
& + WFAV*( vIce(i,j,bi,bj)-vTmp(i,j,bi,bj) ) |
|
./pkg/seaice/seaice_lsr.F |
696 |
SEAICE_LSR |
vTmp(I,J,bi,bj)=vIce(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
712 |
SEAICE_LSR |
U vIce, |
|
./pkg/seaice/seaice_lsr.F |
755 |
SEAICE_LSR |
UERR=(vIce(I,J,bi,bj)-vTmp(I,J,bi,bj)) |
|
./pkg/seaice/seaice_lsr.F |
772 |
SEAICE_LSR |
CALL EXCH_UV_XY_RL( uIce, vIce,.TRUE.,myThid) |
|
./pkg/seaice/seaice_lsr.F |
789 |
SEAICE_LSR |
I AU, BU, CU, AV, BV, CV, uIce, vIce, |
|
./pkg/seaice/seaice_lsr.F |
843 |
SEAICE_LSR |
vIce(I,J,bi,bj)=vIce(I,J,bi,bj)* seaiceMaskV(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
864 |
SEAICE_LSR |
& - (vIce(i,j,bi,bj)+vIce(i,j+1,bi,bj)) )**2 ) |
|
./pkg/seaice/seaice_lsr.F |
868 |
SEAICE_LSR |
& + ( (vIce(i,j,bi,bj)+vIce(i,j+1,bi,bj)) )**2 ) |
|
./pkg/seaice/seaice_lsr.F |
902 |
SEAICE_LSR |
I uIce, vIce, |
|
./pkg/seaice/seaice_model.F |
177 |
SEAICE_MODEL |
CALL SEAICE_ADVDIFF( uIce, vIce, myTime, myIter, myThid ) |
|
./pkg/seaice/seaice_ocean_stress.F |
100 |
SEAICE_OCEAN_STRESS |
& 0.5 _d 0*(vIce(I ,J ,bi,bj)-vVel(I ,J ,kSrf,bi,bj) |
|
./pkg/seaice/seaice_ocean_stress.F |
101 |
SEAICE_OCEAN_STRESS |
& +vIce(I ,J+1,bi,bj)-vVel(I ,J+1,kSrf,bi,bj)) |
|
./pkg/seaice/seaice_ocean_stress.F |
103 |
SEAICE_OCEAN_STRESS |
& 0.5 _d 0*(vIce(I-1,J ,bi,bj)-vVel(I-1,J ,kSrf,bi,bj) |
|
./pkg/seaice/seaice_ocean_stress.F |
104 |
SEAICE_OCEAN_STRESS |
& +vIce(I-1,J+1,bi,bj)-vVel(I-1,J+1,kSrf,bi,bj)) |
|
./pkg/seaice/seaice_ocean_stress.F |
108 |
SEAICE_OCEAN_STRESS |
& ( vIce(I,J,bi,bj)-vVel(I,J,kSrf,bi,bj) ) |
|
./pkg/seaice/seaice_output.F |
103 |
SEAICE_OUTPUT |
CALL MNC_CW_RL_W(pf,'sice',0,0,'si_VICE',vIce,myThid) |
|
./pkg/seaice/seaice_output.F |
135 |
SEAICE_OUTPUT |
CALL WRITE_FLD_XY_RL( 'VICE.',suff,vIce,myIter,myThid) |
|
./pkg/seaice/seaice_read_pickup.F |
316 |
SEAICE_READ_PICKUP |
CALL EXCH_UV_XY_RL( uIce, vIce,.TRUE.,myThid) |
|
./pkg/thsice/thsice_advdiff.F |
14 |
THSICE_ADVDIFF |
U uIce, vIce, |
|
./pkg/thsice/thsice_advdiff.F |
212 |
THSICE_ADVDIFF |
U uIce, vIce, |
|
./pkg/thsice/thsice_advdiff.F |
227 |
THSICE_ADVDIFF |
vTrIce(i,j) = vIce(i,j)*_dxG(i,j,bi,bj) |
|
./pkg/thsice/thsice_advdiff.F |
311 |
THSICE_ADVDIFF |
& ' , vIce=', vIce(i,j), vIce(i,j+1) |
|
./pkg/thsice/thsice_advdiff.F |
57 |
THSICE_ADVDIFF |
_RL vIce (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/thsice/thsice_diffusion.F |
12 |
THSICE_DIFFUSION |
U uIce, vIce, |
|
./pkg/thsice/thsice_diffusion.F |
49 |
THSICE_DIFFUSION |
_RL vIce (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/thsice/thsice_diffusion.F |
99 |
THSICE_DIFFUSION |
& vIce(i,j) = vIce(i,j) |
|
./pkg/thsice/thsice_do_advect.F |
143 |
THSICE_DO_ADVECT |
O uIce, vIce, |
|
./pkg/thsice/thsice_do_advect.F |
146 |
THSICE_DO_ADVECT |
U uIce, vIce, |
|
./pkg/thsice/thsice_do_advect.F |
56 |
THSICE_DO_ADVECT |
_RL vIce(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/thsice/thsice_do_advect.F |
84 |
THSICE_DO_ADVECT |
O uIce, vIce, |
|
./pkg/thsice/thsice_do_advect.F |
95 |
THSICE_DO_ADVECT |
U uIce, vIce, |
|
./pkg/thsice/thsice_get_ocean.F |
122 |
THSICE_GET_OCEAN |
vRel1 = vVel(i, j, ks,bi,bj)-vIce(i, j, bi,bj) |
|
./pkg/thsice/thsice_get_ocean.F |
123 |
THSICE_GET_OCEAN |
vRel2 = vVel(i,j+1,ks,bi,bj)-vIce(i,j+1,bi,bj) |
|
./pkg/cheapaml/cheapaml_seaice.F |
147 |
CHEAPAML_SEAICE |
vRelWind(i,j) = vRelWind(i,j)-vIce(i,j,bi,bj) |