| File |
Line number |
Procedure |
Code |
|
./pkg/longstep/longstep_average.F |
104 |
LONGSTEP_AVERAGE |
CALL LONGSTEP_FILL_3D_RS(LS_fwFluxCount,LS_fwFlux,EmPmR,1,myThid) |
|
./pkg/monitor/monitor.F |
138 |
MONITOR |
CALL MON_WRITESTATS_RS( 1, EmPmR,'_empmr', |
|
./pkg/ocn_compon_interf/ocn_apply_import.F |
170 |
OCN_APPLY_IMPORT |
EmPmR(i,j,bi,bj) = FWFlux (i,j,bi,bj) |
|
./pkg/ocn_compon_interf/ocn_apply_import.F |
198 |
OCN_APPLY_IMPORT |
IF ( useImportFW ) _EXCH_XY_RS(EmPmR, myThid ) |
|
./pkg/ocn_compon_interf/ocn_apply_import.F |
89 |
OCN_APPLY_IMPORT |
EmPmR(i,j,bi,bj) = FWFlux (i,j,bi,bj) |
|
./pkg/ptracers/ptracers_forcing_surf.F |
160 |
PTRACERS_FORCING_SURF |
& + ( EmPmR(i,j,bi,bj) + add2EmP(i,j) ) |
|
./pkg/ptracers/ptracers_forcing_surf.F |
181 |
PTRACERS_FORCING_SURF |
& + ( EmPmR(i,j,bi,bj) + add2EmP(i,j) ) |
|
./model/src/diags_oceanic_surf_flux.F |
75 |
DIAGS_OCEANIC_SURF_FLUX |
CALL DIAGNOSTICS_SCALE_FILL_RS( EmPmR,tmpFac,1, |
|
./model/src/do_oceanic_phys.F |
326 |
DO_OCEANIC_PHYS |
& CALL REMOVE_MEAN_RS( 1, EmPmR, maskInC, maskInC, rA, drF, |
|
./pkg/seaice/seaice_growth.F |
1442 |
SEAICE_GROWTH |
EmPmR(I,J,bi,bj) = maskC(I,J,kSurface,bi,bj)*( |
|
./pkg/seaice/seaice_growth.F |
1470 |
SEAICE_GROWTH |
CALL PLOT_FIELD_XYRL( EmPmR,'Current EmPmR ', myIter, myThid ) |
|
./pkg/seaice/seaice_growth_if.F |
1189 |
SEAICE_GROWTH_IF |
& EmPmR(I,J,bi,bj), |
|
./pkg/seaice/seaice_growth_if.F |
931 |
SEAICE_GROWTH_IF |
EmPmR(I,J,bi,bj) = maskC(I,J,kSurface,bi,bj)*( |
|
./pkg/seaice/seaice_model.F |
241 |
SEAICE_MODEL |
_EXCH_XY_RS(EmPmR, myThid ) |
|
./pkg/seaice/seaice_model.F |
290 |
SEAICE_MODEL |
CALL DIAGNOSTICS_FILL_RS(EmPmR,'SIempmr ',0,1 ,0,1,1,myThid) |
|
./pkg/seaice/seaice_output.F |
102 |
SEAICE_OUTPUT |
CALL MNC_CW_RS_W(pf,'sice',0,0,'EmPmR',EmPmR,myThid) |
|
./pkg/seaice/seaice_output.F |
114 |
SEAICE_OUTPUT |
CALL WRITE_FLD_XY_RS('EmPmR.',suff,EmPmR,myIter,myThid) |
|
./pkg/seaice/seaice_output.F |
163 |
SEAICE_OUTPUT |
& EmPmRtave(i,j,bi,bj)+EmPmR(i,j,bi,bj) *deltaTclock |
|
./model/src/external_fields_load.F |
266 |
EXTERNAL_FIELDS_LOAD |
EmPmR(i,j,bi,bj) = bWght*EmPmR0(i,j,bi,bj) |
|
./model/src/external_fields_load.F |
311 |
EXTERNAL_FIELDS_LOAD |
& Qnet(1,sNy,1,1),EmPmR(1,sNy,1,1), |
|
./model/src/external_forcing_surf.F |
252 |
EXTERNAL_FORCING_SURF |
EmPmR(i,j,bi,bj) = EmPmR(i,j,bi,bj)*maskInC(i,j,bi,bj) |
|
./model/src/external_forcing_surf.F |
263 |
EXTERNAL_FORCING_SURF |
PmEpR(i,j,bi,bj) = -EmPmR(i,j,bi,bj) |
|
./model/src/external_forcing_surf.F |
314 |
EXTERNAL_FORCING_SURF |
& + EmPmR(i,j,bi,bj) |
|
./model/src/external_forcing_surf.F |
325 |
EXTERNAL_FORCING_SURF |
& + EmPmR(i,j,bi,bj) |
|
./model/src/external_forcing_surf.F |
340 |
EXTERNAL_FORCING_SURF |
& + EmPmR(i,j,bi,bj) |
|
./model/src/external_forcing_surf.F |
351 |
EXTERNAL_FORCING_SURF |
& + EmPmR(i,j,bi,bj) |
|
./pkg/thsice/thsice_ave.F |
103 |
THSICE_AVE |
CALL TIMEAVE_CUMULATE(ice_frw2oc_Ave, EmPmR, |
|
./pkg/thsice/thsice_ave.F |
147 |
THSICE_AVE |
CALL DIAGNOSTICS_FILL_RS(EmPmR, 'SIfrw2oc',0,1,1,bi,bj,myThid) |
|
./pkg/thsice/thsice_slab_ocean.F |
83 |
THSICE_SLAB_OCEAN |
& + (fwFac*EmPmR(i,j,bi,bj) - dtFac*saltFlux(i,j,bi,bj)) |
|
./pkg/thsice/thsice_step_fwd.F |
281 |
THSICE_STEP_FWD |
& + opFrac*EmPmR(i,j,bi,bj) |
|
./pkg/thsice/thsice_step_fwd.F |
283 |
THSICE_STEP_FWD |
EmPmR(i,j,bi,bj)= -icFrac*frw2oc(i,j) |
|
./pkg/thsice/thsice_step_fwd.F |
284 |
THSICE_STEP_FWD |
& + opFrac*EmPmR(i,j,bi,bj) |
|
./pkg/thsice/thsice_step_fwd.F |
297 |
THSICE_STEP_FWD |
icFrwAtm(i,j,bi,bj) = EmPmR(i,j,bi,bj) |
|
./pkg/thsice/thsice_step_fwd.F |
335 |
THSICE_STEP_FWD |
EmPmR(i,j,bi,bj)= EmPmR(i,j,bi,bj)- frw2oc(i,j) |
|
./pkg/thsice/thsice_step_fwd.F |
387 |
THSICE_STEP_FWD |
EmPmR(i,j,bi,bj)= EmPmR(i,j,bi,bj)- oceFWfx(i,j,bi,bj) |
|
./pkg/thsice/thsice_test_addfluid.h |
18 |
NO PROCEDURE |
addMass(i,j,1,bi,bj) = -EmPmR(i,j,bi,bj) |
|
./pkg/thsice/thsice_test_addfluid.h |
21 |
NO PROCEDURE |
EmPmR(i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_forcing.F |
128 |
INI_FORCING |
CALL READ_FLD_XY_RS( EmPmRfile, ' ', EmPmR, 0, myThid ) |
|
./model/src/ini_forcing.F |
135 |
INI_FORCING |
EmPmR(i,j,bi,bj) = EmPmR(i,j,bi,bj)*rhoConstFresh |
|
./model/src/ini_forcing.F |
184 |
INI_FORCING |
CALL EXCH_XY_RS( EmPmR, myThid ) |
|
./model/src/ini_forcing.F |
50 |
INI_FORCING |
EmPmR (i,j,bi,bj) = 0. _d 0 |
|
./model/src/integr_continuity.F |
159 |
INTEGR_CONTINUITY |
PmEpR(i,j,bi,bj) = -EmPmR(i,j,bi,bj) |
|
./model/src/integr_continuity.F |
167 |
INTEGR_CONTINUITY |
& -facEmP*EmPmR(i,j,bi,bj) |
|
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F |
161 |
PTRACERS_FORCING_SURF |
& + ( EmPmR(i,j,bi,bj) + add2EmP(i,j) ) |
|
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F |
182 |
PTRACERS_FORCING_SURF |
& + ( EmPmR(i,j,bi,bj) + add2EmP(i,j) ) |
|
./verification/tutorial_global_oce_optim/code_ad/FFIELDS.h |
101 |
NO PROCEDURE |
_RS EmPmR (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./verification/tutorial_global_oce_optim/code_ad/FFIELDS.h |
87 |
NO PROCEDURE |
COMMON /FFIELDS_EmPmR/ EmPmR |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
238 |
EXTERNAL_FORCING_SURF |
EmPmR(i,j,bi,bj) = EmPmR(i,j,bi,bj)*maskInC(i,j,bi,bj) |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
249 |
EXTERNAL_FORCING_SURF |
PmEpR(i,j,bi,bj) = -EmPmR(i,j,bi,bj) |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
300 |
EXTERNAL_FORCING_SURF |
& + EmPmR(i,j,bi,bj) |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
311 |
EXTERNAL_FORCING_SURF |
& + EmPmR(i,j,bi,bj) |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
326 |
EXTERNAL_FORCING_SURF |
& + EmPmR(i,j,bi,bj) |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
337 |
EXTERNAL_FORCING_SURF |
& + EmPmR(i,j,bi,bj) |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
129 |
INI_FORCING |
CALL READ_FLD_XY_RS( EmPmRfile, ' ', EmPmR, 0, myThid ) |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
137 |
INI_FORCING |
EmPmR(i,j,bi,bj) = EmPmR(i,j,bi,bj)*rhoConstFresh |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
187 |
INI_FORCING |
CALL EXCH_XY_RS( EmPmR, myThid ) |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
49 |
INI_FORCING |
EmPmR (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F |
160 |
PTRACERS_FORCING_SURF |
& + ( EmPmR(i,j,bi,bj) + add2EmP(i,j) ) |
|
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F |
181 |
PTRACERS_FORCING_SURF |
& + ( EmPmR(i,j,bi,bj) + add2EmP(i,j) ) |
|
./model/src/pre_cg3d.F |
90 |
PRE_CG3D |
& + tmpFac*_rA(i,j,bi,bj)*EmPmR(i,j,bi,bj)/deltaTMom |
|
./model/src/solve_for_pressure.F |
139 |
SOLVE_FOR_PRESSURE |
& tmpFac*_rA(i,j,bi,bj)*EmPmR(i,j,bi,bj)/deltaTMom |
|
./model/src/solve_for_pressure.F |
148 |
SOLVE_FOR_PRESSURE |
& + rA(i,j,bi,bj)*EmPmR(i,j,bi,bj) |
|
./pkg/aim_compon_interf/atm_store_evmpr.F |
58 |
ATM_STORE_EVMPR |
& + EmPmR(i,j,bi,bj)*cplTimeFraction |
|
./pkg/aim_v23/aim_aim2sioce.F |
105 |
AIM_AIM2SIOCE |
EmPmR(i,j,bi,bj)= 0. _d 0 |
|
./pkg/aim_v23/aim_aim2sioce.F |
124 |
AIM_AIM2SIOCE |
EmPmR(i,j,bi,bj) = ( EVAP(I2,2,myThid) |
|
./pkg/aim_v23/aim_aim2sioce.F |
201 |
AIM_AIM2SIOCE |
EmPmR(i,j,bi,bj) = EmPmR(i,j,bi,bj)*opFrac |
|
./pkg/atm2d/put_ocnvars.F |
79 |
PUT_OCNVARS |
EmPmR(i,j,1,1)= (pass_precip(i,j) + pass_evap(i,j) |
|
./pkg/atm2d/put_ocnvars.F |
84 |
PUT_OCNVARS |
_EXCH_XY_RS(EmPmR, myThid ) !for NL Free surf? |
|
./pkg/autodiff/ini_autodiff.F |
71 |
INI_AUTODIFF |
EmPmR(I,J,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_ave.F |
49 |
BULKF_AVE |
& +EmPmR(i,j,bi,bj)*deltaTclock |
|
./pkg/bulk_force/bulkf_flux_adjust.F |
66 |
BULKF_FLUX_ADJUST |
IF ( adjustMask(i,j) ) EmPmR(i,j,bi,bj) = EmPch(i,j,bi,bj) |
|
./pkg/bulk_force/bulkf_forcing.F |
190 |
BULKF_FORCING |
EmPmR(i,j,bi,bj) = (evap(i,j,bi,bj)-rain(i,j,bi,bj) |
|
./pkg/bulk_force/bulkf_forcing.F |
199 |
BULKF_FORCING |
EmPmR(i,j,bi,bj)= 0. _d 0 |
|
./pkg/ctrl/ctrl_map_forcing.F |
246 |
CTRL_MAP_FORCING |
_EXCH_XY_RS(EmPmR, myThid ) |
|
./pkg/ebm/ebm_atmosphere.F |
284 |
EBM_ATMOSPHERE |
EmPmR(i,j,bi,bj) = -1. _d -3*Fw35(no_so) |
|
./pkg/ebm/ebm_atmosphere.F |
305 |
EBM_ATMOSPHERE |
EmPmR(i,j,bi,bj) = -1. _d -3*(Fw35(no_so)* |
|
./pkg/ebm/ebm_atmosphere.F |
316 |
EBM_ATMOSPHERE |
EmPmR(i,j,bi,bj) = -1. _d -3*(Fw35(no_so)* |
|
./pkg/ebm/ebm_atmosphere.F |
327 |
EBM_ATMOSPHERE |
EmPmR(i,j,bi,bj) = -1. _d -3*(Fw35(no_so) |
|
./pkg/ebm/ebm_atmosphere.F |
339 |
EBM_ATMOSPHERE |
EmPmR(i,j,bi,bj) = EmPmR(i,j,bi,bj)*rhoConstFresh |
|
./pkg/ebm/ebm_atmosphere.F |
346 |
EBM_ATMOSPHERE |
_EXCH_XY_RS(EmPmR , myThid ) |
|
./pkg/ebm/ebm_forcing_surf.F |
81 |
EBM_FORCING_SURF |
& EmPmR(i,j,bi,bj)*convertFW2Salt*mass2rUnit |
|
./model/inc/FFIELDS.h |
104 |
NO PROCEDURE |
_RS EmPmR (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./model/inc/FFIELDS.h |
90 |
NO PROCEDURE |
COMMON /FFIELDS_EmPmR/ EmPmR |
|
./pkg/exf/exf_mapfields.F |
116 |
EXF_MAPFIELDS |
EmPmR(i,j,bi,bj)= exf_outscal_sflux*sflux(i,j,bi,bj) |
|
./pkg/exf/exf_mapfields.F |
123 |
EXF_MAPFIELDS |
EmPmR(i,j,bi,bj) = EmPmR(i,j,bi,bj) - rhoConstFresh* |