| 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 |
423 |
APPLY_FORCING_T |
INTEGER km, kc, kp |
|
./model/src/apply_forcing.F |
563 |
APPLY_FORCING_T |
kp = k+1 |
|
./model/src/apply_forcing.F |
584 |
APPLY_FORCING_T |
& - (rC(kp)/atm_Po)**atm_kappa ) |
|
./model/src/apply_forcing.F |
588 |
APPLY_FORCING_T |
& + wVel(i,j,kp,bi,bj)*delPI*atm_Rq |
|
./model/src/apply_forcing.F |
590 |
APPLY_FORCING_T |
& + theta(i,j,kp,bi,bj)*salt(i,j,kp,bi,bj) |
|
./model/src/apply_forcing.F |
591 |
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 |
450 |
EXTERNAL_FORCING_T |
kp = kLev+1 |
|
./model/src/external_forcing.F |
471 |
EXTERNAL_FORCING_T |
& - (rC(kp)/atm_Po)**atm_kappa ) |
|
./model/src/external_forcing.F |
475 |
EXTERNAL_FORCING_T |
& + wVel(i,j,kp,bi,bj)*delPI*atm_Rq |
|
./model/src/external_forcing.F |
477 |
EXTERNAL_FORCING_T |
& + theta(i,j,kp,bi,bj)*salt(i,j,kp,bi,bj) |
|
./model/src/external_forcing.F |
478 |
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_driver.F |
127 |
ATM_PHYS_DRIVER |
INTEGER k, kc, ki, kp |
|
./pkg/atm_phys/atm_phys_driver.F |
235 |
ATM_PHYS_DRIVER |
kp = MIN(kc+1,Nr) |
|
./pkg/atm_phys/atm_phys_driver.F |
237 |
ATM_PHYS_DRIVER |
& + ( totPhiHyd(1:sNx,1:sNy,kp,bi,bj) |
|
./pkg/chronos/chronos.F |
737 |
ASTRO |
integer i,nsecf,k,km,kp |