File |
Line number |
Procedure |
Code |
./pkg/salt_plume/SALT_PLUME.h |
59 |
NO PROCEDURE |
& , SPsalFRAC(2) |
./pkg/salt_plume/SALT_PLUME.h |
61 |
NO PROCEDURE |
& , SPsalFRAC |
./pkg/salt_plume/SALT_PLUME.h |
70 |
NO PROCEDURE |
& SPsalFRAC, SaltPlumeCriterion, SPovershoot |
./pkg/salt_plume/salt_plume_check.F |
38 |
SALT_PLUME_CHECK |
IF ( (SPsalFRAC(1) .LT. 0. _d 0).OR. |
./pkg/salt_plume/salt_plume_check.F |
39 |
SALT_PLUME_CHECK |
& (SPsalFRAC(1) .GT. 1. _d 0) ) then |
./pkg/salt_plume/salt_plume_check.F |
45 |
SALT_PLUME_CHECK |
IF ( (SPsalFRAC(2) .LT. 0. _d 0).OR. |
./pkg/salt_plume/salt_plume_check.F |
46 |
SALT_PLUME_CHECK |
& (SPsalFRAC(2) .GT. 1. _d 0) ) then |
./pkg/salt_plume/salt_plume_check.F |
53 |
SALT_PLUME_CHECK |
IF ( (SPsalFRAC .LT. 0. _d 0).OR.(SPsalFRAC .GT. 1. _d 0) ) then |
./pkg/salt_plume/salt_plume_do_exch.F |
60 |
SALT_PLUME_DO_EXCH |
& * SPsalFRAC |
./pkg/salt_plume/salt_plume_readparms.F |
36 |
SALT_PLUME_READPARMS |
& SaltPlumeCriterion, SPovershoot, SPsalFRAC |
./pkg/salt_plume/salt_plume_readparms.F |
71 |
SALT_PLUME_READPARMS |
SPsalFRAC(1) = 1.0 _d 0 |
./pkg/salt_plume/salt_plume_readparms.F |
72 |
SALT_PLUME_READPARMS |
SPsalFRAC(2) = 1.0 _d 0 |
./pkg/salt_plume/salt_plume_readparms.F |
75 |
SALT_PLUME_READPARMS |
SPsalFRAC = 1.0 _d 0 |
./pkg/seaice/seaice_growth.F |
2004 |
SEAICE_GROWTH |
localSPfrac(I,J) = SPsalFRAC(1) |
./pkg/seaice/seaice_growth.F |
2006 |
SEAICE_GROWTH |
localSPfrac(I,J) = SPsalFRAC(2) |
./pkg/seaice/seaice_growth.F |
2009 |
SEAICE_GROWTH |
localSPfrac(I,J) = SPsalFRAC(1) |
./pkg/seaice/seaice_growth.F |
2013 |
SEAICE_GROWTH |
localSPfrac(I,J) = SPsalFRAC |
./pkg/seaice/seaice_growth.F |
2066 |
SEAICE_GROWTH |
localSPfrac(I,J) = SPsalFRAC(1) |
./pkg/seaice/seaice_growth.F |
2068 |
SEAICE_GROWTH |
localSPfrac(I,J) = SPsalFRAC(2) |
./pkg/seaice/seaice_growth.F |
2071 |
SEAICE_GROWTH |
localSPfrac(I,J) = SPsalFRAC(1) |
./pkg/seaice/seaice_growth.F |
2075 |
SEAICE_GROWTH |
localSPfrac(I,J) = SPsalFRAC |
./pkg/seaice/seaice_tracer_phys.F |
213 |
SEAICE_TRACER_PHYS |
& *SPsalFRAC*(salt(I,j,ks,bi,bj)-SItrFromOcean(i,j)) |
./pkg/thsice/thsice_salt_plume.F |
95 |
THSICE_SALT_PLUME |
saltPlumeFlux(i,j,bi,bj) = locVar(i,j)*SPsalFRAC |