File |
Line number |
Procedure |
Code |
./pkg/seaice/seaice_advection.F |
20 |
SEAICE_ADVECTION |
I uFld, vFld, uTrans, vTrans, iceFld, r_hFld, |
./pkg/seaice/seaice_advection.F |
256 |
SEAICE_ADVECTION |
localTij(i,j)=iceFld(i,j) |
./pkg/seaice/seaice_advection.F |
442 |
SEAICE_ADVECTION |
& -(uTrans(i+1,j)-uTrans(i,j))*iceFld(i,j) |
./pkg/seaice/seaice_advection.F |
464 |
SEAICE_ADVECTION |
& -(uTrans(i+1,j)-uTrans(i,j))*iceFld(i,j) |
./pkg/seaice/seaice_advection.F |
508 |
SEAICE_ADVECTION |
& -(uTrans(i+1,j)-uTrans(i,j))*iceFld(i,j) |
./pkg/seaice/seaice_advection.F |
644 |
SEAICE_ADVECTION |
& -(vTrans(i,j+1)-vTrans(i,j))*iceFld(i,j) |
./pkg/seaice/seaice_advection.F |
666 |
SEAICE_ADVECTION |
& -(vTrans(i,j+1)-vTrans(i,j))*iceFld(i,j) |
./pkg/seaice/seaice_advection.F |
710 |
SEAICE_ADVECTION |
& -(vTrans(i,j+1)-vTrans(i,j))*iceFld(i,j) |
./pkg/seaice/seaice_advection.F |
734 |
SEAICE_ADVECTION |
gFld(i,j)=(localTij(i,j)-iceFld(i,j))/SEAICE_deltaTtherm |
./pkg/seaice/seaice_advection.F |
91 |
SEAICE_ADVECTION |
_RL iceFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
./pkg/seaice/seaice_diffusion.F |
15 |
SEAICE_DIFFUSION |
I iceFld, iceMask, xA, yA, |
./pkg/seaice/seaice_diffusion.F |
47 |
SEAICE_DIFFUSION |
_RL iceFld (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
./pkg/seaice/seaice_diffusion.F |
88 |
SEAICE_DIFFUSION |
CALL GAD_DIFF_X(bi,bj,k,xA,diffKh,iceFld,fZon,myThid) |
./pkg/seaice/seaice_diffusion.F |
90 |
SEAICE_DIFFUSION |
CALL GAD_DIFF_Y(bi,bj,k,yA,diffKh,iceFld,fMer,myThid) |
./pkg/thsice/thsice_advection.F |
19 |
THSICE_ADVECTION |
U iceVol, iceFld, |
./pkg/thsice/thsice_advection.F |
329 |
THSICE_ADVECTION |
& iceFld, bi,bj, myThid ) |
./pkg/thsice/thsice_advection.F |
360 |
THSICE_ADVECTION |
I deltaTadvect, uTrans, uCfl, iceFld, |
./pkg/thsice/thsice_advection.F |
364 |
THSICE_ADVECTION |
& 'ICE_adv: xFx=', af(idb,jdb), iceFld(idb,jdb), |
./pkg/thsice/thsice_advection.F |
369 |
THSICE_ADVECTION |
I uTrans, uCfl, maskLocW, iceFld, |
./pkg/thsice/thsice_advection.F |
373 |
THSICE_ADVECTION |
I uTrans, uCfl, maskLocW, iceFld, |
./pkg/thsice/thsice_advection.F |
377 |
THSICE_ADVECTION |
I uTrans, uCfl, maskLocW, iceFld, |
./pkg/thsice/thsice_advection.F |
388 |
THSICE_ADVECTION |
& iceFld, bi,bj, myThid ) |
./pkg/thsice/thsice_advection.F |
417 |
THSICE_ADVECTION |
iceFld(i,j) = iceFld(i,j) |
./pkg/thsice/thsice_advection.F |
431 |
THSICE_ADVECTION |
& iceFld(i,j) = ( iceFld(i,j)*tmpVol |
./pkg/thsice/thsice_advection.F |
450 |
THSICE_ADVECTION |
iceFld(i,j) = iceFld(i,j) |
./pkg/thsice/thsice_advection.F |
464 |
THSICE_ADVECTION |
& iceFld(i,j) = ( iceFld(i,j)*tmpVol |
./pkg/thsice/thsice_advection.F |
489 |
THSICE_ADVECTION |
iceFld(i,j) = iceFld(i,j) |
./pkg/thsice/thsice_advection.F |
503 |
THSICE_ADVECTION |
& iceFld(i,j) = ( iceFld(i,j)*tmpVol |
./pkg/thsice/thsice_advection.F |
549 |
THSICE_ADVECTION |
& iceFld, bi,bj, myThid ) |
./pkg/thsice/thsice_advection.F |
580 |
THSICE_ADVECTION |
I deltaTadvect, vTrans, vCfl, iceFld, |
./pkg/thsice/thsice_advection.F |
584 |
THSICE_ADVECTION |
& 'ICE_adv: yFx=', af(idb,jdb), iceFld(idb,jdb), |
./pkg/thsice/thsice_advection.F |
589 |
THSICE_ADVECTION |
I vTrans, vCfl, maskLocS, iceFld, |
./pkg/thsice/thsice_advection.F |
593 |
THSICE_ADVECTION |
I vTrans, vCfl, maskLocS, iceFld, |
./pkg/thsice/thsice_advection.F |
597 |
THSICE_ADVECTION |
I vTrans, vCfl, maskLocS, iceFld, |
./pkg/thsice/thsice_advection.F |
607 |
THSICE_ADVECTION |
& iceFld, bi,bj, myThid ) |
./pkg/thsice/thsice_advection.F |
636 |
THSICE_ADVECTION |
iceFld(i,j) = iceFld(i,j) |
./pkg/thsice/thsice_advection.F |
650 |
THSICE_ADVECTION |
& iceFld(i,j) = ( iceFld(i,j)*tmpVol |
./pkg/thsice/thsice_advection.F |
669 |
THSICE_ADVECTION |
iceFld(i,j) = iceFld(i,j) |
./pkg/thsice/thsice_advection.F |
683 |
THSICE_ADVECTION |
& iceFld(i,j) = ( iceFld(i,j)*tmpVol |
./pkg/thsice/thsice_advection.F |
708 |
THSICE_ADVECTION |
iceFld(i,j) = iceFld(i,j) |
./pkg/thsice/thsice_advection.F |
722 |
THSICE_ADVECTION |
& iceFld(i,j) = ( iceFld(i,j)*tmpVol |
./pkg/thsice/thsice_advection.F |
86 |
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) ) |