File |
Line number |
Procedure |
Code |
./pkg/seaice/lsr.F |
224 |
LSR |
& +(vIce(I,J,bi,bj)-GWATY(I,J,bi,bj))**2 |
./pkg/seaice/lsr.F |
502 |
LSR |
vTmp(I,J,bi,bj)=vIce(I,J,bi,bj) |
./pkg/seaice/lsr.F |
568 |
LSR |
IF (J.EQ.1) AA3 = AA3 - AV(I,J,bi,bj)*vIce(I,J-1,bi,bj) |
./pkg/seaice/lsr.F |
569 |
LSR |
IF (J.EQ.sNy) AA3 = AA3 - CV(I,J,bi,bj)*vIce(I,J+1,bi,bj) |
./pkg/seaice/lsr.F |
577 |
LSR |
& + vRt1(I,J,bi,bj)*vIce(I-1,J,bi,bj) |
./pkg/seaice/lsr.F |
578 |
LSR |
& + vRt2(I,J,bi,bj)*vIce(I+1,J,bi,bj) |
./pkg/seaice/lsr.F |
600 |
LSR |
vIce(I,J,bi,bj)=vTmp(I,J,bi,bj) |
./pkg/seaice/lsr.F |
642 |
LSR |
UERR=(vIce(I,J,bi,bj)-vTmp(I,J,bi,bj)) |
./pkg/seaice/lsr.F |
659 |
LSR |
CALL EXCH_UV_XY_RL( uIce, vIce,.TRUE.,myThid) |
./pkg/seaice/lsr.F |
672 |
LSR |
CALL DEBUG_STATS_RL( 1, vIce, msgBuf, myThid ) |
./pkg/seaice/seaice_bottomdrag_coeffs.F |
109 |
SEAICE_BOTTOMDRAG_COEFFS |
& + ( vIce(i, j ,bi,bj)+vIce(i,j+1,bi,bj) |
./pkg/seaice/seaice_bottomdrag_coeffs.F |
115 |
SEAICE_BOTTOMDRAG_COEFFS |
& + ( vIce(i,j ,bi,bj)*maskInS(i, j ,bi,bj) |
./pkg/seaice/seaice_bottomdrag_coeffs.F |
116 |
SEAICE_BOTTOMDRAG_COEFFS |
& + vIce(i,j+1,bi,bj)*maskInS(i,j+1,bi,bj) )**2 ) |
./pkg/seaice/seaice_bottomdrag_coeffs.F |
16 |
SEAICE_BOTTOMDRAG_COEFFS |
I uIce, vIce, |
./pkg/seaice/seaice_bottomdrag_coeffs.F |
61 |
SEAICE_BOTTOMDRAG_COEFFS |
_RL vIce(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
./pkg/seaice/seaice_diagnostics_state.F |
194 |
SEAICE_DIAGNOSTICS_STATE |
I uIce, vIce, |
./pkg/seaice/seaice_dynsolver.F |
199 |
SEAICE_DYNSOLVER |
I uIce, vIce, AREA, |
./pkg/seaice/seaice_dynsolver.F |
284 |
SEAICE_DYNSOLVER |
vIce(i,j,bi,bj) = vIce_fd(i,j,bi,bj) |
./pkg/seaice/seaice_dynsolver.F |
296 |
SEAICE_DYNSOLVER |
CALL OBCS_APPLY_UVICE( uIce, vIce, myThid ) |
./pkg/seaice/seaice_dynsolver.F |
379 |
SEAICE_DYNSOLVER |
vIce(i,j,bi,bj)= |
./pkg/seaice/seaice_dynsolver.F |
380 |
SEAICE_DYNSOLVER |
& MAX(MIN(vIce(i,j,bi,bj),0.40 _d +00),-0.40 _d +00) |
./pkg/seaice/seaice_evp.F |
253 |
SEAICE_EVP |
vIceNm1(I,J,bi,bj) = vIce(I,J,bi,bj) |
./pkg/seaice/seaice_evp.F |
324 |
SEAICE_EVP |
I uIce, vIce, |
./pkg/seaice/seaice_evp.F |
357 |
SEAICE_EVP |
vIcePm1 (I,J,bi,bj) = vIce(i,j,bi,bj) |
./pkg/seaice/seaice_evp.F |
746 |
SEAICE_EVP |
I uIce, vIce, |
./pkg/seaice/seaice_evp.F |
751 |
SEAICE_EVP |
I uIce, vIce, |
./pkg/seaice/seaice_evp.F |
787 |
SEAICE_EVP |
& (vVel(I ,J ,kSrf,bi,bj)-vIce(I ,J ,bi,bj) |
./pkg/seaice/seaice_evp.F |
788 |
SEAICE_EVP |
& +vVel(I ,J+1,kSrf,bi,bj)-vIce(I ,J+1,bi,bj)) |
./pkg/seaice/seaice_evp.F |
790 |
SEAICE_EVP |
& (vVel(I-1,J ,kSrf,bi,bj)-vIce(I-1,J ,bi,bj) |
./pkg/seaice/seaice_evp.F |
791 |
SEAICE_EVP |
& +vVel(I-1,J+1,kSrf,bi,bj)-vIce(I-1,J+1,bi,bj)) |
./pkg/seaice/seaice_evp.F |
807 |
SEAICE_EVP |
& * 0.5 _d 0*( vIce(I ,J,bi,bj)+vIce(I ,J+1,bi,bj) ) |
./pkg/seaice/seaice_evp.F |
809 |
SEAICE_EVP |
& * 0.5 _d 0*( vIce(I-1,J,bi,bj)+vIce(I-1,J+1,bi,bj) ) |
./pkg/seaice/seaice_evp.F |
829 |
SEAICE_EVP |
I uIce, vIce, |
./pkg/seaice/seaice_evp.F |
883 |
SEAICE_EVP |
vIce(I,J,bi,bj) = seaiceMaskV(I,J,bi,bj) * |
./pkg/seaice/seaice_evp.F |
885 |
SEAICE_EVP |
& * vIce(I,J,bi,bj) |
./pkg/seaice/seaice_evp.F |
904 |
SEAICE_EVP |
vIce(i,j,bi,bj) = vIce(i,j,bi,bj)*locMaskV |
./pkg/seaice/seaice_evp.F |
917 |
SEAICE_EVP |
CALL EXCH_UV_XY_RL(uIce,vIce,.TRUE.,myThid) |
./pkg/seaice/seaice_evp.F |
930 |
SEAICE_EVP |
& ( vIce(I,J,bi,bj)-vIcePm1(i,j,bi,bj) ) |
./pkg/seaice/seaice_get_dynforcing.F |
13 |
SEAICE_GET_DYNFORCING |
I uIce, vIce, icFrac, |
./pkg/seaice/seaice_get_dynforcing.F |
152 |
SEAICE_GET_DYNFORCING |
& - 0.5 _d 0 * (vIce(i,j,bi,bj)+vIce(i,j+1,bi,bj)) |
./pkg/seaice/seaice_get_dynforcing.F |
197 |
SEAICE_GET_DYNFORCING |
& -0.5 _d 0*(vIce(i,j,bi,bj)+vIce(i,j+1,bi,bj)))) |
./pkg/seaice/seaice_get_dynforcing.F |
205 |
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 |
216 |
SEAICE_GET_DYNFORCING |
& -0.5 _d 0*(vIce(i,j,bi,bj)+vIce(i,j+1,bi,bj)))) |
./pkg/seaice/seaice_get_dynforcing.F |
224 |
SEAICE_GET_DYNFORCING |
& -0.5 _d 0*(vIce(i,j-1,bi,bj)+vIce(i,j,bi,bj)))) |
./pkg/seaice/seaice_get_dynforcing.F |
57 |
SEAICE_GET_DYNFORCING |
_RL vIce (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
./pkg/seaice/seaice_init_varia.F |
486 |
SEAICE_INIT_VARIA |
& CALL READ_FLD_XY_RL( vIceFile, ' ', vIce, 0, myThid ) |
./pkg/seaice/seaice_init_varia.F |
494 |
SEAICE_INIT_VARIA |
vIce(i,j,bi,bj) = vIce(i,j,bi,bj)*seaiceMaskV(i,j,bi,bj) |
./pkg/seaice/seaice_init_varia.F |
500 |
SEAICE_INIT_VARIA |
CALL EXCH_UV_XY_RL( uIce, vIce, .TRUE., myThid ) |
./pkg/seaice/seaice_jacvec.F |
160 |
SEAICE_JACVEC |
vtp(I,J,bi,bj) = vIce(I,J,bi,bj) + epsilon * dvIce(I,J,bi,bj) |
./pkg/seaice/seaice_jfnk.F |
161 |
SEAICE_JFNK |
dvIcNm1(I,J,bi,bj) = vIce(I,J,bi,bj) * bdfAlpha |
./pkg/seaice/seaice_jfnk.F |
162 |
SEAICE_JFNK |
& + ( vIce(I,J,bi,bj) - vIceNm1(I,J,bi,bj) ) * bdfFac |
./pkg/seaice/seaice_jfnk.F |
164 |
SEAICE_JFNK |
vIceNm1(I,J,bi,bj) = vIce(I,J,bi,bj) |
./pkg/seaice/seaice_jfnk.F |
191 |
SEAICE_JFNK |
U uIce, vIce, JFNKresidual, |
./pkg/seaice/seaice_jfnk.F |
291 |
SEAICE_JFNK |
I uIce, vIce, uIceRes, vIceRes, |
./pkg/seaice/seaice_jfnk.F |
337 |
SEAICE_JFNK |
U uIce, vIce, JFNKresidual, |
./pkg/seaice/seaice_jfnk.F |
475 |
SEAICE_JFNK_UPDATE |
U uIce, vIce, JFNKresidual, |
./pkg/seaice/seaice_jfnk.F |
520 |
SEAICE_JFNK_UPDATE |
_RL vIce (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
./pkg/seaice/seaice_jfnk.F |
553 |
SEAICE_JFNK_UPDATE |
vIce(I,J,bi,bj) = vIce(I,J,bi,bj)+facLS*dvIce(I,J,bi,bj) |
./pkg/seaice/seaice_jfnk.F |
561 |
SEAICE_JFNK_UPDATE |
I uIce, vIce, |
./pkg/seaice/seaice_krylov.F |
161 |
SEAICE_KRYLOV |
dvIcNm1(I,J,bi,bj) = vIce(I,J,bi,bj) * bdfAlpha |
./pkg/seaice/seaice_krylov.F |
162 |
SEAICE_KRYLOV |
& + ( vIce(I,J,bi,bj) - vIceNm1(I,J,bi,bj) ) * bdfFac |
./pkg/seaice/seaice_krylov.F |
164 |
SEAICE_KRYLOV |
vIceNm1(I,J,bi,bj) = vIce(I,J,bi,bj) |
./pkg/seaice/seaice_krylov.F |
166 |
SEAICE_KRYLOV |
vIceLin(I,J,bi,bj) = vIce(I,J,bi,bj) |
./pkg/seaice/seaice_krylov.F |
196 |
SEAICE_KRYLOV |
& (vIce(I,J,bi,bj) + vIceLin(I,J,bi,bj)) |
./pkg/seaice/seaice_krylov.F |
233 |
SEAICE_KRYLOV |
I uIce, vIce, |
./pkg/seaice/seaice_krylov.F |
303 |
SEAICE_KRYLOV |
CALL SEAICE_MAP2VEC(nVec,uIce,vIce,sol,.TRUE.,myThid) |
./pkg/seaice/seaice_krylov.F |
331 |
SEAICE_KRYLOV |
CALL SEAICE_MAP2VEC(nVec,uIce,vIce,sol,.FALSE.,myThid) |
./pkg/seaice/seaice_krylov.F |
332 |
SEAICE_KRYLOV |
CALL EXCH_UV_XY_RL( uIce, vIce,.TRUE.,myThid) |
./pkg/seaice/seaice_lsr.F |
1871 |
SEAICE_LSR_TRIDIAGV |
U vIce, |
./pkg/seaice/seaice_lsr.F |
1906 |
SEAICE_LSR_TRIDIAGV |
_RL vIce(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
./pkg/seaice/seaice_lsr.F |
1949 |
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 |
1950 |
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 |
1954 |
SEAICE_LSR_TRIDIAGV |
& + vRt1(I,J,bi,bj)*vIce(I-1,J,bi,bj) |
./pkg/seaice/seaice_lsr.F |
1955 |
SEAICE_LSR_TRIDIAGV |
& + vRt2(I,J,bi,bj)*vIce(I+1,J,bi,bj) |
./pkg/seaice/seaice_lsr.F |
2006 |
SEAICE_LSR_TRIDIAGV |
vIce(I,J,bi,bj)=vTmp(I,J,bi,bj) |
./pkg/seaice/seaice_lsr.F |
278 |
SEAICE_LSR |
vIceNm1(I,J,bi,bj) = vIce(I,J,bi,bj) |
./pkg/seaice/seaice_lsr.F |
280 |
SEAICE_LSR |
vIceC (I,J,bi,bj) = vIce(I,J,bi,bj) |
./pkg/seaice/seaice_lsr.F |
292 |
SEAICE_LSR |
vIce (I,J,bi,bj)=HALF*(vIce(I,J,bi,bj)+vIceNm1(i,j,bi,bj)) |
./pkg/seaice/seaice_lsr.F |
294 |
SEAICE_LSR |
vIceC(I,J,bi,bj)=vIce(I,J,bi,bj) |
./pkg/seaice/seaice_lsr.F |
307 |
SEAICE_LSR |
vIceNm1(i,j,bi,bj)=vIce(I,J,bi,bj) |
./pkg/seaice/seaice_lsr.F |
516 |
SEAICE_LSR |
rhsV(I,J,bi,bj) = vIce(I,J,bi,bj) |
./pkg/seaice/seaice_lsr.F |
541 |
SEAICE_LSR |
I AU, BU, CU, AV, BV, CV, uIce, vIce, |
./pkg/seaice/seaice_lsr.F |
610 |
SEAICE_LSR |
vIce(i,j,bi,bj) = ( errFD *vIce(i,j,bi,bj) |
./pkg/seaice/seaice_lsr.F |
618 |
SEAICE_LSR |
CALL EXCH_UV_XY_RL( uIce, vIce, .TRUE., myThid ) |
./pkg/seaice/seaice_lsr.F |
626 |
SEAICE_LSR |
I AU, BU, CU, AV, BV, CV, uIce, vIce, |
./pkg/seaice/seaice_lsr.F |
712 |
SEAICE_LSR |
vTmp(i,j,bi,bj) = vIce(i,j,bi,bj) |
./pkg/seaice/seaice_lsr.F |
714 |
SEAICE_LSR |
& + vRt1(i,j,bi,bj)*vIce(i-1,J,bi,bj) |
./pkg/seaice/seaice_lsr.F |
715 |
SEAICE_LSR |
& + vRt2(i,j,bi,bj)*vIce(i+1,J,bi,bj) |
./pkg/seaice/seaice_lsr.F |
729 |
SEAICE_LSR |
O uIce, vIce, errCode, |
./pkg/seaice/seaice_lsr.F |
745 |
SEAICE_LSR |
vIce(i,j,bi,bj) = vTmp(i,j,bi,bj) |
./pkg/seaice/seaice_lsr.F |
746 |
SEAICE_LSR |
& + WFAV*( vIce(i,j,bi,bj)-vTmp(i,j,bi,bj) ) |
./pkg/seaice/seaice_lsr.F |
779 |
SEAICE_LSR |
vTmp(I,J,bi,bj)=vIce(I,J,bi,bj) |
./pkg/seaice/seaice_lsr.F |
795 |
SEAICE_LSR |
U vIce, |
./pkg/seaice/seaice_lsr.F |
838 |
SEAICE_LSR |
UERR=(vIce(I,J,bi,bj)-vTmp(I,J,bi,bj)) |
./pkg/seaice/seaice_lsr.F |
855 |
SEAICE_LSR |
CALL EXCH_UV_XY_RL( uIce, vIce,.TRUE.,myThid) |
./pkg/seaice/seaice_lsr.F |
872 |
SEAICE_LSR |
I AU, BU, CU, AV, BV, CV, uIce, vIce, |
./pkg/seaice/seaice_lsr.F |
926 |
SEAICE_LSR |
vIce(I,J,bi,bj)=vIce(I,J,bi,bj)* seaiceMaskV(I,J,bi,bj) |
./pkg/seaice/seaice_lsr.F |
947 |
SEAICE_LSR |
& - (vIce(i,j,bi,bj)+vIce(i,j+1,bi,bj)) )**2 ) |
./pkg/seaice/seaice_lsr.F |
951 |
SEAICE_LSR |
& + ( (vIce(i,j,bi,bj)+vIce(i,j+1,bi,bj)) )**2 ) |
./pkg/seaice/seaice_lsr.F |
985 |
SEAICE_LSR |
I uIce, vIce, |
./pkg/seaice/seaice_model.F |
184 |
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 |
141 |
SEAICE_OUTPUT |
CALL WRITE_FLD_XY_RL( 'VICE.',suff,vIce,myIter,myThid) |
./pkg/seaice/seaice_read_pickup.F |
321 |
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 |
141 |
THSICE_DO_ADVECT |
O uIce, vIce, |
./pkg/thsice/thsice_do_advect.F |
144 |
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) |