| File |
Line number |
Procedure |
Code |
|
./pkg/profiles/cost_profiles.F |
180 |
COST_PROFILES |
prof_weights1D(k)=0. |
|
./pkg/profiles/cost_profiles.F |
205 |
COST_PROFILES |
& prof_weights1D,bi,bj,myThid) |
|
./pkg/profiles/cost_profiles.F |
208 |
COST_PROFILES |
if (prof_weights1D(K).GT.0. _d 0 |
|
./pkg/profiles/cost_profiles.F |
227 |
COST_PROFILES |
& + 1. _d 0 /prof_weights1D(k) |
|
./pkg/profiles/cost_profiles.F |
450 |
COST_PROFILES |
prof_weights1D(k)=0. |
|
./pkg/profiles/cost_profiles.F |
488 |
COST_PROFILES |
& prof_weights1D,bi,bj,myThid) |
|
./pkg/profiles/cost_profiles.F |
48 |
COST_PROFILES |
_RL prof_data1D(NLEVELMAX), prof_weights1D(NLEVELMAX) |
|
./pkg/profiles/cost_profiles.F |
491 |
COST_PROFILES |
if (prof_weights1D(K).GT.0. |
|
./pkg/profiles/cost_profiles.F |
498 |
COST_PROFILES |
& +prof_weights1D(K)*prof_mask1D_cur(K,bi,bj) |