| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_clockstuff.F |
900 |
ASTRO |
integer i,nsecf,k,km,kp |
|
./pkg/flt/flt_traj.F |
109 |
FLT_TRAJ |
kp = NINT(kpart(ip,bi,bj)) |
|
./pkg/flt/flt_traj.F |
123 |
FLT_TRAJ |
IF ( kp.LT.1 .OR. kp.GT.Nr ) THEN |
|
./pkg/flt/flt_traj.F |
125 |
FLT_TRAJ |
& ' illegal value for kp=',kp |
|
./pkg/flt/flt_traj.F |
135 |
FLT_TRAJ |
kp = MIN( MAX(kp,1), Nr) |
|
./pkg/flt/flt_traj.F |
137 |
FLT_TRAJ |
CALL FLT_BILINEAR (ix,jy,uu,uVel, kp,1,bi,bj,myThid) |
|
./pkg/flt/flt_traj.F |
138 |
FLT_TRAJ |
CALL FLT_BILINEAR (ix,jy,vv,vVel, kp,2,bi,bj,myThid) |
|
./pkg/flt/flt_traj.F |
140 |
FLT_TRAJ |
CALL FLT_BILINEAR (ix,jy,tt,theta, kp,0,bi,bj,myThid) |
|
./pkg/flt/flt_traj.F |
141 |
FLT_TRAJ |
CALL FLT_BILINEAR (ix,jy,ss,salt, kp,0,bi,bj,myThid) |
|
./pkg/flt/flt_traj.F |
48 |
FLT_TRAJ |
INTEGER ip, kp, ii |
|
./pkg/generic_advdiff/gad_biharm_r.F |
49 |
GAD_BIHARM_R |
INTEGER kl, km, kp |
|
./pkg/generic_advdiff/gad_biharm_r.F |
81 |
GAD_BIHARM_R |
kp = k+n-1 |
|
./model/src/apply_forcing.F |
444 |
APPLY_FORCING_T |
INTEGER km, kc, kp |
|
./model/src/apply_forcing.F |
577 |
APPLY_FORCING_T |
kp = k+1 |
|
./model/src/apply_forcing.F |
598 |
APPLY_FORCING_T |
& - (rC(kp)/atm_Po)**atm_kappa ) |
|
./model/src/apply_forcing.F |
602 |
APPLY_FORCING_T |
& + wVel(i,j,kp,bi,bj)*delPI*atm_Rq |
|
./model/src/apply_forcing.F |
604 |
APPLY_FORCING_T |
& + theta(i,j,kp,bi,bj)*salt(i,j,kp,bi,bj) |
|
./model/src/apply_forcing.F |
605 |
APPLY_FORCING_T |
& )*maskC(i,j,kp,bi,bj)*0.25 _d 0 |
|
./model/src/external_forcing.F |
340 |
EXTERNAL_FORCING_T |
INTEGER km, kc, kp |
|
./model/src/external_forcing.F |
449 |
EXTERNAL_FORCING_T |
kp = kLev+1 |
|
./model/src/external_forcing.F |
470 |
EXTERNAL_FORCING_T |
& - (rC(kp)/atm_Po)**atm_kappa ) |
|
./model/src/external_forcing.F |
474 |
EXTERNAL_FORCING_T |
& + wVel(i,j,kp,bi,bj)*delPI*atm_Rq |
|
./model/src/external_forcing.F |
476 |
EXTERNAL_FORCING_T |
& + theta(i,j,kp,bi,bj)*salt(i,j,kp,bi,bj) |
|
./model/src/external_forcing.F |
477 |
EXTERNAL_FORCING_T |
& )*maskC(i,j,kp,bi,bj)*0.25 _d 0 |
|
./verification/rotating_tank/code/apply_forcing.F |
405 |
APPLY_FORCING_T |
INTEGER km, kc, kp |
|
./verification/rotating_tank/code/apply_forcing.F |
580 |
APPLY_FORCING_T |
kp = k+1 |
|
./verification/rotating_tank/code/apply_forcing.F |
601 |
APPLY_FORCING_T |
& - (rC(kp)/atm_Po)**atm_kappa ) |
|
./verification/rotating_tank/code/apply_forcing.F |
605 |
APPLY_FORCING_T |
& + wVel(i,j,kp,bi,bj)*delPI*atm_Rq |
|
./verification/rotating_tank/code/apply_forcing.F |
607 |
APPLY_FORCING_T |
& + theta(i,j,kp,bi,bj)*salt(i,j,kp,bi,bj) |
|
./verification/rotating_tank/code/apply_forcing.F |
608 |
APPLY_FORCING_T |
& )*maskC(i,j,kp,bi,bj)*0.25 _d 0 |
|
./pkg/atm_phys/atm_phys_dyn2phys.F |
150 |
ATM_PHYS_DYN2PHYS |
kp = MIN(kc+1,Nr) |
|
./pkg/atm_phys/atm_phys_dyn2phys.F |
152 |
ATM_PHYS_DYN2PHYS |
& + ( totPhiHyd(1:sNx,1:sNy,kp,bi,bj) |
|
./pkg/atm_phys/atm_phys_dyn2phys.F |
64 |
ATM_PHYS_DYN2PHYS |
INTEGER k, kc, ki, kp |
|
./pkg/chronos/chronos.F |
737 |
ASTRO |
integer i,nsecf,k,km,kp |