| File |
Line number |
Procedure |
Code |
|
./pkg/flt/flt_traj.F |
113 |
FLT_TRAJ |
kp = NINT(kpart(ip,bi,bj)) |
|
./pkg/flt/flt_traj.F |
127 |
FLT_TRAJ |
IF ( kp.LT.1 .OR. kp.GT.Nr ) THEN |
|
./pkg/flt/flt_traj.F |
129 |
FLT_TRAJ |
& ' illegal value for kp=',kp |
|
./pkg/flt/flt_traj.F |
139 |
FLT_TRAJ |
kp = MIN( MAX(kp,1), Nr) |
|
./pkg/flt/flt_traj.F |
142 |
FLT_TRAJ |
CALL FLT_BILINEAR (ix,jy,uu,uVel, kp,1,bi,bj,myThid) |
|
./pkg/flt/flt_traj.F |
143 |
FLT_TRAJ |
CALL FLT_BILINEAR (ix,jy,vv,vVel, kp,2,bi,bj,myThid) |
|
./pkg/flt/flt_traj.F |
145 |
FLT_TRAJ |
CALL FLT_BILINEAR (ix,jy,tt,theta, kp,0,bi,bj,myThid) |
|
./pkg/flt/flt_traj.F |
146 |
FLT_TRAJ |
CALL FLT_BILINEAR (ix,jy,ss,salt, kp,0,bi,bj,myThid) |
|
./pkg/flt/flt_traj.F |
40 |
FLT_TRAJ |
INTEGER ip, kp, ii |
|
./pkg/chronos/chronos.F |
737 |
ASTRO |
integer i,nsecf,k,km,kp |
|
./pkg/fizhi/fizhi_clockstuff.F |
886 |
ASTRO |
integer i,nsecf,k,km,kp |