| 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_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 |
1966 |
SEAICE_GROWTH |
localSPfrac(I,J) = SPsalFRAC(1) |
|
./pkg/seaice/seaice_growth.F |
1968 |
SEAICE_GROWTH |
localSPfrac(I,J) = SPsalFRAC(2) |
|
./pkg/seaice/seaice_growth.F |
1971 |
SEAICE_GROWTH |
localSPfrac(I,J) = SPsalFRAC(1) |
|
./pkg/seaice/seaice_growth.F |
1975 |
SEAICE_GROWTH |
localSPfrac(I,J) = SPsalFRAC |
|
./pkg/seaice/seaice_growth.F |
2028 |
SEAICE_GROWTH |
localSPfrac(I,J) = SPsalFRAC(1) |
|
./pkg/seaice/seaice_growth.F |
2030 |
SEAICE_GROWTH |
localSPfrac(I,J) = SPsalFRAC(2) |
|
./pkg/seaice/seaice_growth.F |
2033 |
SEAICE_GROWTH |
localSPfrac(I,J) = SPsalFRAC(1) |
|
./pkg/seaice/seaice_growth.F |
2037 |
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 |
71 |
THSICE_SALT_PLUME |
& frzSeaWat(i,j)*( sOce(i,j) - saltIce )*SPsalFRAC |