| File |
Line number |
Procedure |
Code |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
121 |
GAD_CALC_RHS |
_RL fMer (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
176 |
GAD_CALC_RHS |
fMer(i,j) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
19 |
GAD_CALC_RHS |
O fZon, fMer, |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
203 |
GAD_CALC_RHS |
CALL GAD_GRAD_Y(bi,bj,k,yA,localT,fMer,myThid) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
204 |
GAD_CALC_RHS |
CALL GAD_DEL2(bi,bj,k,fZon,fMer,df4,myThid) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
350 |
GAD_CALC_RHS |
fMer(i,j) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
421 |
GAD_CALC_RHS |
fMer(i,j) = fMer(i,j) + af(i,j) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
467 |
GAD_CALC_RHS |
fMer(i,j) = fMer(i,j) + df(i,j)*rhoFacC(k) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
726 |
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 |
740 |
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 |
741 |
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 |
779 |
GAD_CALC_RHS |
& +(fMer(i,j+1)-fMer(i,j))*maskInC(i,j,bi,bj) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
796 |
GAD_CALC_RHS |
& fZon,fMer, k, standardMessageUnit,bi,bj,myThid ) |
|
./pkg/mom_fluxform/mom_fluxform.F |
121 |
MOM_FLUXFORM |
_RL fMer(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/mom_fluxform/mom_fluxform.F |
205 |
MOM_FLUXFORM |
fMer(i,j) = 0. |
|
./pkg/mom_fluxform/mom_fluxform.F |
416 |
MOM_FLUXFORM |
O fMer,myThid ) |
|
./pkg/mom_fluxform/mom_fluxform.F |
427 |
MOM_FLUXFORM |
CALL MOM_U_ADV_VU( bi,bj,k,vTrans,uFld,fMer,myThid ) |
|
./pkg/mom_fluxform/mom_fluxform.F |
448 |
MOM_FLUXFORM |
& +( fMer(i,j+1) - fMer(i, j) )*vDudyFac |
|
./pkg/mom_fluxform/mom_fluxform.F |
457 |
MOM_FLUXFORM |
CALL DIAGNOSTICS_FILL( fMer, 'ADVy_Um ',k,1,2,bi,bj,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
523 |
MOM_FLUXFORM |
CALL MOM_U_YVISCFLUX( bi,bj,k,uFld,v4F,hFacZ,fMer, |
|
./pkg/mom_fluxform/mom_fluxform.F |
545 |
MOM_FLUXFORM |
& +( fMer(i,j+1) - fMer(i, j) )*AhDudyFac |
|
./pkg/mom_fluxform/mom_fluxform.F |
555 |
MOM_FLUXFORM |
CALL DIAGNOSTICS_FILL(fMer, 'VISCy_Um',k,1,2,bi,bj,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
651 |
MOM_FLUXFORM |
O fMer,myThid ) |
|
./pkg/mom_fluxform/mom_fluxform.F |
661 |
MOM_FLUXFORM |
CALL MOM_V_ADV_VV( bi,bj,k,vTrans,vFld,fMer,myThid ) |
|
./pkg/mom_fluxform/mom_fluxform.F |
681 |
MOM_FLUXFORM |
& +( fMer(i, j) - fMer(i,j-1) )*vDvdyFac |
|
./pkg/mom_fluxform/mom_fluxform.F |
690 |
MOM_FLUXFORM |
CALL DIAGNOSTICS_FILL( fMer, 'ADVy_Vm ',k,1,2,bi,bj,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
755 |
MOM_FLUXFORM |
CALL MOM_V_YVISCFLUX( bi,bj,k,vFld,v4f,fMer, |
|
./pkg/mom_fluxform/mom_fluxform.F |
777 |
MOM_FLUXFORM |
& +( fMer(i, j) - fMer(i,j-1) )*AhDvdyFac |
|
./pkg/mom_fluxform/mom_fluxform.F |
787 |
MOM_FLUXFORM |
CALL DIAGNOSTICS_FILL(fMer, 'VISCy_Vm',k,1,2,bi,bj,myThid) |
|
./pkg/mom_fluxform/mom_u_del2u.F |
48 |
MOM_U_DEL2U |
_RL fMer(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/mom_fluxform/mom_u_del2u.F |
73 |
MOM_U_DEL2U |
fMer(i,j) = drF(k)*hFacZ(i,j) |
|
./pkg/mom_fluxform/mom_u_del2u.F |
92 |
MOM_U_DEL2U |
& +fMer(i,j+1) - fMer(i ,j) |
|
./pkg/mom_fluxform/mom_v_del2v.F |
47 |
MOM_V_DEL2V |
_RL fMer(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/mom_fluxform/mom_v_del2v.F |
69 |
MOM_V_DEL2V |
fMer(i,j) = drF(k)*_hFacC(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_v_del2v.F |
91 |
MOM_V_DEL2V |
& +fMer( i ,j) - fMer(i,j-1) |
|
./pkg/ptracers/ptracers_integrate.F |
108 |
PTRACERS_INTEGRATE |
_RL fMer (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/ptracers/ptracers_integrate.F |
330 |
PTRACERS_INTEGRATE |
O fZon, fMer, |
|
./pkg/seaice/seaice_diffusion.F |
107 |
SEAICE_DIFFUSION |
CALL DIAGNOSTICS_FILL(fMer,diagName, k,1, 2,bi,bj, myThid) |
|
./pkg/seaice/seaice_diffusion.F |
70 |
SEAICE_DIFFUSION |
_RL fMer (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/seaice/seaice_diffusion.F |
84 |
SEAICE_DIFFUSION |
fMer (i,j) = 0. _d 0 |
|
./pkg/seaice/seaice_diffusion.F |
90 |
SEAICE_DIFFUSION |
CALL GAD_DIFF_Y(bi,bj,k,yA,diffKh,iceFld,fMer,myThid) |
|
./pkg/seaice/seaice_diffusion.F |
97 |
SEAICE_DIFFUSION |
& + (fMer(i,j+1)-fMer(i,j)) ) |
|
./pkg/smooth/smooth_rhs.F |
234 |
SMOOTH_RHS |
fMer(i,j,k,bi,bj) = fMer(i,j,k,bi,bj) + df(i,j,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
329 |
SMOOTH_RHS |
CALL EXCH_UV_XYZ_RL(fZon,fMer,.TRUE.,myThid) |
|
./pkg/smooth/smooth_rhs.F |
343 |
SMOOTH_RHS |
& +(fMer(i,j+1,k,bi,bj)-fMer(i,j,k,bi,bj)) |
|
./pkg/smooth/smooth_rhs.F |
355 |
SMOOTH_RHS |
& +(fMer(i,j+1,k,bi,bj)-fMer(i,j,k,bi,bj)) |
|
./pkg/smooth/smooth_rhs.F |
64 |
SMOOTH_RHS |
_RL fMer (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nR,nSx,nSy) |
|
./pkg/smooth/smooth_rhs.F |
78 |
SMOOTH_RHS |
fMer(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/salt_integrate.F |
130 |
SALT_INTEGRATE |
_RL fMer (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./model/src/salt_integrate.F |
352 |
SALT_INTEGRATE |
O fZon, fMer, |
|
./model/src/salt_integrate.F |
367 |
SALT_INTEGRATE |
O fZon, fMer, |
|
./model/src/temp_integrate.F |
134 |
TEMP_INTEGRATE |
_RL fMer (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./model/src/temp_integrate.F |
360 |
TEMP_INTEGRATE |
O fZon, fMer, |
|
./model/src/temp_integrate.F |
375 |
TEMP_INTEGRATE |
O fZon, fMer, |
|
./pkg/cheapaml/gad_2d_calc_rhs.F |
100 |
GAD_2D_CALC_RHS |
_RL fMer (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/cheapaml/gad_2d_calc_rhs.F |
230 |
GAD_2D_CALC_RHS |
fMer(i,j) = 0. _d 0 |
|
./pkg/cheapaml/gad_2d_calc_rhs.F |
281 |
GAD_2D_CALC_RHS |
fMer(i,j) = fMer(i,j) + af(i,j) |
|
./pkg/cheapaml/gad_2d_calc_rhs.F |
298 |
GAD_2D_CALC_RHS |
fMer(i,j) = fMer(i,j) + df(i,j) |
|
./pkg/cheapaml/gad_2d_calc_rhs.F |
344 |
GAD_2D_CALC_RHS |
& *(fMer(i,j+1)-fMer(i,j)) |