| File |
Line number |
Procedure |
Code |
|
./pkg/mom_fluxform/mom_fluxform.F |
764 |
MOM_FLUXFORM |
CALL MOM_U_CORIOLIS(bi,bj,k,vFld,cf,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
767 |
MOM_FLUXFORM |
gU(i,j,k,bi,bj) = gU(i,j,k,bi,bj)+fuFac*cf(i,j) |
|
./pkg/mom_fluxform/mom_fluxform.F |
772 |
MOM_FLUXFORM |
& CALL DIAGNOSTICS_FILL(cf,'Um_Cori ',k,1,2,bi,bj,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
774 |
MOM_FLUXFORM |
CALL MOM_V_CORIOLIS(bi,bj,k,uFld,cf,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
777 |
MOM_FLUXFORM |
gV(i,j,k,bi,bj) = gV(i,j,k,bi,bj)+fvFac*cf(i,j) |
|
./pkg/mom_fluxform/mom_fluxform.F |
782 |
MOM_FLUXFORM |
& CALL DIAGNOSTICS_FILL(cf,'Vm_Cori ',k,1,2,bi,bj,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
788 |
MOM_FLUXFORM |
CALL MOM_U_CORIOLIS_NH(bi,bj,k,wVel,cf,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
791 |
MOM_FLUXFORM |
gU(i,j,k,bi,bj) = gU(i,j,k,bi,bj)+fuFac*cf(i,j) |
|
./pkg/mom_fluxform/mom_fluxform.F |
796 |
MOM_FLUXFORM |
CALL MOM_V_CORIOLIS_NH(bi,bj,k,wVel,cf,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
799 |
MOM_FLUXFORM |
gV(i,j,k,bi,bj) = gV(i,j,k,bi,bj)+fvFac*cf(i,j) |
|
./pkg/fizhi/fizhi_swrad.F |
539 |
OPTHK |
subroutine OPTHK ( tl,pl,ple,lz,cf,cfm,lwi,im,jm,lm,tau ) |
|
./pkg/fizhi/fizhi_swrad.F |
577 |
OPTHK |
_RL cf(im,jm,lm) |
|
./pkg/fizhi/fizhi_swrad.F |
595 |
OPTHK |
if( cf(i,j,L).ne.0.0 ) then |
|
./pkg/fizhi/fizhi_swrad.F |
599 |
OPTHK |
fracls = ( cf(i,j,L)-cfm(i,j,L) )/cf(i,j,L) |
|
./verification/fizhi-cs-aqualev20/code/fizhi_swrad.F |
539 |
OPTHK |
subroutine OPTHK ( tl,pl,ple,lz,cf,cfm,lwi,im,jm,lm,tau ) |
|
./verification/fizhi-cs-aqualev20/code/fizhi_swrad.F |
577 |
OPTHK |
_RL cf(im,jm,lm) |
|
./verification/fizhi-cs-aqualev20/code/fizhi_swrad.F |
595 |
OPTHK |
if( cf(i,j,L).ne.0.0 ) then |
|
./verification/fizhi-cs-aqualev20/code/fizhi_swrad.F |
599 |
OPTHK |
fracls = ( cf(i,j,L)-cfm(i,j,L) )/cf(i,j,L) |