| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/lsr.F |
220 |
LSR |
TEMPVAR=(uIce(I,J,bi,bj)-GWATX(I,J,bi,bj))**2 |
|
./pkg/seaice/lsr.F |
493 |
LSR |
uTmp(I,J,bi,bj)=uIce(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
508 |
LSR |
IF (I.EQ.1) AA3 = AA3 - AU(I,J,bi,bj)*uIce(I-1,J,bi,bj) |
|
./pkg/seaice/lsr.F |
509 |
LSR |
IF (I.EQ.sNx) AA3 = AA3 - CU(I,J,bi,bj)*uIce(I+1,J,bi,bj) |
|
./pkg/seaice/lsr.F |
517 |
LSR |
& + uRt1(I,J,bi,bj)*uIce(I,J-1,bi,bj) |
|
./pkg/seaice/lsr.F |
518 |
LSR |
& + uRt2(I,J,bi,bj)*uIce(I,J+1,bi,bj) |
|
./pkg/seaice/lsr.F |
553 |
LSR |
uIce(I,J,bi,bj)=uTmp(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
614 |
LSR |
UERR=(uIce(I,J,bi,bj)-uTmp(I,J,bi,bj)) |
|
./pkg/seaice/lsr.F |
656 |
LSR |
CALL EXCH_UV_XY_RL( uIce, vIce,.TRUE.,myThid) |
|
./pkg/seaice/lsr.F |
666 |
LSR |
CALL DEBUG_STATS_RL( 1, uIce, 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 |
254 |
SEAICE_DYNSOLVER |
uIce(i,j,bi,bj) = uIce_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 |
341 |
SEAICE_DYNSOLVER |
uIce(i,j,bi,bj)= |
|
./pkg/seaice/seaice_dynsolver.F |
342 |
SEAICE_DYNSOLVER |
& MAX(MIN(uIce(i,j,bi,bj),0.40 _d +00),-0.40 _d +00) |
|
./pkg/seaice/seaice_evp.F |
151 |
SEAICE_EVP |
uIceNm1(I,J,bi,bj) = uIce(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 |
507 |
SEAICE_EVP |
& (uVel(I ,J ,kSrf,bi,bj)-uIce(I ,J ,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
508 |
SEAICE_EVP |
& +uVel(I+1,J ,kSrf,bi,bj)-uIce(I+1,J ,bi,bj)) |
|
./pkg/seaice/seaice_evp.F |
510 |
SEAICE_EVP |
& (uVel(I ,J-1,kSrf,bi,bj)-uIce(I ,J-1,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
511 |
SEAICE_EVP |
& +uVel(I+1,J-1,kSrf,bi,bj)-uIce(I+1,J-1,bi,bj)) |
|
./pkg/seaice/seaice_evp.F |
522 |
SEAICE_EVP |
& * 0.5 _d 0*( uIce(I,J ,bi,bj)+uIce(I+1, J,bi,bj) ) |
|
./pkg/seaice/seaice_evp.F |
524 |
SEAICE_EVP |
& * 0.5 _d 0*( uIce(I,J-1,bi,bj)+uIce(I+1,J-1,bi,bj) ) |
|
./pkg/seaice/seaice_evp.F |
533 |
SEAICE_EVP |
uIce(I,J,bi,bj) = seaiceMaskU(I,J,bi,bj) * |
|
./pkg/seaice/seaice_evp.F |
535 |
SEAICE_EVP |
& * uIce(I,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
567 |
SEAICE_EVP |
uIce(i,j,bi,bj) = uIce(i,j,bi,bj)*locMaskU |
|
./pkg/seaice/seaice_evp.F |
582 |
SEAICE_EVP |
CALL EXCH_UV_XY_RL(uIce,vIce,.TRUE.,myThid) |
|
./pkg/seaice/seaice_get_dynforcing.F |
137 |
SEAICE_GET_DYNFORCING |
& - 0.5 _d 0 * (uIce(i,j,bi,bj)+uIce(i+1,j,bi,bj)) |
|
./pkg/seaice/seaice_get_dynforcing.F |
13 |
SEAICE_GET_DYNFORCING |
I uIce, vIce, |
|
./pkg/seaice/seaice_get_dynforcing.F |
181 |
SEAICE_GET_DYNFORCING |
& -0.5 _d 0*(uIce(i,j,bi,bj)+uIce(i+1,j,bi,bj))) |
|
./pkg/seaice/seaice_get_dynforcing.F |
189 |
SEAICE_GET_DYNFORCING |
& -0.5 _d 0*(uIce(i-1,j,bi,bj)+uIce(i,j,bi,bj))) |
|
./pkg/seaice/seaice_get_dynforcing.F |
200 |
SEAICE_GET_DYNFORCING |
& -0.5 _d 0*(uIce(i,j,bi,bj)+uIce(i+1,j,bi,bj))) |
|
./pkg/seaice/seaice_get_dynforcing.F |
208 |
SEAICE_GET_DYNFORCING |
& -0.5 _d 0*(uIce(i,j-1,bi,bj)+uIce(i+1,j-1,bi,bj))) |
|
./pkg/seaice/seaice_get_dynforcing.F |
49 |
SEAICE_GET_DYNFORCING |
_RL uIce (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/seaice/seaice_init_varia.F |
479 |
SEAICE_INIT_VARIA |
& CALL READ_FLD_XY_RL( uIceFile, ' ', uIce, 0, myThid ) |
|
./pkg/seaice/seaice_init_varia.F |
488 |
SEAICE_INIT_VARIA |
uIce(i,j,bi,bj) = uIce(i,j,bi,bj)*seaiceMaskU(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 |
149 |
SEAICE_JACVEC |
utp(I,J,bi,bj) = uIce(I,J,bi,bj) + epsilon * duIce(I,J,bi,bj) |
|
./pkg/seaice/seaice_jfnk.F |
145 |
SEAICE_JFNK |
duIcNm1(I,J,bi,bj) = uIce(I,J,bi,bj) * bdfAlpha |
|
./pkg/seaice/seaice_jfnk.F |
146 |
SEAICE_JFNK |
& + ( uIce(I,J,bi,bj) - uIceNm1(I,J,bi,bj) ) * bdfFac |
|
./pkg/seaice/seaice_jfnk.F |
149 |
SEAICE_JFNK |
uIceNm1(I,J,bi,bj) = uIce(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 |
476 |
SEAICE_JFNK_UPDATE |
_RL uIce (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/seaice/seaice_jfnk.F |
509 |
SEAICE_JFNK_UPDATE |
uIce(I,J,bi,bj) = uIce(I,J,bi,bj)+facLS*duIce(I,J,bi,bj) |
|
./pkg/seaice/seaice_jfnk.F |
518 |
SEAICE_JFNK_UPDATE |
I uIce, vIce, |
|
./pkg/seaice/seaice_lsr.F |
1578 |
SEAICE_LSR_TRIDIAGU |
U uIce, |
|
./pkg/seaice/seaice_lsr.F |
1616 |
SEAICE_LSR_TRIDIAGU |
_RL uIce(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/seaice/seaice_lsr.F |
1655 |
SEAICE_LSR_TRIDIAGU |
IF (I.EQ.iMin) AA3 = AA3 - AU(I,J,bi,bj)*uIce(I-1,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1656 |
SEAICE_LSR_TRIDIAGU |
IF (I.EQ.iMax) AA3 = AA3 - CU(I,J,bi,bj)*uIce(I+1,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1660 |
SEAICE_LSR_TRIDIAGU |
& + uRt1(I,J,bi,bj)*uIce(I,J-1,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1661 |
SEAICE_LSR_TRIDIAGU |
& + uRt2(I,J,bi,bj)*uIce(I,J+1,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1714 |
SEAICE_LSR_TRIDIAGU |
uIce(I,J,bi,bj)=uTmp(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
238 |
SEAICE_LSR |
uIceNm1(i,j,bi,bj)=uIce(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
240 |
SEAICE_LSR |
uIceC(I,J,bi,bj)=uIce(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
252 |
SEAICE_LSR |
uIce(I,J,bi,bj)=HALF*(uIce(I,J,bi,bj)+uIceNm1(i,j,bi,bj)) |
|
./pkg/seaice/seaice_lsr.F |
254 |
SEAICE_LSR |
uIceC(I,J,bi,bj)=uIce(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
267 |
SEAICE_LSR |
uIceNm1(i,j,bi,bj)=uIce(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
427 |
SEAICE_LSR |
rhsU(I,J,bi,bj) = uIce(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 |
514 |
SEAICE_LSR |
uIce(i,j,bi,bj) = ( errFD *uIce(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 |
618 |
SEAICE_LSR |
uTmp(i,j,bi,bj) = uIce(i,j,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
620 |
SEAICE_LSR |
& + uRt1(i,j,bi,bj)*uIce(i,j-1,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
621 |
SEAICE_LSR |
& + uRt2(i,j,bi,bj)*uIce(i,j+1,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
646 |
SEAICE_LSR |
O uIce, vIce, errCode, |
|
./pkg/seaice/seaice_lsr.F |
654 |
SEAICE_LSR |
uIce(i,j,bi,bj) = uTmp(i,j,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
655 |
SEAICE_LSR |
& + WFAU*( uIce(i,j,bi,bj)-uTmp(i,j,bi,bj) ) |
|
./pkg/seaice/seaice_lsr.F |
695 |
SEAICE_LSR |
uTmp(I,J,bi,bj)=uIce(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
704 |
SEAICE_LSR |
U uIce, |
|
./pkg/seaice/seaice_lsr.F |
730 |
SEAICE_LSR |
UERR=(uIce(I,J,bi,bj)-uTmp(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 |
842 |
SEAICE_LSR |
uIce(I,J,bi,bj)=uIce(I,J,bi,bj)* seaiceMaskU(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
862 |
SEAICE_LSR |
& - (uIce(i,j,bi,bj)+uIce(i+1,j,bi,bj)) )**2 |
|
./pkg/seaice/seaice_lsr.F |
867 |
SEAICE_LSR |
& ( ( (uIce(i,j,bi,bj)+uIce(i+1,j,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 |
111 |
SEAICE_OCEAN_STRESS |
& 0.5 _d 0*(uIce(I ,J ,bi,bj)-uVel(I ,J ,kSrf,bi,bj) |
|
./pkg/seaice/seaice_ocean_stress.F |
112 |
SEAICE_OCEAN_STRESS |
& +uIce(I+1,J ,bi,bj)-uVel(I+1,J ,kSrf,bi,bj)) |
|
./pkg/seaice/seaice_ocean_stress.F |
114 |
SEAICE_OCEAN_STRESS |
& 0.5 _d 0*(uIce(I ,J-1,bi,bj)-uVel(I ,J-1,kSrf,bi,bj) |
|
./pkg/seaice/seaice_ocean_stress.F |
115 |
SEAICE_OCEAN_STRESS |
& +uIce(I+1,J-1,bi,bj)-uVel(I+1,J-1,kSrf,bi,bj)) |
|
./pkg/seaice/seaice_ocean_stress.F |
97 |
SEAICE_OCEAN_STRESS |
& ( uIce(I,J,bi,bj)-uVel(I,J,kSrf,bi,bj) ) |
|
./pkg/seaice/seaice_output.F |
102 |
SEAICE_OUTPUT |
CALL MNC_CW_RL_W(pf,'sice',0,0,'si_UICE',uIce,myThid) |
|
./pkg/seaice/seaice_output.F |
134 |
SEAICE_OUTPUT |
CALL WRITE_FLD_XY_RL( 'UICE.',suff,uIce,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 |
221 |
THSICE_ADVDIFF |
uTrIce(i,j) = uIce(i,j)*_dyG(i,j,bi,bj) |
|
./pkg/thsice/thsice_advdiff.F |
310 |
THSICE_ADVDIFF |
& 'ICE_ADV: uIce=', uIce(i,j), uIce(i+1,j), |
|
./pkg/thsice/thsice_advdiff.F |
56 |
THSICE_ADVDIFF |
_RL uIce (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/thsice/thsice_diffusion.F |
12 |
THSICE_DIFFUSION |
U uIce, vIce, |
|
./pkg/thsice/thsice_diffusion.F |
48 |
THSICE_DIFFUSION |
_RL uIce (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/thsice/thsice_diffusion.F |
88 |
THSICE_DIFFUSION |
& uIce(i,j) = uIce(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 |
55 |
THSICE_DO_ADVECT |
_RL uIce(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 |
120 |
THSICE_GET_OCEAN |
uRel1 = uVel( i, j,ks,bi,bj)-uIce( i, j,bi,bj) |
|
./pkg/thsice/thsice_get_ocean.F |
121 |
THSICE_GET_OCEAN |
uRel2 = uVel(i+1,j,ks,bi,bj)-uIce(i+1,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_seaice.F |
146 |
CHEAPAML_SEAICE |
uRelWind(i,j) = uRelWind(i,j)-uIce(i,j,bi,bj) |