| File |
Line number |
Procedure |
Code |
|
./model/inc/FFIELDS.h |
107 |
NO PROCEDURE |
_RS EmPmR (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./model/inc/FFIELDS.h |
93 |
NO PROCEDURE |
COMMON /FFIELDS_EmPmR/ EmPmR |
|
./pkg/exf/exf_mapfields.F |
127 |
EXF_MAPFIELDS |
EmPmR(i,j,bi,bj)= exf_outscal_sflux*sflux(i,j,bi,bj) |
|
./pkg/exf/exf_mapfields.F |
134 |
EXF_MAPFIELDS |
EmPmR(i,j,bi,bj) = EmPmR(i,j,bi,bj) - rhoConstFresh* |
|
./pkg/exf/exf_mapfields.F |
363 |
EXF_MAPFIELDS |
_EXCH_XY_RS( EmPmR, myThid ) |
|
./pkg/longstep/longstep_average.F |
104 |
LONGSTEP_AVERAGE |
CALL LONGSTEP_FILL_3D_RS(LS_fwFluxCount,LS_fwFlux,EmPmR,1,myThid) |
|
./pkg/monitor/monitor.F |
143 |
MONITOR |
CALL MON_WRITESTATS_RS( 1, EmPmR,'_empmr', |
|
./model/src/diags_oceanic_surf_flux.F |
63 |
DIAGS_OCEANIC_SURF_FLUX |
CALL DIAGNOSTICS_SCALE_FILL_RS( EmPmR,tmpFac,1, |
|
./pkg/ocn_compon_interf/ocn_apply_import.F |
155 |
OCN_APPLY_IMPORT |
EmPmR(i,j,bi,bj) = FWFlux (i,j,bi,bj) |
|
./pkg/ocn_compon_interf/ocn_apply_import.F |
183 |
OCN_APPLY_IMPORT |
IF ( useImportFW ) _EXCH_XY_RS( EmPmR, myThid ) |
|
./pkg/ocn_compon_interf/ocn_apply_import.F |
85 |
OCN_APPLY_IMPORT |
EmPmR(i,j,bi,bj) = FWFlux (i,j,bi,bj) |
|
./pkg/ptracers/ptracers_forcing_surf.F |
164 |
PTRACERS_FORCING_SURF |
& + ( EmPmR(i,j,bi,bj) + add2EmP(i,j) ) |
|
./pkg/ptracers/ptracers_forcing_surf.F |
186 |
PTRACERS_FORCING_SURF |
& + ( EmPmR(i,j,bi,bj) + add2EmP(i,j) ) |
|
./model/src/external_fields_load.F |
286 |
EXTERNAL_FIELDS_LOAD |
EmPmR(i,j,bi,bj) = bWght*EmPmR0(i,j,bi,bj) |
|
./model/src/external_fields_load.F |
333 |
EXTERNAL_FIELDS_LOAD |
& Qnet(1,sNy,1,1), EmPmR(1,sNy,1,1) |
|
./model/src/external_forcing_surf.F |
103 |
EXTERNAL_FORCING_SURF |
CALL RESET_HALO_RS ( EmPmR, fixVal, 1, myThid ) |
|
./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 |
296 |
EXTERNAL_FORCING_SURF |
& + EmPmR(i,j,bi,bj) |
|
./model/src/external_forcing_surf.F |
307 |
EXTERNAL_FORCING_SURF |
& + EmPmR(i,j,bi,bj) |
|
./model/src/external_forcing_surf.F |
322 |
EXTERNAL_FORCING_SURF |
& + EmPmR(i,j,bi,bj) |
|
./model/src/external_forcing_surf.F |
333 |
EXTERNAL_FORCING_SURF |
& + EmPmR(i,j,bi,bj) |
|
./model/src/external_forcing_surf.F |
88 |
EXTERNAL_FORCING_SURF |
CALL REMOVE_MEAN_RS( 1, EmPmR, maskInC, maskInC, rA, tmpVar, |
|
./pkg/seaice/seaice_fake.F |
62 |
SEAICE_FAKE |
EmPmR(i,j,bi,bj) = maskC(i,j,1,bi,bj)*( |
|
./pkg/seaice/seaice_growth.F |
2374 |
SEAICE_GROWTH |
EmPmR(I,J,bi,bj) = maskC(I,J,kSurface,bi,bj)*( |
|
./pkg/seaice/seaice_growth.F |
2442 |
SEAICE_GROWTH |
CALL PLOT_FIELD_XYRL( EmPmR,'Current EmPmR ', myIter, myThid ) |
|
./pkg/seaice/seaice_model.F |
240 |
SEAICE_MODEL |
_EXCH_XY_RS(EmPmR, myThid ) |
|
./pkg/seaice/seaice_model.F |
282 |
SEAICE_MODEL |
CALL DIAGNOSTICS_FILL_RS(EmPmR,'SIempmr ',0,1 ,0,1,1,myThid) |
|
./pkg/seaice/seaice_output.F |
118 |
SEAICE_OUTPUT |
CALL MNC_CW_RS_W(pf,'sice',0,0,'EmPmR',EmPmR,myThid) |
|
./pkg/seaice/seaice_output.F |
136 |
SEAICE_OUTPUT |
CALL WRITE_FLD_XY_RS('EmPmR.',suff,EmPmR,myIter,myThid) |
|
./pkg/seaice/seaice_output.F |
201 |
SEAICE_OUTPUT |
& EmPmRtave(i,j,bi,bj)+EmPmR(i,j,bi,bj) *deltaTClock |
|
./pkg/shelfice/shelfice_forcing_surf.F |
103 |
SHELFICE_FORCING_SURF |
EmPmR(i,j,bi,bj) = EmPmR(i,j,bi,bj) |
|
./pkg/shelfice/shelfice_forcing_surf.F |
118 |
SHELFICE_FORCING_SURF |
PmEpR(i,j,bi,bj) = -EmPmR(i,j,bi,bj) |
|
./pkg/shelfice/shelfice_forcing_surf.F |
62 |
SHELFICE_FORCING_SURF |
EmPmR(i,j,bi,bj) = 0. |
|
./model/src/ini_ffields.F |
52 |
INI_FFIELDS |
EmPmR (i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_forcing.F |
155 |
INI_FORCING |
CALL EXCH_XY_RS( EmPmR, myThid ) |
|
./model/src/ini_forcing.F |
82 |
INI_FORCING |
CALL READ_FLD_XY_RS( EmPmRfile, ' ', EmPmR, 0, myThid ) |
|
./model/src/ini_forcing.F |
89 |
INI_FORCING |
EmPmR(i,j,bi,bj) = EmPmR(i,j,bi,bj)*rhoConstFresh |
|
./pkg/thsice/thsice_ave.F |
101 |
THSICE_AVE |
CALL TIMEAVE_CUMULATE( ice_frw2oc_Ave, EmPmR, |
|
./pkg/thsice/thsice_ave.F |
137 |
THSICE_AVE |
CALL DIAGNOSTICS_FILL_RS(EmPmR, 'SIfrw2oc',0,1,1,bi,bj,myThid) |
|
./pkg/thsice/thsice_balance_frw.F |
103 |
THSICE_BALANCE_FRW |
EmPmR(i,j,bi,bj) = EmPmR(i,j,bi,bj) |
|
./pkg/thsice/thsice_balance_frw.F |
128 |
THSICE_BALANCE_FRW |
EmPmR(i,j,bi,bj) = EmPmR(i,j,bi,bj) - tmpVar |
|
./pkg/thsice/thsice_do_advect.F |
111 |
THSICE_DO_ADVECT |
EmPmR(i,j,bi,bj)= EmPmR(i,j,bi,bj)- oceFWfx(i,j,bi,bj) |
|
./pkg/thsice/thsice_slab_ocean.F |
84 |
THSICE_SLAB_OCEAN |
& + (fwFac*EmPmR(i,j,bi,bj) - dtFac*saltFlux(i,j,bi,bj)) |
|
./pkg/thsice/thsice_step_fwd.F |
291 |
THSICE_STEP_FWD |
& + opFrac*EmPmR(i,j,bi,bj) |
|
./pkg/thsice/thsice_step_fwd.F |
293 |
THSICE_STEP_FWD |
EmPmR(i,j,bi,bj)= -icFrac*frw2oc(i,j) |
|
./pkg/thsice/thsice_step_fwd.F |
294 |
THSICE_STEP_FWD |
& + opFrac*EmPmR(i,j,bi,bj) |
|
./pkg/thsice/thsice_step_fwd.F |
311 |
THSICE_STEP_FWD |
icFrwAtm(i,j,bi,bj) = EmPmR(i,j,bi,bj) |
|
./pkg/thsice/thsice_step_fwd.F |
355 |
THSICE_STEP_FWD |
EmPmR(i,j,bi,bj)= EmPmR(i,j,bi,bj)- frw2oc(i,j) |
|
./pkg/thsice/thsice_step_fwd.F |
433 |
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/integr_continuity.F |
172 |
INTEGR_CONTINUITY |
PmEpR(i,j,bi,bj) = -EmPmR(i,j,bi,bj) |
|
./model/src/integr_continuity.F |
180 |
INTEGR_CONTINUITY |
& -facEmP*EmPmR(i,j,bi,bj) |
|
./model/src/pre_cg3d.F |
101 |
PRE_CG3D |
& + tmpFac*_rA(i,j,bi,bj)*EmPmR(i,j,bi,bj) |
|
./model/src/pre_cg3d.F |
109 |
PRE_CG3D |
& + EmPmR(i,j,bi,bj)*mass2rUnit |
|
./model/src/solve_for_pressure.F |
141 |
SOLVE_FOR_PRESSURE |
& tmpFac*_rA(i,j,bi,bj)*EmPmR(i,j,bi,bj)/deltaTMom |
|
./model/src/solve_for_pressure.F |
151 |
SOLVE_FOR_PRESSURE |
& + rA(i,j,bi,bj)*EmPmR(i,j,bi,bj) |
|
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F |
167 |
PTRACERS_FORCING_SURF |
& + ( EmPmR(i,j,bi,bj) + add2EmP(i,j) ) |
|
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F |
189 |
PTRACERS_FORCING_SURF |
& + ( EmPmR(i,j,bi,bj) + add2EmP(i,j) ) |
|
./verification/tutorial_global_oce_optim/code_ad/FFIELDS.h |
107 |
NO PROCEDURE |
_RS EmPmR (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./verification/tutorial_global_oce_optim/code_ad/FFIELDS.h |
93 |
NO PROCEDURE |
COMMON /FFIELDS_EmPmR/ EmPmR |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
106 |
EXTERNAL_FORCING_SURF |
CALL RESET_HALO_RS ( EmPmR, fixVal, 1, myThid ) |
|
./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 |
299 |
EXTERNAL_FORCING_SURF |
& + EmPmR(i,j,bi,bj) |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
310 |
EXTERNAL_FORCING_SURF |
& + EmPmR(i,j,bi,bj) |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
325 |
EXTERNAL_FORCING_SURF |
& + EmPmR(i,j,bi,bj) |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
336 |
EXTERNAL_FORCING_SURF |
& + EmPmR(i,j,bi,bj) |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
91 |
EXTERNAL_FORCING_SURF |
CALL REMOVE_MEAN_RS( 1, EmPmR, maskInC, maskInC, rA, tmpVar, |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
132 |
INI_FORCING |
CALL READ_FLD_XY_RS( EmPmRfile, ' ', EmPmR, 0, myThid ) |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
140 |
INI_FORCING |
EmPmR(i,j,bi,bj) = EmPmR(i,j,bi,bj)*rhoConstFresh |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
190 |
INI_FORCING |
CALL EXCH_XY_RS( EmPmR, myThid ) |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
52 |
INI_FORCING |
EmPmR (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_oad/FFIELDS.h |
107 |
NO PROCEDURE |
_RS EmPmR (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./verification/tutorial_global_oce_optim/code_oad/FFIELDS.h |
93 |
NO PROCEDURE |
COMMON /FFIELDS_EmPmR/ EmPmR |
|
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F |
106 |
EXTERNAL_FORCING_SURF |
CALL RESET_HALO_RS ( EmPmR, fixVal, 1, myThid ) |
|
./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 |
299 |
EXTERNAL_FORCING_SURF |
& + EmPmR(i,j,bi,bj) |
|
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F |
310 |
EXTERNAL_FORCING_SURF |
& + EmPmR(i,j,bi,bj) |
|
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F |
325 |
EXTERNAL_FORCING_SURF |
& + EmPmR(i,j,bi,bj) |
|
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F |
336 |
EXTERNAL_FORCING_SURF |
& + EmPmR(i,j,bi,bj) |
|
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F |
91 |
EXTERNAL_FORCING_SURF |
CALL REMOVE_MEAN_RS( 1, EmPmR, maskInC, maskInC, rA, tmpVar, |
|
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F |
132 |
INI_FORCING |
CALL READ_FLD_XY_RS( EmPmRfile, ' ', EmPmR, 0, myThid ) |
|
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F |
140 |
INI_FORCING |
EmPmR(i,j,bi,bj) = EmPmR(i,j,bi,bj)*rhoConstFresh |
|
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F |
190 |
INI_FORCING |
CALL EXCH_XY_RS( EmPmR, myThid ) |
|
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F |
52 |
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) ) |
|
./verification/tutorial_tracer_adjsens/code_oad/ptracers_forcing_surf.F |
160 |
PTRACERS_FORCING_SURF |
& + ( EmPmR(i,j,bi,bj) + add2EmP(i,j) ) |
|
./verification/tutorial_tracer_adjsens/code_oad/ptracers_forcing_surf.F |
181 |
PTRACERS_FORCING_SURF |
& + ( EmPmR(i,j,bi,bj) + add2EmP(i,j) ) |
|
./pkg/aim_v23/aim_aim2sioce.F |
106 |
AIM_AIM2SIOCE |
EmPmR(i,j,bi,bj)= 0. _d 0 |
|
./pkg/aim_v23/aim_aim2sioce.F |
125 |
AIM_AIM2SIOCE |
EmPmR(i,j,bi,bj) = ( EVAP(I2,2,myThid) |
|
./pkg/aim_v23/aim_aim2sioce.F |
202 |
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/atm_compon_interf/atm_store_surfflux.F |
81 |
ATM_STORE_SURFFLUX |
& + EmPmR(i,j,bi,bj)*cplTimeFraction |
|
./pkg/atm_phys/atm_phys_driver.F |
194 |
ATM_PHYS_DRIVER |
EmPmR(:,:,bi,bj) = 0. |
|
./pkg/atm_phys/atm_phys_driver.F |
224 |
ATM_PHYS_DRIVER |
EmPmR(1:sNx,1:sNy,bi,bj) = -rain2d(:,:) |
|
./pkg/atm_phys/atm_phys_driver.F |
271 |
ATM_PHYS_DRIVER |
EmPmR(1:sNx,1:sNy,bi,bj) = EmPmR(1:sNx,1:sNy,bi,bj) |
|
./pkg/atm_phys/atm_phys_driver.F |
430 |
ATM_PHYS_DRIVER |
EmPmR(1:sNx,1:sNy,bi,bj) = EmPmR(1:sNx,1:sNy,bi,bj) |
|
./pkg/autodiff/addummy_in_stepping.F |
481 |
ADDUMMY_IN_STEPPING |
foo2D = EmPmRd |
|
./pkg/autodiff/addummy_in_stepping.F |
564 |
ADDUMMY_IN_STEPPING |
foo2D = EmPmRd |
|
./pkg/autodiff/addummy_in_stepping.F |
670 |
ADDUMMY_IN_STEPPING |
CALL COPY_ADVAR_OUTP( EmPmRd,dumRL, var2Du, 1, 11, myThid ) |
|
./pkg/autodiff/autodiff_init_varia.F |
74 |
AUTODIFF_INIT_VARIA |
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/cheapaml/cheapaml.F |
122 |
CHEAPAML |
EmPmR(i,j,bi,bj)= 0. _d 0 |
|
./pkg/cheapaml/cheapaml.F |
373 |
CHEAPAML |
EmPmR(i,j,bi,bj) = evp_0 |
|
./pkg/cheapaml/cheapaml.F |
407 |
CHEAPAML |
EmPmR(i,j,bi,bj) = evp(i,j) |
|
./pkg/cheapaml/cheapaml.F |
505 |
CHEAPAML |
EmPmR(i,j,bi,bj) = ( EmPmR(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml.F |
576 |
CHEAPAML |
_EXCH_XY_RS(EmPmR,myThid) |
|
./pkg/cheapaml/cheapaml.F |
728 |
CHEAPAML |
CALL DIAGNOSTICS_FILL_RS( EmPmR, 'CH_EmP ', 0,1,0,1,1,myThid) |
|
./pkg/ctrl/ctrl_map_forcing.F |
278 |
CTRL_MAP_FORCING |
_EXCH_XY_RS(EmPmR, myThid ) |
|
./pkg/ctrl/ctrl_map_forcing.F |
343 |
CTRL_MAP_FORCING |
if (xx_gentim2d_file(iarr)(1:8).EQ.'xx_empmr') EmPmR |
|
./pkg/ctrl/ctrl_map_forcing.F |
344 |
CTRL_MAP_FORCING |
& (i,j,bi,bj)=EmPmR(i,j,bi,bj)+xx_gentim2d(i,j,bi,bj,iarr) |
|
./pkg/ctrl/ctrl_map_forcing.F |
366 |
CTRL_MAP_FORCING |
CALL EXCH_XY_RS( EmPmR , myThid ) |
|
./pkg/ebm/ebm_atmosphere.F |
306 |
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 |
338 |
EBM_ATMOSPHERE |
EmPmR(i,j,bi,bj) = -1. _d -3*(Fw35(no_so)* |
|
./pkg/ebm/ebm_atmosphere.F |
349 |
EBM_ATMOSPHERE |
EmPmR(i,j,bi,bj) = -1. _d -3*(Fw35(no_so) |
|
./pkg/ebm/ebm_atmosphere.F |
361 |
EBM_ATMOSPHERE |
EmPmR(i,j,bi,bj) = EmPmR(i,j,bi,bj) |
|
./pkg/ebm/ebm_atmosphere.F |
363 |
EBM_ATMOSPHERE |
EmPmR(i,j,bi,bj) = EmPmR(i,j,bi,bj)*rhoConstFresh |
|
./pkg/ebm/ebm_atmosphere.F |
370 |
EBM_ATMOSPHERE |
_EXCH_XY_RS(EmPmR , myThid ) |