| File |
Line number |
Procedure |
Code |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
135 |
GAD_CALC_RHS |
_RL fMer (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
167 |
GAD_CALC_RHS |
fMer(i,j) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
205 |
GAD_CALC_RHS |
CALL GAD_GRAD_Y(bi,bj,k,yA,localT,fMer,myThid) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
206 |
GAD_CALC_RHS |
CALL GAD_DEL2(bi,bj,k,fZon,fMer,df4,myThid) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
327 |
GAD_CALC_RHS |
fMer(i,j) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
376 |
GAD_CALC_RHS |
fMer(i,j) = fMer(i,j) + af(i,j) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
425 |
GAD_CALC_RHS |
fMer(i,j) = fMer(i,j) + df(i,j)*rhoFacC(k) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
626 |
GAD_CALC_RHS |
& +MAX(0. _d 0,fMer(i,j+1)) + MAX(0. _d 0,-fMer(i,j)) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
644 |
GAD_CALC_RHS |
IF (fMer(i,j+1).GT.0. _d 0) fMer(i,j+1)=fac*fMer(i,j+1) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
645 |
GAD_CALC_RHS |
IF (-fMer(i,j) .GT.0. _d 0) fMer(i,j) =fac*fMer(i,j) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
697 |
GAD_CALC_RHS |
& +(fMer(i,j+1)-fMer(i,j)) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
714 |
GAD_CALC_RHS |
& fZon,fMer, k, standardMessageUnit,bi,bj,myThid ) |
|
./pkg/mom_fluxform/mom_fluxform.F |
109 |
MOM_FLUXFORM |
_RL fMer(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/mom_fluxform/mom_fluxform.F |
192 |
MOM_FLUXFORM |
fMer(i,j) = 0. |
|
./pkg/mom_fluxform/mom_fluxform.F |
382 |
MOM_FLUXFORM |
O fMer,myThid ) |
|
./pkg/mom_fluxform/mom_fluxform.F |
393 |
MOM_FLUXFORM |
CALL MOM_U_ADV_VU(bi,bj,k,vTrans,uFld,fMer,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
414 |
MOM_FLUXFORM |
& +( fMer(i,j+1) - fMer(i, j) )*vDudyFac |
|
./pkg/mom_fluxform/mom_fluxform.F |
423 |
MOM_FLUXFORM |
CALL DIAGNOSTICS_FILL(fMer,'ADVy_Um ',k,1,2,bi,bj,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
475 |
MOM_FLUXFORM |
CALL MOM_U_YVISCFLUX(bi,bj,k,uFld,v4F,hFacZ,fMer, |
|
./pkg/mom_fluxform/mom_fluxform.F |
497 |
MOM_FLUXFORM |
& +( fMer(i,j+1) - fMer(i, j) )*AhDudyFac |
|
./pkg/mom_fluxform/mom_fluxform.F |
507 |
MOM_FLUXFORM |
CALL DIAGNOSTICS_FILL(fMer, 'VISCy_Um',k,1,2,bi,bj,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
598 |
MOM_FLUXFORM |
O fMer,myThid ) |
|
./pkg/mom_fluxform/mom_fluxform.F |
609 |
MOM_FLUXFORM |
CALL MOM_V_ADV_VV(bi,bj,k,vTrans,vFld,fMer,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
630 |
MOM_FLUXFORM |
& +( fMer(i, j) - fMer(i,j-1) )*vDvdyFac |
|
./pkg/mom_fluxform/mom_fluxform.F |
639 |
MOM_FLUXFORM |
CALL DIAGNOSTICS_FILL(fMer,'ADVy_Vm ',k,1,2,bi,bj,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
690 |
MOM_FLUXFORM |
CALL MOM_V_YVISCFLUX(bi,bj,k,vFld,v4f,fMer, |
|
./pkg/mom_fluxform/mom_fluxform.F |
712 |
MOM_FLUXFORM |
& +( fMer(i, j) - fMer(i,j-1) )*AhDvdyFac |
|
./pkg/mom_fluxform/mom_fluxform.F |
722 |
MOM_FLUXFORM |
CALL DIAGNOSTICS_FILL(fMer, 'VISCy_Vm',k,1,2,bi,bj,myThid) |
|
./pkg/mom_fluxform/mom_u_del2u.F |
45 |
MOM_U_DEL2U |
_RL fMer(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/mom_fluxform/mom_u_del2u.F |
67 |
MOM_U_DEL2U |
fMer(i,j) = drF(k)*hFacZ(i,j) |
|
./pkg/mom_fluxform/mom_u_del2u.F |
86 |
MOM_U_DEL2U |
& +fMer(i,j+1) - fMer(i ,j) |
|
./pkg/mom_fluxform/mom_v_del2v.F |
44 |
MOM_V_DEL2V |
_RL fMer(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/mom_fluxform/mom_v_del2v.F |
66 |
MOM_V_DEL2V |
fMer(i,j) = drF(k)*_hFacC(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_v_del2v.F |
85 |
MOM_V_DEL2V |
& +fMer( i ,j) - fMer(i,j-1) |
|
./pkg/seaice/seaice_diffusion.F |
108 |
SEAICE_DIFFUSION |
CALL DIAGNOSTICS_FILL(fMer,diagName, k,1, 2,bi,bj, myThid) |
|
./pkg/seaice/seaice_diffusion.F |
64 |
SEAICE_DIFFUSION |
_RL fMer (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/seaice/seaice_diffusion.F |
78 |
SEAICE_DIFFUSION |
fMer (i,j) = 0. _d 0 |
|
./pkg/seaice/seaice_diffusion.F |
84 |
SEAICE_DIFFUSION |
CALL GAD_DIFF_Y(bi,bj,k,yA,diff1,iceFld,fMer,myThid) |
|
./pkg/seaice/seaice_diffusion.F |
97 |
SEAICE_DIFFUSION |
& + (fMer(i,j+1)-fMer(i,j)) ) |
|
./pkg/smooth/smooth_rhs.F |
239 |
SMOOTH_RHS |
fMer(i,j,k,bi,bj) = fMer(i,j,k,bi,bj) + df(i,j,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
336 |
SMOOTH_RHS |
CALL EXCH_UV_XYZ_RL(fZon,fMer,.TRUE.,myThid) |
|
./pkg/smooth/smooth_rhs.F |
349 |
SMOOTH_RHS |
& +(fMer(i,j+1,k,bi,bj)-fMer(i,j,k,bi,bj)) |
|
./pkg/smooth/smooth_rhs.F |
360 |
SMOOTH_RHS |
& +(fMer(i,j+1,k,bi,bj)-fMer(i,j,k,bi,bj)) |
|
./pkg/smooth/smooth_rhs.F |
66 |
SMOOTH_RHS |
_RL fMer (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nR,nSx,nSy) |
|
./pkg/smooth/smooth_rhs.F |
81 |
SMOOTH_RHS |
fMer(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/cheapaml/gad_2d_calc_rhs.F |
142 |
GAD_2D_CALC_RHS |
fMer(i,j) = 0. _d 0 |
|
./pkg/cheapaml/gad_2d_calc_rhs.F |
150 |
GAD_2D_CALC_RHS |
fMer(i,j) = fMer(i,j) + af(i,j) |
|
./pkg/cheapaml/gad_2d_calc_rhs.F |
159 |
GAD_2D_CALC_RHS |
fMer(i,j) = fMer(i,j) + df(i,j) |
|
./pkg/cheapaml/gad_2d_calc_rhs.F |
170 |
GAD_2D_CALC_RHS |
& *(fMer(i,j+1)-fMer(i,j)) |
|
./pkg/cheapaml/gad_2d_calc_rhs.F |
85 |
GAD_2D_CALC_RHS |
_RL fMer (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/cheapaml/gad_2d_calc_rhs.F |
95 |
GAD_2D_CALC_RHS |
fMer(i,j) = 0. _d 0 |