| File |
Line number |
Procedure |
Code |
|
./pkg/salt_plume/salt_plume_frac.F |
107 |
SALT_PLUME_FRAC |
IF (Npowerloc .GT. 0) S = S*S**Npowerloc |
|
./pkg/salt_plume/salt_plume_frac.F |
115 |
SALT_PLUME_FRAC |
DO kk=1,Npowerloc+1 |
|
./pkg/salt_plume/salt_plume_frac.F |
159 |
SALT_PLUME_FRAC |
IF (Npowerloc .GT. 0) S = S*S**Npowerloc |
|
./pkg/salt_plume/salt_plume_frac.F |
165 |
SALT_PLUME_FRAC |
IF(Npowerloc.EQ.1) THEN !Npower=1 |
|
./pkg/salt_plume/salt_plume_frac.F |
174 |
SALT_PLUME_FRAC |
DO kk=1,Npowerloc+1 |
|
./pkg/salt_plume/salt_plume_frac.F |
178 |
SALT_PLUME_FRAC |
IF(Npowerloc.EQ.1) THEN !Npower=1 |
|
./pkg/salt_plume/salt_plume_frac.F |
73 |
SALT_PLUME_FRAC |
INTEGER i, Npowerloc |
|
./pkg/salt_plume/salt_plume_frac.F |
88 |
SALT_PLUME_FRAC |
Npowerloc = Npower(2) |
|
./pkg/salt_plume/salt_plume_frac.F |
90 |
SALT_PLUME_FRAC |
& .AND. lon(imax) .LT. -90.0) Npowerloc = Npower(1) |
|
./pkg/salt_plume/salt_plume_frac.F |
92 |
SALT_PLUME_FRAC |
Npowerloc = Npower(1) |
|
./pkg/salt_plume/salt_plume_frac.F |
95 |
SALT_PLUME_FRAC |
Npowerloc = Npower |