| 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 |
324 |
SEAICE_DYNSOLVER |
uIce(i,j,bi,bj)= |
|
./pkg/seaice/seaice_dynsolver.F |
325 |
SEAICE_DYNSOLVER |
& MAX(MIN(uIce(i,j,bi,bj),0.40 _d +00),-0.40 _d +00) |
|
./pkg/seaice/seaice_evp.F |
127 |
SEAICE_EVP |
uIceC(I,J,bi,bj) = uIce(I,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
537 |
SEAICE_EVP |
uIce(I,J,bi,bj)=uIceC(I,J,bi,bj)* _maskW(I,J,kSrf,bi,bj) |
|
./pkg/seaice/seaice_get_dynforcing.F |
42 |
SEAICE_GET_DYNFORCING |
_RL uIce (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 |
152 |
SEAICE_LSR |
uIceNm1(i,j,bi,bj)=uIce(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
154 |
SEAICE_LSR |
uIceC(I,J,bi,bj)=uIce(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
172 |
SEAICE_LSR |
uIce(I,J,bi,bj)=HALF*(uIce(I,J,bi,bj)+uIceNm1(i,j,bi,bj)) |
|
./pkg/seaice/seaice_lsr.F |
174 |
SEAICE_LSR |
uIceC(I,J,bi,bj)=uIce(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
187 |
SEAICE_LSR |
uIceNm1(i,j,bi,bj)=uIce(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
514 |
SEAICE_LSR |
uTmp(I,J,bi,bj)=uIce(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
522 |
SEAICE_LSR |
& * uIce(I-1,J,bi,bj) * seaiceMaskU(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
525 |
SEAICE_LSR |
& * uIce(I+1,J,bi,bj) * seaiceMaskU(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
535 |
SEAICE_LSR |
& + UVRT1(I,J,bi,bj)*uIce(I,J-1,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
536 |
SEAICE_LSR |
& + UVRT2(I,J,bi,bj)*uIce(I,J+1,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
570 |
SEAICE_LSR |
uIce(I,J,bi,bj)=uTmp(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
584 |
SEAICE_LSR |
UERR=(uIce(I,J,bi,bj)-uTmp(I,J,bi,bj)) |
|
./pkg/seaice/seaice_lsr.F |
602 |
SEAICE_LSR |
CALL EXCH_UV_XY_RL( uIce, vIce,.TRUE.,myThid) |
|
./pkg/seaice/seaice_lsr.F |
847 |
SEAICE_LSR |
CALL EXCH_UV_XY_RL( uIce, vIce,.TRUE.,myThid) |
|
./pkg/seaice/seaice_lsr.F |
871 |
SEAICE_LSR |
uIce(I,J,bi,bj)=uIce(I,J,bi,bj)* seaiceMaskU(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
884 |
SEAICE_LSR |
I uIce, vIce, |
|
./pkg/seaice/seaice_lsr.F |
948 |
SEAICE_LSR |
& - (uIce(i,j,bi,bj)+uIce(i+1,j,bi,bj)) )**2 |
|
./pkg/seaice/seaice_lsr.F |
953 |
SEAICE_LSR |
& ( ( (uIce(i,j,bi,bj)+uIce(i+1,j,bi,bj)) )**2 |
|
./pkg/seaice/seaice_ocean_stress.F |
110 |
SEAICE_OCEAN_STRESS |
& 0.5 _d 0*(uIce(I ,J ,bi,bj)-uVel(I ,J ,kSrf,bi,bj) |
|
./pkg/seaice/seaice_ocean_stress.F |
111 |
SEAICE_OCEAN_STRESS |
& +uIce(I+1,J ,bi,bj)-uVel(I+1,J ,kSrf,bi,bj)) |
|
./pkg/seaice/seaice_ocean_stress.F |
113 |
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 |
114 |
SEAICE_OCEAN_STRESS |
& +uIce(I+1,J-1,bi,bj)-uVel(I+1,J-1,kSrf,bi,bj)) |
|
./pkg/seaice/seaice_ocean_stress.F |
96 |
SEAICE_OCEAN_STRESS |
& ( uIce(I,J,bi,bj)-uVel(I,J,kSrf,bi,bj) ) |
|
./pkg/seaice/seaice_output.F |
118 |
SEAICE_OUTPUT |
CALL WRITE_FLD_XY_RL( 'UICE.',suff,uIce,myIter,myThid) |
|
./pkg/seaice/seaice_output.F |
94 |
SEAICE_OUTPUT |
CALL MNC_CW_RL_W(pf,'sice',0,0,'si_UICE',uIce,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 |
187 |
THSICE_ADVDIFF |
uTrIce(i,j) = uIce(i,j)*_dyG(i,j,bi,bj) |
|
./pkg/thsice/thsice_advdiff.F |
276 |
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 |
42 |
THSICE_DO_ADVECT |
_RL uIce(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, |