| 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 |
444 |
APPLY_FORCING_T |
INTEGER km, kc, kp |
|
./model/src/apply_forcing.F |
576 |
APPLY_FORCING_T |
kc = k |
|
./model/src/apply_forcing.F |
586 |
APPLY_FORCING_T |
& - (rC(kc)/atm_Po)**atm_kappa ) |
|
./model/src/apply_forcing.F |
589 |
APPLY_FORCING_T |
tmpVar(i,j) = wVel(i,j,kc,bi,bj)*delPI*atm_Rq |
|
./model/src/apply_forcing.F |
591 |
APPLY_FORCING_T |
& + theta(i,j,kc,bi,bj)*salt(i,j,kc,bi,bj) |
|
./model/src/apply_forcing.F |
597 |
APPLY_FORCING_T |
delPI = atm_Cp*( (rC(kc)/atm_Po)**atm_kappa |
|
./model/src/apply_forcing.F |
603 |
APPLY_FORCING_T |
& *( theta(i,j,kc,bi,bj)*salt(i,j,kc,bi,bj) |
|
./model/src/apply_forcing.F |
621 |
APPLY_FORCING_T |
& 'MoistCor', kc, 1, 2, bi,bj,myThid ) |
|
./model/src/external_forcing.F |
340 |
EXTERNAL_FORCING_T |
INTEGER km, kc, kp |
|
./model/src/external_forcing.F |
448 |
EXTERNAL_FORCING_T |
kc = kLev |
|
./model/src/external_forcing.F |
458 |
EXTERNAL_FORCING_T |
& - (rC(kc)/atm_Po)**atm_kappa ) |
|
./model/src/external_forcing.F |
461 |
EXTERNAL_FORCING_T |
tmpVar(i,j) = wVel(i,j,kc,bi,bj)*delPI*atm_Rq |
|
./model/src/external_forcing.F |
463 |
EXTERNAL_FORCING_T |
& + theta(i,j,kc,bi,bj)*salt(i,j,kc,bi,bj) |
|
./model/src/external_forcing.F |
469 |
EXTERNAL_FORCING_T |
delPI = atm_Cp*( (rC(kc)/atm_Po)**atm_kappa |
|
./model/src/external_forcing.F |
475 |
EXTERNAL_FORCING_T |
& *( theta(i,j,kc,bi,bj)*salt(i,j,kc,bi,bj) |
|
./model/src/external_forcing.F |
493 |
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 |
141 |
ATM_PHYS_DRIVER |
INTEGER k, kc |
|
./pkg/atm_phys/atm_phys_driver.F |
403 |
ATM_PHYS_DRIVER |
kc = Nr-k+1 |
|
./pkg/atm_phys/atm_phys_driver.F |
404 |
ATM_PHYS_DRIVER |
conv_T2theta = (atm_po/rC(kc))**atm_kappa |
|
./pkg/atm_phys/atm_phys_driver.F |
407 |
ATM_PHYS_DRIVER |
atmPhys_dT(1:sNx,1:sNy,kc,bi,bj) = tdt3d(:,:,k) |
|
./pkg/atm_phys/atm_phys_driver.F |
413 |
ATM_PHYS_DRIVER |
atmPhys_dT(1:sNx,1:sNy,kc,bi,bj) = tdt3d(:,:,k) |
|
./pkg/atm_phys/atm_phys_driver.F |
416 |
ATM_PHYS_DRIVER |
atmPhys_dQ(1:sNx,1:sNy,kc,bi,bj) = qdt3d(:,:,k) |
|
./pkg/atm_phys/atm_phys_driver.F |
420 |
ATM_PHYS_DRIVER |
& )*recip_drF(kc) |
|
./pkg/atm_phys/atm_phys_driver.F |
421 |
ATM_PHYS_DRIVER |
atmPhys_dU(1:sNx,1:sNy,kc,bi,bj) = udt3d(:,:,k)*dpFac(:,:) |
|
./pkg/atm_phys/atm_phys_driver.F |
422 |
ATM_PHYS_DRIVER |
atmPhys_dV(1:sNx,1:sNy,kc,bi,bj) = vdt3d(:,:,k)*dpFac(:,:) |
|
./pkg/atm_phys/atm_phys_dyn2phys.F |
104 |
ATM_PHYS_DYN2PHYS |
kc = Nr-k+1 |
|
./pkg/atm_phys/atm_phys_dyn2phys.F |
105 |
ATM_PHYS_DYN2PHYS |
pFull3d(:,:,k) = rC(kc) |
|
./pkg/atm_phys/atm_phys_dyn2phys.F |
115 |
ATM_PHYS_DYN2PHYS |
kc = Nr-k+1 |
|
./pkg/atm_phys/atm_phys_dyn2phys.F |
116 |
ATM_PHYS_DYN2PHYS |
zFull3d(:,:,k) = ( phiRef(2*kc) |
|
./pkg/atm_phys/atm_phys_dyn2phys.F |
117 |
ATM_PHYS_DYN2PHYS |
& + totPhiHyd(1:sNx,1:sNy,kc,bi,bj) |
|
./pkg/atm_phys/atm_phys_dyn2phys.F |
119 |
ATM_PHYS_DYN2PHYS |
conv_theta2T = (rC(kc)/atm_po)**atm_kappa |
|
./pkg/atm_phys/atm_phys_dyn2phys.F |
120 |
ATM_PHYS_DYN2PHYS |
t3d(:,:,k) = theta(1:sNx,1:sNy,kc,bi,bj)*conv_theta2T |
|
./pkg/atm_phys/atm_phys_dyn2phys.F |
121 |
ATM_PHYS_DYN2PHYS |
q3d(:,:,k) = MAX( salt(1:sNx,1:sNy,kc,bi,bj), 0. _d 0 ) |
|
./pkg/atm_phys/atm_phys_dyn2phys.F |
122 |
ATM_PHYS_DYN2PHYS |
u3d(:,:,k) = ( uVel(1:sNx, 1:sNy,kc,bi,bj) |
|
./pkg/atm_phys/atm_phys_dyn2phys.F |
123 |
ATM_PHYS_DYN2PHYS |
& + uVel(2:sNx+1,1:sNy,kc,bi,bj) )*0.5 _d 0 |
|
./pkg/atm_phys/atm_phys_dyn2phys.F |
124 |
ATM_PHYS_DYN2PHYS |
v3d(:,:,k) = ( vVel(1:sNx,1:sNy, kc,bi,bj) |
|
./pkg/atm_phys/atm_phys_dyn2phys.F |
125 |
ATM_PHYS_DYN2PHYS |
& + vVel(1:sNx,2:sNy+1,kc,bi,bj) )*0.5 _d 0 |
|
./pkg/atm_phys/atm_phys_dyn2phys.F |
149 |
ATM_PHYS_DYN2PHYS |
kc = Nr-k+1 |
|
./pkg/atm_phys/atm_phys_dyn2phys.F |
150 |
ATM_PHYS_DYN2PHYS |
kp = MIN(kc+1,Nr) |
|
./pkg/atm_phys/atm_phys_dyn2phys.F |
153 |
ATM_PHYS_DYN2PHYS |
& +totPhiHyd(1:sNx,1:sNy,kc,bi,bj) )*0.5 |
|
./pkg/atm_phys/atm_phys_dyn2phys.F |
64 |
ATM_PHYS_DYN2PHYS |
INTEGER k, kc, ki, kp |
|
./pkg/atm_phys/atm_phys_dyn2phys.F |
76 |
ATM_PHYS_DYN2PHYS |
kc = Nr-k+1 |
|
./pkg/atm_phys/atm_phys_dyn2phys.F |
77 |
ATM_PHYS_DYN2PHYS |
pFull3d(:,:,k) = rF(Nr+1) + ( rC(kc) - rF(Nr+1) ) |
|
./pkg/atm_phys/atm_phys_dyn2phys.F |
87 |
ATM_PHYS_DYN2PHYS |
kc = Nr-k+1 |
|
./pkg/atm_phys/atm_phys_dyn2phys.F |
88 |
ATM_PHYS_DYN2PHYS |
pFull3d(:,:,k) = rF(Nr+1) + ( rC(kc) - rF(Nr+1) ) |