| File |
Line number |
Procedure |
Code |
|
./pkg/generic_advdiff/gad_advection.F |
1014 |
GAD_ADVECTION |
& -deltaTLev(k)*( fVerT(i,j,kDown)-fVerT(i,j,kUp) ) |
|
./pkg/generic_advdiff/gad_advection.F |
1043 |
GAD_ADVECTION |
& *( fVerT(i,j,kDown)-fVerT(i,j,kUp) |
|
./pkg/generic_advdiff/gad_advection.F |
1055 |
GAD_ADVECTION |
CALL DIAGNOSTICS_FILL( fVerT(1-OLx,1-OLy,kUp), |
|
./pkg/generic_advdiff/gad_advection.F |
1060 |
GAD_ADVECTION |
CALL LAYERS_FILL( fVerT(1-OLx,1-OLy,kUp), trIdentity, |
|
./pkg/generic_advdiff/gad_advection.F |
145 |
GAD_ADVECTION |
_RL fVerT (1-OLx:sNx+OLx,1-OLy:sNy+OLy,2) |
|
./pkg/generic_advdiff/gad_advection.F |
230 |
GAD_ADVECTION |
fVerT(i,j,1) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_advection.F |
231 |
GAD_ADVECTION |
fVerT(i,j,2) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_advection.F |
929 |
GAD_ADVECTION |
fVerT(i,j,kUp) = 0. |
|
./pkg/generic_advdiff/gad_advection.F |
942 |
GAD_ADVECTION |
fVerT(i,j,kUp) = 0. |
|
./pkg/generic_advdiff/gad_advection.F |
958 |
GAD_ADVECTION |
O fVerT(1-OLx,1-OLy,kUp), myThid ) |
|
./pkg/generic_advdiff/gad_advection.F |
962 |
GAD_ADVECTION |
O fVerT(1-OLx,1-OLy,kUp), myThid ) |
|
./pkg/generic_advdiff/gad_advection.F |
966 |
GAD_ADVECTION |
O fVerT(1-OLx,1-OLy,kUp), myThid ) |
|
./pkg/generic_advdiff/gad_advection.F |
970 |
GAD_ADVECTION |
O fVerT(1-OLx,1-OLy,kUp), myThid ) |
|
./pkg/generic_advdiff/gad_advection.F |
975 |
GAD_ADVECTION |
O fVerT(1-OLx,1-OLy,kUp), myThid ) |
|
./pkg/generic_advdiff/gad_advection.F |
985 |
GAD_ADVECTION |
fVerT(i,j,kUp) = afr(i,j,k) |
|
./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 |
587 |
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 |
636 |
GAD_CALC_RHS |
fVerT(i,j,kUp) = fVerT(i,j,kUp) + df(i,j)*maskUp(i,j) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
689 |
GAD_CALC_RHS |
fVerT(i,j,kUp) = fVerT(i,j,kUp) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
727 |
GAD_CALC_RHS |
& +MAX(0. _d 0,fVerT(i,j,kDown)*rkSign) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
728 |
GAD_CALC_RHS |
& +MAX(0. _d 0,-fVerT(i,j,kUp)*rkSign) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
742 |
GAD_CALC_RHS |
IF (-fVerT(i,j,kUp)*rkSign .GT.0. _d 0) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
743 |
GAD_CALC_RHS |
& fVerT(i,j,kUp)=fac*fVerT(i,j,kUp) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
745 |
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 |
753 |
GAD_CALC_RHS |
& *( -fVerT(i,j,kDown)*rkSign ) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
755 |
GAD_CALC_RHS |
fVerT(i,j,kDown)=fac*fVerT(i,j,kDown) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
761 |
GAD_CALC_RHS |
& *( fVerT(i,j,kDown)*rkSign ) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
780 |
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 |
CALL 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 |