| File |
Line number |
Procedure |
Code |
|
./model/inc/SURFACE.h |
44 |
NO PROCEDURE |
COMMON /EXACT_ETA_LOCAL/ etaHnm1, dEtaHdt, PmEpR |
|
./model/inc/SURFACE.h |
47 |
NO PROCEDURE |
_RL PmEpR (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/longstep/longstep_average.F |
102 |
LONGSTEP_AVERAGE |
CALL LONGSTEP_FILL_3D( LS_fwFluxCount,LS_fwFlux,PmEpR,1,myThid) |
|
./pkg/mom_fluxform/mom_calc_rtrans.F |
78 |
MOM_CALC_RTRANS |
& 0.5 _d 0*( PmEpR( i ,j,bi,bj)*rA( i ,j,bi,bj) |
|
./pkg/mom_fluxform/mom_calc_rtrans.F |
79 |
MOM_CALC_RTRANS |
& +PmEpR(i-1,j,bi,bj)*rA(i-1,j,bi,bj) ) |
|
./pkg/mom_fluxform/mom_calc_rtrans.F |
81 |
MOM_CALC_RTRANS |
& 0.5 _d 0*( PmEpR(i, j ,bi,bj)*rA(i, j ,bi,bj) |
|
./pkg/mom_fluxform/mom_calc_rtrans.F |
82 |
MOM_CALC_RTRANS |
& +PmEpR(i,j-1,bi,bj)*rA(i,j-1,bi,bj) ) |
|
./model/src/diags_oceanic_surf_flux.F |
135 |
DIAGS_OCEANIC_SURF_FLUX |
& + PmEpR(i,j,bi,bj)*theta(i,j,ks,bi,bj)*HeatCapacity_Cp |
|
./model/src/diags_oceanic_surf_flux.F |
168 |
DIAGS_OCEANIC_SURF_FLUX |
& + PmEpR(i,j,bi,bj)*salt(i,j,ks,bi,bj) |
|
./pkg/ptracers/ptracers_forcing_surf.F |
133 |
PTRACERS_FORCING_SURF |
& + ( PmEpR(i,j,bi,bj) - add2EmP(i,j) ) |
|
./model/src/external_forcing_surf.F |
127 |
EXTERNAL_FORCING_SURF |
PmEpR(i,j,bi,bj) = -EmPmR(i,j,bi,bj) |
|
./model/src/external_forcing_surf.F |
261 |
EXTERNAL_FORCING_SURF |
& + PmEpR(i,j,bi,bj) |
|
./model/src/external_forcing_surf.F |
272 |
EXTERNAL_FORCING_SURF |
& + PmEpR(i,j,bi,bj) |
|
./pkg/shelfice/shelfice_forcing_surf.F |
118 |
SHELFICE_FORCING_SURF |
PmEpR(i,j,bi,bj) = -EmPmR(i,j,bi,bj) |
|
./model/src/ini_nlfs_vars.F |
65 |
INI_NLFS_VARS |
PmEpR (i,j,bi,bj) = 0. |
|
./pkg/timeave/timeave_surf_flux.F |
102 |
TIMEAVE_SURF_FLUX |
& + PmEpR(i,j,bi,bj)*salt(i,j,k,bi,bj) |
|
./pkg/timeave/timeave_surf_flux.F |
81 |
TIMEAVE_SURF_FLUX |
& + PmEpR(i,j,bi,bj)*theta(i,j,k,bi,bj)*HeatCapacity_Cp |
|
./model/src/integr_continuity.F |
152 |
INTEGR_CONTINUITY |
PmEpR(i,j,bi,bj) = dEtaHdt(i,j,bi,bj) |
|
./model/src/integr_continuity.F |
155 |
INTEGR_CONTINUITY |
PmEpR(i,j,bi,bj) = PmEpR(i,j,bi,bj)*rUnit2mass |
|
./model/src/integr_continuity.F |
162 |
INTEGR_CONTINUITY |
PmEpR(i,j,bi,bj) = 0. _d 0 |
|
./model/src/integr_continuity.F |
172 |
INTEGR_CONTINUITY |
PmEpR(i,j,bi,bj) = -EmPmR(i,j,bi,bj) |
|
./model/src/integr_continuity.F |
271 |
INTEGR_CONTINUITY |
& +mass2rUnit*PmEpR(i,j,bi,bj)*maskC(i,j,k,bi,bj) |
|
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F |
136 |
PTRACERS_FORCING_SURF |
& + ( PmEpR(i,j,bi,bj) - add2EmP(i,j) ) |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
130 |
EXTERNAL_FORCING_SURF |
PmEpR(i,j,bi,bj) = -EmPmR(i,j,bi,bj) |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
264 |
EXTERNAL_FORCING_SURF |
& + PmEpR(i,j,bi,bj) |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
275 |
EXTERNAL_FORCING_SURF |
& + PmEpR(i,j,bi,bj) |
|
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F |
130 |
EXTERNAL_FORCING_SURF |
PmEpR(i,j,bi,bj) = -EmPmR(i,j,bi,bj) |
|
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F |
264 |
EXTERNAL_FORCING_SURF |
& + PmEpR(i,j,bi,bj) |
|
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F |
275 |
EXTERNAL_FORCING_SURF |
& + PmEpR(i,j,bi,bj) |
|
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F |
130 |
PTRACERS_FORCING_SURF |
& + ( PmEpR(i,j,bi,bj) - add2EmP(i,j) ) |
|
./verification/tutorial_tracer_adjsens/code_oad/ptracers_forcing_surf.F |
130 |
PTRACERS_FORCING_SURF |
& + ( PmEpR(i,j,bi,bj) - add2EmP(i,j) ) |
|
./pkg/autodiff/autodiff_init_varia.F |
70 |
AUTODIFF_INIT_VARIA |
PmEpR(i,j,bi,bj) = 0. _d 0 |
|
./pkg/autodiff/autodiff_restore.F |
125 |
AUTODIFF_RESTORE |
PmEpR(I,J,bi,bj) = StoreDynVars2D(I,J,bi,bj,23) |
|
./pkg/autodiff/autodiff_store.F |
131 |
AUTODIFF_STORE |
StoreDynVars2D(I,J,bi,bj,23) = PmEpR(I,J,bi,bj) |