| 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 |
303 |
THSICE_ADVECTION |
& iceFld, bi,bj, myThid ) |
|
./pkg/thsice/thsice_advection.F |
334 |
THSICE_ADVECTION |
I deltaTadvect, uTrans, uCfl, iceFld, |
|
./pkg/thsice/thsice_advection.F |
337 |
THSICE_ADVECTION |
& 'ICE_adv: xFx=', af(idb,jdb), iceFld(idb,jdb), |
|
./pkg/thsice/thsice_advection.F |
341 |
THSICE_ADVECTION |
I uTrans, uCfl, maskLocW, iceFld, |
|
./pkg/thsice/thsice_advection.F |
345 |
THSICE_ADVECTION |
I uTrans, uCfl, maskLocW, iceFld, |
|
./pkg/thsice/thsice_advection.F |
349 |
THSICE_ADVECTION |
I uTrans, uCfl, maskLocW, iceFld, |
|
./pkg/thsice/thsice_advection.F |
360 |
THSICE_ADVECTION |
& iceFld, bi,bj, myThid ) |
|
./pkg/thsice/thsice_advection.F |
388 |
THSICE_ADVECTION |
iceFld(i,j) = iceFld(i,j) |
|
./pkg/thsice/thsice_advection.F |
402 |
THSICE_ADVECTION |
& iceFld(i,j) = ( iceFld(i,j)*tmpVol |
|
./pkg/thsice/thsice_advection.F |
412 |
THSICE_ADVECTION |
iceFld(i,j) = iceFld(i,j) |
|
./pkg/thsice/thsice_advection.F |
426 |
THSICE_ADVECTION |
& iceFld(i,j) = ( iceFld(i,j)*tmpVol |
|
./pkg/thsice/thsice_advection.F |
458 |
THSICE_ADVECTION |
iceFld(i,j) = iceFld(i,j) |
|
./pkg/thsice/thsice_advection.F |
472 |
THSICE_ADVECTION |
& iceFld(i,j) = ( iceFld(i,j)*tmpVol |
|
./pkg/thsice/thsice_advection.F |
517 |
THSICE_ADVECTION |
& iceFld, bi,bj, myThid ) |
|
./pkg/thsice/thsice_advection.F |
548 |
THSICE_ADVECTION |
I deltaTadvect, vTrans, vCfl, iceFld, |
|
./pkg/thsice/thsice_advection.F |
551 |
THSICE_ADVECTION |
& 'ICE_adv: yFx=', af(idb,jdb), iceFld(idb,jdb), |
|
./pkg/thsice/thsice_advection.F |
555 |
THSICE_ADVECTION |
I vTrans, vCfl, maskLocS, iceFld, |
|
./pkg/thsice/thsice_advection.F |
559 |
THSICE_ADVECTION |
I vTrans, vCfl, maskLocS, iceFld, |
|
./pkg/thsice/thsice_advection.F |
563 |
THSICE_ADVECTION |
I vTrans, vCfl, maskLocS, iceFld, |
|
./pkg/thsice/thsice_advection.F |
573 |
THSICE_ADVECTION |
& iceFld, bi,bj, myThid ) |
|
./pkg/thsice/thsice_advection.F |
601 |
THSICE_ADVECTION |
iceFld(i,j) = iceFld(i,j) |
|
./pkg/thsice/thsice_advection.F |
615 |
THSICE_ADVECTION |
& iceFld(i,j) = ( iceFld(i,j)*tmpVol |
|
./pkg/thsice/thsice_advection.F |
625 |
THSICE_ADVECTION |
iceFld(i,j) = iceFld(i,j) |
|
./pkg/thsice/thsice_advection.F |
639 |
THSICE_ADVECTION |
& iceFld(i,j) = ( iceFld(i,j)*tmpVol |
|
./pkg/thsice/thsice_advection.F |
671 |
THSICE_ADVECTION |
iceFld(i,j) = iceFld(i,j) |
|
./pkg/thsice/thsice_advection.F |
685 |
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) ) |