| 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 |
326 |
SEAICE_DYNSOLVER |
vIce(i,j,bi,bj)= |
|
./pkg/seaice/seaice_dynsolver.F |
327 |
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 |
153 |
SEAICE_LSR |
vIceNm1(i,j,bi,bj)=vIce(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
155 |
SEAICE_LSR |
vIceC(I,J,bi,bj)=vIce(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
173 |
SEAICE_LSR |
vIce(I,J,bi,bj)=HALF*(vIce(I,J,bi,bj)+vIceNm1(i,j,bi,bj)) |
|
./pkg/seaice/seaice_lsr.F |
175 |
SEAICE_LSR |
vIceC(I,J,bi,bj)=vIce(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
188 |
SEAICE_LSR |
vIceNm1(i,j,bi,bj)=vIce(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 |
773 |
SEAICE_LSR |
vTmp(I,J,bi,bj)=vIce(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
781 |
SEAICE_LSR |
& ) * vIce(I,J-1,bi,bj) * seaiceMaskV(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
784 |
SEAICE_LSR |
& ) * vIce(I,J+1,bi,bj) * seaiceMaskV(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
795 |
SEAICE_LSR |
& + UVRT1(I,J,bi,bj)*vIce(I-1,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
796 |
SEAICE_LSR |
& + UVRT2(I,J,bi,bj)*vIce(I+1,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
817 |
SEAICE_LSR |
vIce(I,J,bi,bj)=vTmp(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
831 |
SEAICE_LSR |
UERR=(vIce(I,J,bi,bj)-vTmp(I,J,bi,bj)) |
|
./pkg/seaice/seaice_lsr.F |
847 |
SEAICE_LSR |
CALL EXCH_UV_XY_RL( uIce, vIce,.TRUE.,myThid) |
|
./pkg/seaice/seaice_lsr.F |
872 |
SEAICE_LSR |
vIce(I,J,bi,bj)=vIce(I,J,bi,bj)* seaiceMaskV(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
884 |
SEAICE_LSR |
I uIce, vIce, |
|
./pkg/seaice/seaice_lsr.F |
950 |
SEAICE_LSR |
& - (vIce(i,j,bi,bj)+vIce(i,j+1,bi,bj)) )**2 ) |
|
./pkg/seaice/seaice_lsr.F |
954 |
SEAICE_LSR |
& + ( (vIce(i,j,bi,bj)+vIce(i,j+1,bi,bj)) )**2 ) |
|
./pkg/seaice/seaice_ocean_stress.F |
100 |
SEAICE_OCEAN_STRESS |
& +vIce(I ,J+1,bi,bj)-vVel(I ,J+1,kSrf,bi,bj)) |
|
./pkg/seaice/seaice_ocean_stress.F |
102 |
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 |
103 |
SEAICE_OCEAN_STRESS |
& +vIce(I-1,J+1,bi,bj)-vVel(I-1,J+1,kSrf,bi,bj)) |
|
./pkg/seaice/seaice_ocean_stress.F |
107 |
SEAICE_OCEAN_STRESS |
& ( vIce(I,J,bi,bj)-vVel(I,J,kSrf,bi,bj) ) |
|
./pkg/seaice/seaice_ocean_stress.F |
99 |
SEAICE_OCEAN_STRESS |
& 0.5 _d 0*(vIce(I ,J ,bi,bj)-vVel(I ,J ,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, |