| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_swrad.F |
547 |
OPTHK |
subroutine OPTHK ( tl,pl,ple,lz,cf,cfm,lwi,im,jm,lm,tau ) |
|
./pkg/fizhi/fizhi_swrad.F |
585 |
OPTHK |
_RL cf(im,jm,lm) |
|
./pkg/fizhi/fizhi_swrad.F |
603 |
OPTHK |
if( cf(i,j,L).ne.0.0 ) then |
|
./pkg/fizhi/fizhi_swrad.F |
607 |
OPTHK |
fracls = ( cf(i,j,L)-cfm(i,j,L) )/cf(i,j,L) |
|
./pkg/mom_fluxform/mom_fluxform.F |
877 |
MOM_FLUXFORM |
CALL MOM_U_CORIOLIS( bi,bj,k,vFld,cf,myThid ) |
|
./pkg/mom_fluxform/mom_fluxform.F |
880 |
MOM_FLUXFORM |
gU(i,j,k,bi,bj) = gU(i,j,k,bi,bj)+fuFac*cf(i,j) |
|
./pkg/mom_fluxform/mom_fluxform.F |
885 |
MOM_FLUXFORM |
& CALL DIAGNOSTICS_FILL(cf,'Um_Cori ',k,1,2,bi,bj,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
887 |
MOM_FLUXFORM |
CALL MOM_V_CORIOLIS( bi,bj,k,uFld,cf,myThid ) |
|
./pkg/mom_fluxform/mom_fluxform.F |
890 |
MOM_FLUXFORM |
gV(i,j,k,bi,bj) = gV(i,j,k,bi,bj)+fvFac*cf(i,j) |
|
./pkg/mom_fluxform/mom_fluxform.F |
895 |
MOM_FLUXFORM |
& CALL DIAGNOSTICS_FILL(cf,'Vm_Cori ',k,1,2,bi,bj,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
901 |
MOM_FLUXFORM |
CALL MOM_U_CORIOLIS_NH( bi,bj,k,wVel,cf,myThid ) |
|
./pkg/mom_fluxform/mom_fluxform.F |
904 |
MOM_FLUXFORM |
gU(i,j,k,bi,bj) = gU(i,j,k,bi,bj)+fuFac*cf(i,j) |
|
./pkg/mom_fluxform/mom_fluxform.F |
909 |
MOM_FLUXFORM |
CALL MOM_V_CORIOLIS_NH( bi,bj,k,wVel,cf,myThid ) |
|
./pkg/mom_fluxform/mom_fluxform.F |
912 |
MOM_FLUXFORM |
gV(i,j,k,bi,bj) = gV(i,j,k,bi,bj)+fvFac*cf(i,j) |