| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/seaice_diagnostics_state.F |
143 |
SEAICE_DIAGNOSTICS_STATE |
I uIce, vIce, |
|
./pkg/seaice/seaice_dynsolver.F |
166 |
SEAICE_DYNSOLVER |
I uIce, vIce, |
|
./pkg/seaice/seaice_dynsolver.F |
301 |
SEAICE_DYNSOLVER |
vIce(i,j,bi,bj)= |
|
./pkg/seaice/seaice_dynsolver.F |
302 |
SEAICE_DYNSOLVER |
& MAX(MIN(vIce(i,j,bi,bj),0.40 _d +00),-0.40 _d +00) |
|
./pkg/seaice/seaice_evp.F |
128 |
SEAICE_EVP |
vIceC(I,J,bi,bj) = vIce(I,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
538 |
SEAICE_EVP |
vIce(I,J,bi,bj)=vIceC(I,J,bi,bj)* _maskS(I,J,kSrf,bi,bj) |
|
./pkg/seaice/seaice_get_dynforcing.F |
43 |
SEAICE_GET_DYNFORCING |
_RL vIce (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/seaice/seaice_get_dynforcing.F |
8 |
SEAICE_GET_DYNFORCING |
I uIce, vIce, |
|
./pkg/seaice/seaice_lsr.F |
1012 |
SEAICE_LSR |
vIceNm1(i,j,bi,bj)=vIce(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1426 |
SEAICE_LSR |
CALL EXCH_UV_XY_RL( uIce, vIce,.TRUE.,myThid) |
|
./pkg/seaice/seaice_lsr.F |
154 |
SEAICE_LSR |
vIceNm1(i,j,bi,bj)=vIce(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
156 |
SEAICE_LSR |
vIceC(I,J,bi,bj)=vIce(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1628 |
SEAICE_LSR |
vTmp(I,J,bi,bj)=vIce(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1643 |
SEAICE_LSR |
& ) * vIce(I,J-1,bi,bj) * seaiceMaskV(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1653 |
SEAICE_LSR |
& ) * vIce(I,J+1,bi,bj) * seaiceMaskV(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1664 |
SEAICE_LSR |
& + UVRT1(I,J,bi,bj)*vIce(I-1,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1665 |
SEAICE_LSR |
& + UVRT2(I,J,bi,bj)*vIce(I+1,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1686 |
SEAICE_LSR |
vIce(I,J,bi,bj)=vTmp(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1700 |
SEAICE_LSR |
UERR=(vIce(I,J,bi,bj)-vTmp(I,J,bi,bj)) |
|
./pkg/seaice/seaice_lsr.F |
1716 |
SEAICE_LSR |
CALL EXCH_UV_XY_RL( uIce, vIce,.TRUE.,myThid) |
|
./pkg/seaice/seaice_lsr.F |
1739 |
SEAICE_LSR |
vIce(I,J,bi,bj)=vIce(I,J,bi,bj)* seaiceMaskV(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
174 |
SEAICE_LSR |
vIce(I,J,bi,bj)=HALF*(vIce(I,J,bi,bj)+vIceNm1(i,j,bi,bj)) |
|
./pkg/seaice/seaice_lsr.F |
1753 |
SEAICE_LSR |
I uIce, vIce, |
|
./pkg/seaice/seaice_lsr.F |
176 |
SEAICE_LSR |
vIceC(I,J,bi,bj)=vIce(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1819 |
SEAICE_LSR |
& - (vIce(i,j,bi,bj)+vIce(i,j+1,bi,bj)) )**2 ) |
|
./pkg/seaice/seaice_lsr.F |
1823 |
SEAICE_LSR |
& + ( (vIce(i,j,bi,bj)+vIce(i,j+1,bi,bj)) )**2 ) |
|
./pkg/seaice/seaice_lsr.F |
189 |
SEAICE_LSR |
vIceNm1(i,j,bi,bj)=vIce(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
603 |
SEAICE_LSR |
CALL EXCH_UV_XY_RL( uIce, vIce,.TRUE.,myThid) |
|
./pkg/seaice/seaice_lsr.F |
774 |
SEAICE_LSR |
vTmp(I,J,bi,bj)=vIce(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
782 |
SEAICE_LSR |
& ) * vIce(I,J-1,bi,bj) * seaiceMaskV(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
785 |
SEAICE_LSR |
& ) * vIce(I,J+1,bi,bj) * seaiceMaskV(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
796 |
SEAICE_LSR |
& + UVRT1(I,J,bi,bj)*vIce(I-1,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
797 |
SEAICE_LSR |
& + UVRT2(I,J,bi,bj)*vIce(I+1,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
818 |
SEAICE_LSR |
vIce(I,J,bi,bj)=vTmp(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
832 |
SEAICE_LSR |
UERR=(vIce(I,J,bi,bj)-vTmp(I,J,bi,bj)) |
|
./pkg/seaice/seaice_lsr.F |
848 |
SEAICE_LSR |
CALL EXCH_UV_XY_RL( uIce, vIce,.TRUE.,myThid) |
|
./pkg/seaice/seaice_lsr.F |
873 |
SEAICE_LSR |
vIce(I,J,bi,bj)=vIce(I,J,bi,bj)* seaiceMaskV(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
977 |
SEAICE_LSR |
vIceNm1(i,j,bi,bj)=vIce(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
979 |
SEAICE_LSR |
vIceC(I,J,bi,bj)=vIce(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
997 |
SEAICE_LSR |
vIce(I,J,bi,bj)=HALF*(vIce(I,J,bi,bj)+vIceNm1(i,j,bi,bj)) |
|
./pkg/seaice/seaice_lsr.F |
999 |
SEAICE_LSR |
vIceC(I,J,bi,bj)=vIce(I,J,bi,bj) |
|
./pkg/seaice/seaice_ocean_stress.F |
102 |
SEAICE_OCEAN_STRESS |
& ( vIce(I,J,bi,bj)-vVel(I,J,kSrf,bi,bj) ) |
|
./pkg/seaice/seaice_ocean_stress.F |
94 |
SEAICE_OCEAN_STRESS |
& 0.5 _d 0*(vIce(I ,J ,bi,bj)-vVel(I ,J ,kSrf,bi,bj) |
|
./pkg/seaice/seaice_ocean_stress.F |
95 |
SEAICE_OCEAN_STRESS |
& +vIce(I ,J+1,bi,bj)-vVel(I ,J+1,kSrf,bi,bj)) |
|
./pkg/seaice/seaice_ocean_stress.F |
97 |
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 |
98 |
SEAICE_OCEAN_STRESS |
& +vIce(I-1,J+1,bi,bj)-vVel(I-1,J+1,kSrf,bi,bj)) |
|
./pkg/seaice/seaice_output.F |
119 |
SEAICE_OUTPUT |
CALL WRITE_FLD_XY_RL( 'VICE.',suff,vIce,myIter,myThid) |
|
./pkg/seaice/seaice_output.F |
95 |
SEAICE_OUTPUT |
CALL MNC_CW_RL_W(pf,'sice',0,0,'si_VICE',vIce,myThid) |
|
./pkg/seaice/seaice_read_pickup.F |
248 |
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 |
178 |
THSICE_ADVDIFF |
U uIce, vIce, |
|
./pkg/thsice/thsice_advdiff.F |
193 |
THSICE_ADVDIFF |
vTrIce(i,j) = vIce(i,j)*_dxG(i,j,bi,bj) |
|
./pkg/thsice/thsice_advdiff.F |
277 |
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 |
43 |
THSICE_DO_ADVECT |
_RL vIce(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/thsice/thsice_do_advect.F |
47 |
THSICE_DO_ADVECT |
O uIce, vIce, |
|
./pkg/thsice/thsice_do_advect.F |
50 |
THSICE_DO_ADVECT |
U uIce, vIce, |