File |
Line number |
Procedure |
Code |
./pkg/seaice/seaice_tracer_phys.F |
100 |
SEAICE_TRACER_PHYS |
HEFFprev=SItrHEFF(i,j,bi,bj,jTh) |
./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 |
117 |
SEAICE_TRACER_PHYS |
HEFFprev=SItrHEFF(i,j,bi,bj,4) |
./pkg/seaice/seaice_tracer_phys.F |
119 |
SEAICE_TRACER_PHYS |
if (HEFFpost.GT.HEFFprev) growFact=HEFFprev/HEFFpost |
./pkg/seaice/seaice_tracer_phys.F |
183 |
SEAICE_TRACER_PHYS |
HEFFprev=SItrHEFF(i,j,bi,bj,1) |
./pkg/seaice/seaice_tracer_phys.F |
186 |
SEAICE_TRACER_PHYS |
if (HEFFprev.GT.HEFFpost) tmpscal1=HEFFpost/HEFFprev |
./pkg/seaice/seaice_tracer_phys.F |
45 |
SEAICE_TRACER_PHYS |
_RL HEFFprev, HEFFpost, growFact, meltPart, tmpscal1 |
./pkg/seaice/seaice_tracer_phys.F |
88 |
SEAICE_TRACER_PHYS |
HEFFprev=SItrHEFF(i,j,bi,bj,1) |
./pkg/seaice/seaice_tracer_phys.F |
91 |
SEAICE_TRACER_PHYS |
& HEFFprev*SItracer(i,j,bi,bj,iTr) + SItrBucket(i,j,bi,bj,iTr) |