| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/diffus.F |
109 |
DIFFUS |
_EXCH_XY_RL(iceFld, myThid) |
|
./pkg/seaice/diffus.F |
115 |
DIFFUS |
fld(I,J,bi,bj)=iceFld(I,J,bi,bj) |
|
./pkg/seaice/diffus.F |
37 |
DIFFUS |
COMMON / LOCAL_DIFFUS / iceFld |
|
./pkg/seaice/diffus.F |
38 |
DIFFUS |
_RL iceFld (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/seaice/diffus.F |
47 |
DIFFUS |
iceFld(I,J,bi,bj)=0.0 _d 0 |
|
./pkg/seaice/diffus.F |
60 |
DIFFUS |
iceFld(I,J,bi,bj)=DELTXX*( |
|
./pkg/seaice/diffus.F |
97 |
DIFFUS |
iceFld(I,J,bi,bj)= |
|
./pkg/seaice/seaice_advection.F |
17 |
SEAICE_ADVECTION |
I uFld, vFld, uTrans, vTrans, iceFld, r_hFld, |
|
./pkg/seaice/seaice_advection.F |
238 |
SEAICE_ADVECTION |
localTij(i,j)=iceFld(i,j) |
|
./pkg/seaice/seaice_advection.F |
413 |
SEAICE_ADVECTION |
& -(uTrans(i+1,j)-uTrans(i,j))*iceFld(i,j) |
|
./pkg/seaice/seaice_advection.F |
435 |
SEAICE_ADVECTION |
& -(uTrans(i+1,j)-uTrans(i,j))*iceFld(i,j) |
|
./pkg/seaice/seaice_advection.F |
479 |
SEAICE_ADVECTION |
& -(uTrans(i+1,j)-uTrans(i,j))*iceFld(i,j) |
|
./pkg/seaice/seaice_advection.F |
612 |
SEAICE_ADVECTION |
& -(vTrans(i,j+1)-vTrans(i,j))*iceFld(i,j) |
|
./pkg/seaice/seaice_advection.F |
634 |
SEAICE_ADVECTION |
& -(vTrans(i,j+1)-vTrans(i,j))*iceFld(i,j) |
|
./pkg/seaice/seaice_advection.F |
678 |
SEAICE_ADVECTION |
& -(vTrans(i,j+1)-vTrans(i,j))*iceFld(i,j) |
|
./pkg/seaice/seaice_advection.F |
702 |
SEAICE_ADVECTION |
gFld(i,j)=(localTij(i,j)-iceFld(i,j))/SEAICE_deltaTtherm |
|
./pkg/seaice/seaice_advection.F |
84 |
SEAICE_ADVECTION |
_RL iceFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/seaice/seaice_diffusion.F |
11 |
SEAICE_DIFFUSION |
I iceFld, iceMask, xA, yA, |
|
./pkg/seaice/seaice_diffusion.F |
42 |
SEAICE_DIFFUSION |
_RL iceFld (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/seaice/seaice_diffusion.F |
82 |
SEAICE_DIFFUSION |
CALL GAD_DIFF_X(bi,bj,k,xA,diff1,iceFld,fZon,myThid) |
|
./pkg/seaice/seaice_diffusion.F |
84 |
SEAICE_DIFFUSION |
CALL GAD_DIFF_Y(bi,bj,k,yA,diff1,iceFld,fMer,myThid) |
|
./pkg/thsice/thsice_advection.F |
19 |
THSICE_ADVECTION |
U iceVol, iceFld, |
|
./pkg/thsice/thsice_advection.F |
304 |
THSICE_ADVECTION |
& iceFld, bi,bj, myThid ) |
|
./pkg/thsice/thsice_advection.F |
335 |
THSICE_ADVECTION |
I deltaTadvect, uTrans, uCfl, iceFld, |
|
./pkg/thsice/thsice_advection.F |
338 |
THSICE_ADVECTION |
& 'ICE_adv: xFx=', af(idb,jdb), iceFld(idb,jdb), |
|
./pkg/thsice/thsice_advection.F |
342 |
THSICE_ADVECTION |
I uTrans, uCfl, maskLocW, iceFld, |
|
./pkg/thsice/thsice_advection.F |
346 |
THSICE_ADVECTION |
I uTrans, uCfl, maskLocW, iceFld, |
|
./pkg/thsice/thsice_advection.F |
350 |
THSICE_ADVECTION |
I uTrans, uCfl, maskLocW, iceFld, |
|
./pkg/thsice/thsice_advection.F |
361 |
THSICE_ADVECTION |
& iceFld, bi,bj, myThid ) |
|
./pkg/thsice/thsice_advection.F |
389 |
THSICE_ADVECTION |
iceFld(i,j) = iceFld(i,j) |
|
./pkg/thsice/thsice_advection.F |
403 |
THSICE_ADVECTION |
& iceFld(i,j) = ( iceFld(i,j)*tmpVol |
|
./pkg/thsice/thsice_advection.F |
413 |
THSICE_ADVECTION |
iceFld(i,j) = iceFld(i,j) |
|
./pkg/thsice/thsice_advection.F |
427 |
THSICE_ADVECTION |
& iceFld(i,j) = ( iceFld(i,j)*tmpVol |
|
./pkg/thsice/thsice_advection.F |
459 |
THSICE_ADVECTION |
iceFld(i,j) = iceFld(i,j) |
|
./pkg/thsice/thsice_advection.F |
473 |
THSICE_ADVECTION |
& iceFld(i,j) = ( iceFld(i,j)*tmpVol |
|
./pkg/thsice/thsice_advection.F |
519 |
THSICE_ADVECTION |
& iceFld, bi,bj, myThid ) |
|
./pkg/thsice/thsice_advection.F |
550 |
THSICE_ADVECTION |
I deltaTadvect, vTrans, vCfl, iceFld, |
|
./pkg/thsice/thsice_advection.F |
553 |
THSICE_ADVECTION |
& 'ICE_adv: yFx=', af(idb,jdb), iceFld(idb,jdb), |
|
./pkg/thsice/thsice_advection.F |
557 |
THSICE_ADVECTION |
I vTrans, vCfl, maskLocS, iceFld, |
|
./pkg/thsice/thsice_advection.F |
561 |
THSICE_ADVECTION |
I vTrans, vCfl, maskLocS, iceFld, |
|
./pkg/thsice/thsice_advection.F |
565 |
THSICE_ADVECTION |
I vTrans, vCfl, maskLocS, iceFld, |
|
./pkg/thsice/thsice_advection.F |
575 |
THSICE_ADVECTION |
& iceFld, bi,bj, myThid ) |
|
./pkg/thsice/thsice_advection.F |
603 |
THSICE_ADVECTION |
iceFld(i,j) = iceFld(i,j) |
|
./pkg/thsice/thsice_advection.F |
617 |
THSICE_ADVECTION |
& iceFld(i,j) = ( iceFld(i,j)*tmpVol |
|
./pkg/thsice/thsice_advection.F |
627 |
THSICE_ADVECTION |
iceFld(i,j) = iceFld(i,j) |
|
./pkg/thsice/thsice_advection.F |
641 |
THSICE_ADVECTION |
& iceFld(i,j) = ( iceFld(i,j)*tmpVol |
|
./pkg/thsice/thsice_advection.F |
673 |
THSICE_ADVECTION |
iceFld(i,j) = iceFld(i,j) |
|
./pkg/thsice/thsice_advection.F |
687 |
THSICE_ADVECTION |
& iceFld(i,j) = ( iceFld(i,j)*tmpVol |
|
./pkg/thsice/thsice_advection.F |
85 |
THSICE_ADVECTION |
_RL iceFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/thsice/thsice_diffusion.F |
100 |
THSICE_DIFFUSION |
& + thSIce_diffK*( iceFld(i,j-1)-iceFld(i,j) ) |
|
./pkg/thsice/thsice_diffusion.F |
63 |
THSICE_DIFFUSION |
_RL iceFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/thsice/thsice_diffusion.F |
77 |
THSICE_DIFFUSION |
iceFld(i,j) = ( rhos*snowHeight(i,j,bi,bj) |
|
./pkg/thsice/thsice_diffusion.F |
85 |
THSICE_DIFFUSION |
tmpFld = MAX( iceFld(i-1,j),iceFld(i,j) ) |
|
./pkg/thsice/thsice_diffusion.F |
89 |
THSICE_DIFFUSION |
& + thSIce_diffK*( iceFld(i-1,j)-iceFld(i,j) ) |
|
./pkg/thsice/thsice_diffusion.F |
96 |
THSICE_DIFFUSION |
tmpFld = MAX( iceFld(i,j-1),iceFld(i,j) ) |