| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/SEAICE_TRACER.h |
26 |
NO PROCEDURE |
_RL SItracer (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy,SItrMaxNum) |
|
./pkg/seaice/SEAICE_TRACER.h |
31 |
NO PROCEDURE |
& SItracer, SItrBucket, SItrHEFF, SItrAREA |
|
./pkg/seaice/seaice_advdiff.F |
413 |
SEAICE_ADVDIFF |
& SItracer(i,j,bi,bj,iTr) * hEffNm1(i,j,bi,bj) |
|
./pkg/seaice/seaice_advdiff.F |
423 |
SEAICE_ADVDIFF |
& SItracer(i,j,bi,bj,iTr) * areaNm1(i,j,bi,bj) |
|
./pkg/seaice/seaice_advdiff.F |
432 |
SEAICE_ADVDIFF |
SItrPrev(i,j,bi,bj)=SItracer(i,j,bi,bj,iTr) |
|
./pkg/seaice/seaice_advdiff.F |
468 |
SEAICE_ADVDIFF |
SItracer(i,j,bi,bj,iTr)=SItrExt(i,j,bi,bj)/HEFF(I,J,bi,bj) |
|
./pkg/seaice/seaice_advdiff.F |
471 |
SEAICE_ADVDIFF |
SItracer(i,j,bi,bj,iTr)=0. _d 0 |
|
./pkg/seaice/seaice_advdiff.F |
480 |
SEAICE_ADVDIFF |
tmpscal2=MAX(ZERO,SItracer(i,j,bi,bj,iTr)-tmpscal1) |
|
./pkg/seaice/seaice_advdiff.F |
481 |
SEAICE_ADVDIFF |
SItracer(i,j,bi,bj,iTr)=SItracer(i,j,bi,bj,iTr)-tmpscal2 |
|
./pkg/seaice/seaice_advdiff.F |
487 |
SEAICE_ADVDIFF |
tmpscal1=MIN(0. _d 0,SItracer(i,j,bi,bj,iTr)) |
|
./pkg/seaice/seaice_advdiff.F |
488 |
SEAICE_ADVDIFF |
SItracer(i,j,bi,bj,iTr)=SItracer(i,j,bi,bj,iTr)-tmpscal1 |
|
./pkg/seaice/seaice_advdiff.F |
495 |
SEAICE_ADVDIFF |
tmpscal1= ( HEFF(I,J,bi,bj)*SItracer(i,j,bi,bj,iTr) |
|
./pkg/seaice/seaice_advdiff.F |
508 |
SEAICE_ADVDIFF |
SItracer(i,j,bi,bj,iTr)=SItrExt(i,j,bi,bj)/AREA(I,J,bi,bj) |
|
./pkg/seaice/seaice_advdiff.F |
510 |
SEAICE_ADVDIFF |
SItracer(i,j,bi,bj,iTr)=0. _d 0 |
|
./pkg/seaice/seaice_advdiff.F |
517 |
SEAICE_ADVDIFF |
tmpscal2=MAX(ZERO,SItracer(i,j,bi,bj,iTr)-tmpscal1) |
|
./pkg/seaice/seaice_advdiff.F |
518 |
SEAICE_ADVDIFF |
SItracer(i,j,bi,bj,iTr)=SItracer(i,j,bi,bj,iTr)-tmpscal2 |
|
./pkg/seaice/seaice_advdiff.F |
522 |
SEAICE_ADVDIFF |
tmpscal1=MIN(0. _d 0,SItracer(i,j,bi,bj,iTr)) |
|
./pkg/seaice/seaice_advdiff.F |
523 |
SEAICE_ADVDIFF |
SItracer(i,j,bi,bj,iTr)=SItracer(i,j,bi,bj,iTr)-tmpscal1 |
|
./pkg/seaice/seaice_advdiff.F |
528 |
SEAICE_ADVDIFF |
& + AREA(I,J,bi,bj)*SItracer(i,j,bi,bj,iTr)*HEFFM(I,J,bi,bj) |
|
./pkg/seaice/seaice_diagnostics_state.F |
115 |
SEAICE_DIAGNOSTICS_STATE |
I SItracer(1-OLx,1-OLy,1,1,iTracer), HEFF, |
|
./pkg/seaice/seaice_diagnostics_state.F |
119 |
SEAICE_DIAGNOSTICS_STATE |
I SItracer(1-OLx,1-OLy,1,1,iTracer), AREA, |
|
./pkg/seaice/seaice_growth.F |
1136 |
SEAICE_GROWTH |
SItracer(I,J,bi,bj,iTrGrease) = |
|
./pkg/seaice/seaice_growth.F |
1137 |
SEAICE_GROWTH |
& SItracer(I,J,bi,bj,iTrGrease) * HEFF(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
1196 |
SEAICE_GROWTH |
tmpscal4 = 4. _d 0 * SItracer(I,J,bi,bj,iTrGrease) * tmpscal3 |
|
./pkg/seaice/seaice_growth.F |
1621 |
SEAICE_GROWTH |
tmpscal3 = tmpscal3 + SItracer(I,J,bi,bj,iTrGrease) |
|
./pkg/seaice/seaice_growth.F |
1622 |
SEAICE_GROWTH |
SItracer(I,J,bi,bj,iTrGrease) = 0. _d 0 |
|
./pkg/seaice/seaice_growth.F |
1636 |
SEAICE_GROWTH |
& SItracer(I,J,bi,bj,iTrGrease) |
|
./pkg/seaice/seaice_growth.F |
1639 |
SEAICE_GROWTH |
SItracer(I,J,bi,bj,iTrGrease) = |
|
./pkg/seaice/seaice_growth.F |
1640 |
SEAICE_GROWTH |
& SItracer(I,J,bi,bj,iTrGrease) * tmpscal1 |
|
./pkg/seaice/seaice_growth.F |
1648 |
SEAICE_GROWTH |
SItracer(i,j,bi,bj,iTrGrease) = |
|
./pkg/seaice/seaice_growth.F |
1649 |
SEAICE_GROWTH |
& SItracer(i,j,bi,bj,iTrGrease) + greaseNewFrazil |
|
./pkg/seaice/seaice_growth.F |
1959 |
SEAICE_GROWTH |
SItracer(I,J,bi,bj,iTrGrease) = |
|
./pkg/seaice/seaice_growth.F |
1960 |
SEAICE_GROWTH |
& SItracer(I,J,bi,bj,iTrGrease) / HEFF(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
1962 |
SEAICE_GROWTH |
SItracer(I,J,bi,bj,iTrGrease) = 0. _d 0 |
|
./pkg/seaice/seaice_growth.F |
577 |
SEAICE_GROWTH |
I SItracer(1-OLx,1-OLy,bi,bj,iTr),HEFF(1-OLx,1-OLy,bi,bj), |
|
./pkg/seaice/seaice_growth.F |
581 |
SEAICE_GROWTH |
I SItracer(1-OLx,1-OLy,bi,bj,iTr),AREA(1-OLx,1-OLy,bi,bj), |
|
./pkg/seaice/seaice_init_varia.F |
325 |
SEAICE_INIT_VARIA |
SItracer(i,j,bi,bj,iTr) = 0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
328 |
SEAICE_INIT_VARIA |
if (SItrName(iTr).EQ.'one') SItracer(i,j,bi,bj,iTr)=1. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
614 |
SEAICE_INIT_VARIA |
& SItracer(1-OLx,1-OLy,1,1,iTr), 0, myThid ) |
|
./pkg/seaice/seaice_init_varia.F |
615 |
SEAICE_INIT_VARIA |
_EXCH_XY_RL(SItracer(1-OLx,1-OLy,1,1,iTr),myThid) |
|
./pkg/seaice/seaice_model.F |
237 |
SEAICE_MODEL |
_EXCH_XY_RL( SItracer(1-OLx,1-OLy,1,1,iTr),myThid ) |
|
./pkg/seaice/seaice_monitor.F |
133 |
SEAICE_MONITOR |
& 1,SItracer(1-OLx,1-OLy,1,1,iTracer),suff, |
|
./pkg/seaice/seaice_output.F |
162 |
SEAICE_OUTPUT |
& SItracer(1-OLx,1-OLy,1,1,iTracer), |
|
./pkg/seaice/seaice_read_pickup.F |
250 |
SEAICE_READ_PICKUP |
& SItracer(1-OLx,1-OLy,1,1,iTrac), |
|
./pkg/seaice/seaice_read_pickup.F |
252 |
SEAICE_READ_PICKUP |
_EXCH_XY_RL(SItracer(1-OLx,1-OLy,1,1,iTrac),myThid) |
|
./pkg/seaice/seaice_tracer_phys.F |
108 |
SEAICE_TRACER_PHYS |
SItracer(i,j,bi,bj,iTr)=SItracer(i,j,bi,bj,iTr)*growFact |
|
./pkg/seaice/seaice_tracer_phys.F |
113 |
SEAICE_TRACER_PHYS |
& +meltPart*SItracer(i,j,bi,bj,iTr) |
|
./pkg/seaice/seaice_tracer_phys.F |
120 |
SEAICE_TRACER_PHYS |
SItracer(i,j,bi,bj,iTr)=SItracer(i,j,bi,bj,iTr)*growFact |
|
./pkg/seaice/seaice_tracer_phys.F |
127 |
SEAICE_TRACER_PHYS |
DIAGarray(I,J,5+(iTr-1)*5) = HEFFpost*SItracer(i,j,bi,bj,iTr) |
|
./pkg/seaice/seaice_tracer_phys.F |
150 |
SEAICE_TRACER_PHYS |
SItracer(i,j,bi,bj,iTr)=SItracer(i,j,bi,bj,iTr)*expandFact |
|
./pkg/seaice/seaice_tracer_phys.F |
164 |
SEAICE_TRACER_PHYS |
SItracer(i,j,bi,bj,iTr)= |
|
./pkg/seaice/seaice_tracer_phys.F |
165 |
SEAICE_TRACER_PHYS |
& SItracer(i,j,bi,bj,iTr)+SEAICE_deltaTtherm |
|
./pkg/seaice/seaice_tracer_phys.F |
167 |
SEAICE_TRACER_PHYS |
SItracer(i,j,bi,bj,iTr)=0. _d 0 |
|
./pkg/seaice/seaice_tracer_phys.F |
180 |
SEAICE_TRACER_PHYS |
SItracer(i,j,bi,bj,iTr)=SItracer(i,j,bi,bj,iTr)+ |
|
./pkg/seaice/seaice_tracer_phys.F |
187 |
SEAICE_TRACER_PHYS |
SItracer(i,j,bi,bj,iTr)=SItracer(i,j,bi,bj,iTr)*tmpscal1 |
|
./pkg/seaice/seaice_tracer_phys.F |
241 |
SEAICE_TRACER_PHYS |
DIAGarray(I,J,1+(iTr-1)*5) = SItracer(i,j,bi,bj,iTr) |
|
./pkg/seaice/seaice_tracer_phys.F |
242 |
SEAICE_TRACER_PHYS |
DIAGarray(I,J,2+(iTr-1)*5) = SItracer(i,j,bi,bj,iTr)*HEFFpost |
|
./pkg/seaice/seaice_tracer_phys.F |
257 |
SEAICE_TRACER_PHYS |
DIAGarray(I,J,1+(iTr-1)*5) = SItracer(i,j,bi,bj,iTr) |
|
./pkg/seaice/seaice_tracer_phys.F |
258 |
SEAICE_TRACER_PHYS |
DIAGarray(I,J,2+(iTr-1)*5) = SItracer(i,j,bi,bj,iTr)*AREApost |
|
./pkg/seaice/seaice_tracer_phys.F |
91 |
SEAICE_TRACER_PHYS |
& HEFFprev*SItracer(i,j,bi,bj,iTr) + SItrBucket(i,j,bi,bj,iTr) |
|
./pkg/seaice/seaice_write_pickup.F |
144 |
SEAICE_WRITE_PICKUP |
& SItracer(1-OLx,1-OLy,1,1,iTrac), |