| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/seaice_tracer_phys.F |
101 |
SEAICE_TRACER_PHYS |
HEFFpost=SItrHEFF(i,j,bi,bj,jTh+1) |
|
./pkg/seaice/seaice_tracer_phys.F |
105 |
SEAICE_TRACER_PHYS |
if (HEFFpost.GT.HEFFprev) growFact=HEFFprev/HEFFpost |
|
./pkg/seaice/seaice_tracer_phys.F |
106 |
SEAICE_TRACER_PHYS |
if (HEFFpost.LT.HEFFprev) meltPart=HEFFprev-HEFFpost |
|
./pkg/seaice/seaice_tracer_phys.F |
111 |
SEAICE_TRACER_PHYS |
& -HEFFpost*SItrFromOcean(i,j)*(1. _d 0 - growFact) |
|
./pkg/seaice/seaice_tracer_phys.F |
118 |
SEAICE_TRACER_PHYS |
HEFFpost=SItrHEFF(i,j,bi,bj,5) |
|
./pkg/seaice/seaice_tracer_phys.F |
119 |
SEAICE_TRACER_PHYS |
if (HEFFpost.GT.HEFFprev) growFact=HEFFprev/HEFFpost |
|
./pkg/seaice/seaice_tracer_phys.F |
125 |
SEAICE_TRACER_PHYS |
& -HEFFpost*SItrFromFlood(i,j)*(1. _d 0 - 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 |
184 |
SEAICE_TRACER_PHYS |
HEFFpost=SItrHEFF(i,j,bi,bj,4) |
|
./pkg/seaice/seaice_tracer_phys.F |
186 |
SEAICE_TRACER_PHYS |
if (HEFFprev.GT.HEFFpost) tmpscal1=HEFFpost/HEFFprev |
|
./pkg/seaice/seaice_tracer_phys.F |
240 |
SEAICE_TRACER_PHYS |
HEFFpost=SItrHEFF(i,j,bi,bj,5) |
|
./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 |
247 |
SEAICE_TRACER_PHYS |
DIAGarray(I,J,3+(iTr-1)*5) = HEFFpost |
|
./pkg/seaice/seaice_tracer_phys.F |
45 |
SEAICE_TRACER_PHYS |
_RL HEFFprev, HEFFpost, growFact, meltPart, tmpscal1 |