| File |
Line number |
Procedure |
Code |
|
./pkg/gmredi/gmredi_calc_eigs.F |
182 |
GMREDI_CALC_EIGS |
& vecs,Nr,work,Nr*Nr,info) |
|
./pkg/gmredi/gmredi_calc_eigs.F |
73 |
GMREDI_CALC_EIGS |
_RL eigR(Nr),eigI(Nr),vecs(Nr,Nr),dummy(1,Nr),work(Nr*Nr) |
|
./pkg/salt_plume/salt_plume_apply.F |
154 |
SALT_PLUME_APPLY |
work(i,j,k) = tracer(i,j,k,bi,bj) |
|
./pkg/salt_plume/salt_plume_apply.F |
160 |
SALT_PLUME_APPLY |
work(i,j,Nrp1) = 0. _d 0 |
|
./pkg/salt_plume/salt_plume_apply.F |
201 |
SALT_PLUME_APPLY |
gTr_Below2kLev= dSPvolBelow2kLev * work(i,j,kp1) |
|
./pkg/salt_plume/salt_plume_apply.F |
206 |
SALT_PLUME_APPLY |
gTr_kLev2Above= dSPvolkLev2Above(i,j,k,bi,bj) * work(i,j,k) |
|
./pkg/salt_plume/salt_plume_apply.F |
78 |
SALT_PLUME_APPLY |
_RL work(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr+1) |