| File |
Line number |
Procedure |
Code |
|
./pkg/generic_advdiff/gad_advection.F |
141 |
GAD_ADVECTION |
_RL fVerT (1-OLx:sNx+OLx,1-OLy:sNy+OLy,2) |
|
./pkg/generic_advdiff/gad_advection.F |
226 |
GAD_ADVECTION |
fVerT(i,j,1) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_advection.F |
227 |
GAD_ADVECTION |
fVerT(i,j,2) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_advection.F |
834 |
GAD_ADVECTION |
fVerT(i,j,kUp) = 0. |
|
./pkg/generic_advdiff/gad_advection.F |
847 |
GAD_ADVECTION |
fVerT(i,j,kUp) = 0. |
|
./pkg/generic_advdiff/gad_advection.F |
863 |
GAD_ADVECTION |
O fVerT(1-OLx,1-OLy,kUp), myThid ) |
|
./pkg/generic_advdiff/gad_advection.F |
867 |
GAD_ADVECTION |
O fVerT(1-OLx,1-OLy,kUp), myThid ) |
|
./pkg/generic_advdiff/gad_advection.F |
871 |
GAD_ADVECTION |
O fVerT(1-OLx,1-OLy,kUp), myThid ) |
|
./pkg/generic_advdiff/gad_advection.F |
875 |
GAD_ADVECTION |
O fVerT(1-OLx,1-OLy,kUp), myThid ) |
|
./pkg/generic_advdiff/gad_advection.F |
880 |
GAD_ADVECTION |
O fVerT(1-OLx,1-OLy,kUp), myThid ) |
|
./pkg/generic_advdiff/gad_advection.F |
907 |
GAD_ADVECTION |
& -deltaTLev(k)*( fVerT(i,j,kDown)-fVerT(i,j,kUp) ) |
|
./pkg/generic_advdiff/gad_advection.F |
936 |
GAD_ADVECTION |
& *( fVerT(i,j,kDown)-fVerT(i,j,kUp) |
|
./pkg/generic_advdiff/gad_advection.F |
948 |
GAD_ADVECTION |
CALL DIAGNOSTICS_FILL( fVerT(1-OLx,1-OLy,kUp), |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
122 |
GAD_CALC_RHS |
_RL fVerT (1-OLx:sNx+OLx,1-OLy:sNy+OLy,2) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
158 |
GAD_CALC_RHS |
fVerT(1,1,kDown) = fVerT(1,1,kDown) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
177 |
GAD_CALC_RHS |
fVerT(i,j,kUp) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
20 |
GAD_CALC_RHS |
U fVerT, gTracer, |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
573 |
GAD_CALC_RHS |
fVerT(i,j,kUp) = fVerT(i,j,kUp) + af(i,j)*maskInC(i,j,bi,bj) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
617 |
GAD_CALC_RHS |
fVerT(i,j,kUp) = fVerT(i,j,kUp) + df(i,j)*maskUp(i,j) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
669 |
GAD_CALC_RHS |
fVerT(i,j,kUp) = fVerT(i,j,kUp) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
707 |
GAD_CALC_RHS |
& +MAX(0. _d 0,fVerT(i,j,kDown)*rkSign) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
708 |
GAD_CALC_RHS |
& +MAX(0. _d 0,-fVerT(i,j,kUp)*rkSign) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
722 |
GAD_CALC_RHS |
IF (-fVerT(i,j,kUp)*rkSign .GT.0. _d 0) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
723 |
GAD_CALC_RHS |
& fVerT(i,j,kUp)=fac*fVerT(i,j,kUp) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
725 |
GAD_CALC_RHS |
IF (k.LT.Nr .AND. fVerT(i,j,kDown)*rkSign.GT.0. _d 0) THEN |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
747 |
GAD_CALC_RHS |
& *( -fVerT(i,j,kDown)*rkSign ) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
749 |
GAD_CALC_RHS |
fVerT(i,j,kDown)=fac*fVerT(i,j,kDown) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
756 |
GAD_CALC_RHS |
& *( fVerT(i,j,kDown)*rkSign ) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
775 |
GAD_CALC_RHS |
& +(fVerT(i,j,kDown)-fVerT(i,j,kUp))*rkSign |
|
./pkg/smooth/smooth_rhs.F |
312 |
SMOOTH_RHS |
fVerT(i,j,k-1,bi,bj) = fVerT(i,j,k-1,bi,bj) + |
|
./pkg/smooth/smooth_rhs.F |
330 |
SMOOTH_RHS |
_EXCH_XYZ_RL ( fVerT, myThid ) |
|
./pkg/smooth/smooth_rhs.F |
344 |
SMOOTH_RHS |
& +(fVerT(i,j,k,bi,bj)-fVerT(i,j,k-1,bi,bj))*rkSign |
|
./pkg/smooth/smooth_rhs.F |
356 |
SMOOTH_RHS |
& +(fVerT(i,j,k,bi,bj))*rkSign |
|
./pkg/smooth/smooth_rhs.F |
65 |
SMOOTH_RHS |
_RL fVerT (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nR,nSx,nSy) |
|
./pkg/smooth/smooth_rhs.F |
79 |
SMOOTH_RHS |
fVerT(i,j,k,bi,bj) = 0. _d 0 |