| File |
Line number |
Procedure |
Code |
|
./pkg/flt/flt_runga2.F |
109 |
FLT_RUNGA2 |
scalez=rkSign*recip_drF(kc) |
|
./pkg/flt/flt_runga2.F |
120 |
FLT_RUNGA2 |
CALL FLT_BILINEAR(ix,jy,uu,uVel,kc,1,bi,bj,myThid) |
|
./pkg/flt/flt_runga2.F |
121 |
FLT_RUNGA2 |
CALL FLT_BILINEAR(ix,jy,vv,vVel,kc,2,bi,bj,myThid) |
|
./pkg/flt/flt_runga2.F |
157 |
FLT_RUNGA2 |
CALL FLT_BILINEAR(itx,jty,u1,uVel,kc,1,bi,bj,myThid) |
|
./pkg/flt/flt_runga2.F |
158 |
FLT_RUNGA2 |
CALL FLT_BILINEAR(itx,jty,v1,vVel,kc,2,bi,bj,myThid) |
|
./pkg/flt/flt_runga2.F |
54 |
FLT_RUNGA2 |
INTEGER ic, jc, kc, iG, jG |
|
./pkg/flt/flt_runga2.F |
97 |
FLT_RUNGA2 |
kc=NINT(kpart(ip,bi,bj)) |
|
./pkg/flt/flt_runga4.F |
111 |
FLT_RUNGA4 |
scalez=rkSign*recip_drF(kc) |
|
./pkg/flt/flt_runga4.F |
122 |
FLT_RUNGA4 |
CALL FLT_BILINEAR(ix,jy,u1,uVel,kc,1,bi,bj,myThid) |
|
./pkg/flt/flt_runga4.F |
123 |
FLT_RUNGA4 |
CALL FLT_BILINEAR(ix,jy,v1,vVel,kc,2,bi,bj,myThid) |
|
./pkg/flt/flt_runga4.F |
163 |
FLT_RUNGA4 |
& kc,1,bi,bj,myThid) |
|
./pkg/flt/flt_runga4.F |
165 |
FLT_RUNGA4 |
& kc,2,bi,bj,myThid) |
|
./pkg/flt/flt_runga4.F |
213 |
FLT_RUNGA4 |
& kc,1,bi,bj,myThid) |
|
./pkg/flt/flt_runga4.F |
215 |
FLT_RUNGA4 |
& kc,2,bi,bj,myThid) |
|
./pkg/flt/flt_runga4.F |
263 |
FLT_RUNGA4 |
& kc,1,bi,bj,myThid) |
|
./pkg/flt/flt_runga4.F |
265 |
FLT_RUNGA4 |
& kc,2,bi,bj,myThid) |
|
./pkg/flt/flt_runga4.F |
54 |
FLT_RUNGA4 |
INTEGER ic, jc, kc, iG, jG |
|
./pkg/flt/flt_runga4.F |
97 |
FLT_RUNGA4 |
kc=NINT(kpart(ip,bi,bj)) |
|
./model/src/apply_forcing.F |
423 |
APPLY_FORCING_T |
INTEGER km, kc, kp |
|
./model/src/apply_forcing.F |
562 |
APPLY_FORCING_T |
kc = k |
|
./model/src/apply_forcing.F |
572 |
APPLY_FORCING_T |
& - (rC(kc)/atm_Po)**atm_kappa ) |
|
./model/src/apply_forcing.F |
575 |
APPLY_FORCING_T |
tmpVar(i,j) = wVel(i,j,kc,bi,bj)*delPI*atm_Rq |
|
./model/src/apply_forcing.F |
577 |
APPLY_FORCING_T |
& + theta(i,j,kc,bi,bj)*salt(i,j,kc,bi,bj) |
|
./model/src/apply_forcing.F |
583 |
APPLY_FORCING_T |
delPI = atm_Cp*( (rC(kc)/atm_Po)**atm_kappa |
|
./model/src/apply_forcing.F |
589 |
APPLY_FORCING_T |
& *( theta(i,j,kc,bi,bj)*salt(i,j,kc,bi,bj) |
|
./model/src/apply_forcing.F |
607 |
APPLY_FORCING_T |
& 'MoistCor', kc, 1, 3, bi,bj,myThid ) |
|
./model/src/external_forcing.F |
340 |
EXTERNAL_FORCING_T |
INTEGER km, kc, kp |
|
./model/src/external_forcing.F |
449 |
EXTERNAL_FORCING_T |
kc = kLev |
|
./model/src/external_forcing.F |
459 |
EXTERNAL_FORCING_T |
& - (rC(kc)/atm_Po)**atm_kappa ) |
|
./model/src/external_forcing.F |
462 |
EXTERNAL_FORCING_T |
tmpVar(i,j) = wVel(i,j,kc,bi,bj)*delPI*atm_Rq |
|
./model/src/external_forcing.F |
464 |
EXTERNAL_FORCING_T |
& + theta(i,j,kc,bi,bj)*salt(i,j,kc,bi,bj) |
|
./model/src/external_forcing.F |
470 |
EXTERNAL_FORCING_T |
delPI = atm_Cp*( (rC(kc)/atm_Po)**atm_kappa |
|
./model/src/external_forcing.F |
476 |
EXTERNAL_FORCING_T |
& *( theta(i,j,kc,bi,bj)*salt(i,j,kc,bi,bj) |
|
./model/src/external_forcing.F |
494 |
EXTERNAL_FORCING_T |
& 'MoistCor', kc, 1, 3, bi,bj,myThid ) |
|
./verification/rotating_tank/code/apply_forcing.F |
405 |
APPLY_FORCING_T |
INTEGER km, kc, kp |
|
./verification/rotating_tank/code/apply_forcing.F |
579 |
APPLY_FORCING_T |
kc = k |
|
./verification/rotating_tank/code/apply_forcing.F |
589 |
APPLY_FORCING_T |
& - (rC(kc)/atm_Po)**atm_kappa ) |
|
./verification/rotating_tank/code/apply_forcing.F |
592 |
APPLY_FORCING_T |
tmpVar(i,j) = wVel(i,j,kc,bi,bj)*delPI*atm_Rq |
|
./verification/rotating_tank/code/apply_forcing.F |
594 |
APPLY_FORCING_T |
& + theta(i,j,kc,bi,bj)*salt(i,j,kc,bi,bj) |
|
./verification/rotating_tank/code/apply_forcing.F |
600 |
APPLY_FORCING_T |
delPI = atm_Cp*( (rC(kc)/atm_Po)**atm_kappa |
|
./verification/rotating_tank/code/apply_forcing.F |
606 |
APPLY_FORCING_T |
& *( theta(i,j,kc,bi,bj)*salt(i,j,kc,bi,bj) |
|
./verification/rotating_tank/code/apply_forcing.F |
624 |
APPLY_FORCING_T |
& 'MoistCor', kc, 1, 3, bi,bj,myThid ) |
|
./pkg/atm_phys/atm_phys_driver.F |
127 |
ATM_PHYS_DRIVER |
INTEGER k, kc, ki, kp |
|
./pkg/atm_phys/atm_phys_driver.F |
179 |
ATM_PHYS_DRIVER |
kc = Nr-k+1 |
|
./pkg/atm_phys/atm_phys_driver.F |
180 |
ATM_PHYS_DRIVER |
pFull3d(:,:,k) = rF(Nr+1) + ( rC(kc) - rF(Nr+1) ) |
|
./pkg/atm_phys/atm_phys_driver.F |
196 |
ATM_PHYS_DRIVER |
kc = Nr-k+1 |
|
./pkg/atm_phys/atm_phys_driver.F |
197 |
ATM_PHYS_DRIVER |
pFull3d(:,:,k) = rC(kc) |
|
./pkg/atm_phys/atm_phys_driver.F |
206 |
ATM_PHYS_DRIVER |
kc = Nr-k+1 |
|
./pkg/atm_phys/atm_phys_driver.F |
207 |
ATM_PHYS_DRIVER |
zFull3d(:,:,k) = ( phiRef(2*kc) |
|
./pkg/atm_phys/atm_phys_driver.F |
208 |
ATM_PHYS_DRIVER |
& + totPhiHyd(1:sNx,1:sNy,kc,bi,bj) |
|
./pkg/atm_phys/atm_phys_driver.F |
210 |
ATM_PHYS_DRIVER |
conv_theta2T = (rC(kc)/atm_po)**atm_kappa |
|
./pkg/atm_phys/atm_phys_driver.F |
211 |
ATM_PHYS_DRIVER |
t3d(:,:,k) = theta(1:sNx,1:sNy,kc,bi,bj)*conv_theta2T |
|
./pkg/atm_phys/atm_phys_driver.F |
212 |
ATM_PHYS_DRIVER |
q3d(:,:,k) = MAX( salt(1:sNx,1:sNy,kc,bi,bj), 0. _d 0 ) |
|
./pkg/atm_phys/atm_phys_driver.F |
213 |
ATM_PHYS_DRIVER |
u3d(:,:,k) = ( uVel(1:sNx, 1:sNy,kc,bi,bj) |
|
./pkg/atm_phys/atm_phys_driver.F |
214 |
ATM_PHYS_DRIVER |
& + uVel(2:sNx+1,1:sNy,kc,bi,bj) )*0.5 _d 0 |
|
./pkg/atm_phys/atm_phys_driver.F |
215 |
ATM_PHYS_DRIVER |
v3d(:,:,k) = ( vVel(1:sNx,1:sNy, kc,bi,bj) |
|
./pkg/atm_phys/atm_phys_driver.F |
216 |
ATM_PHYS_DRIVER |
& + vVel(1:sNx,2:sNy+1,kc,bi,bj) )*0.5 _d 0 |
|
./pkg/atm_phys/atm_phys_driver.F |
234 |
ATM_PHYS_DRIVER |
kc = Nr-k+1 |
|
./pkg/atm_phys/atm_phys_driver.F |
235 |
ATM_PHYS_DRIVER |
kp = MIN(kc+1,Nr) |
|
./pkg/atm_phys/atm_phys_driver.F |
238 |
ATM_PHYS_DRIVER |
& +totPhiHyd(1:sNx,1:sNy,kc,bi,bj) )*0.5 |
|
./pkg/atm_phys/atm_phys_driver.F |
440 |
ATM_PHYS_DRIVER |
kc = Nr-k+1 |
|
./pkg/atm_phys/atm_phys_driver.F |
441 |
ATM_PHYS_DRIVER |
conv_T2theta = (atm_po/rC(kc))**atm_kappa |
|
./pkg/atm_phys/atm_phys_driver.F |
444 |
ATM_PHYS_DRIVER |
atmPhys_dT(1:sNx,1:sNy,kc,bi,bj) = tdt3d(:,:,k) |
|
./pkg/atm_phys/atm_phys_driver.F |
450 |
ATM_PHYS_DRIVER |
atmPhys_dT(1:sNx,1:sNy,kc,bi,bj) = tdt3d(:,:,k) |
|
./pkg/atm_phys/atm_phys_driver.F |
453 |
ATM_PHYS_DRIVER |
atmPhys_dQ(1:sNx,1:sNy,kc,bi,bj) = qdt3d(:,:,k) |
|
./pkg/atm_phys/atm_phys_driver.F |
454 |
ATM_PHYS_DRIVER |
atmPhys_dU (1:sNx,1:sNy,kc,bi,bj) = udt3d(:,:,k) |
|
./pkg/atm_phys/atm_phys_driver.F |
455 |
ATM_PHYS_DRIVER |
atmPhys_dV (1:sNx,1:sNy,kc,bi,bj) = vdt3d(:,:,k) |