| File |
Line number |
Procedure |
Code |
|
./pkg/ebm/ebm_atmosphere.F |
285 |
EBM_ATMOSPHERE |
EmPmR(i,j,bi,bj) = -1.e-3*Fw35(no_so) |
|
./pkg/ebm/ebm_atmosphere.F |
306 |
EBM_ATMOSPHERE |
EmPmR(i,j,bi,bj) = -1.e-3*(Fw35(no_so)* |
|
./pkg/ebm/ebm_atmosphere.F |
317 |
EBM_ATMOSPHERE |
EmPmR(i,j,bi,bj) = -1.e-3*(Fw35(no_so)* |
|
./pkg/ebm/ebm_atmosphere.F |
328 |
EBM_ATMOSPHERE |
EmPmR(i,j,bi,bj) = -1.e-3*(Fw35(no_so) |
|
./pkg/ebm/ebm_atmosphere.F |
346 |
EBM_ATMOSPHERE |
_EXCH_XY_R4(EmPmR , myThid ) |
|
./pkg/ebm/ebm_forcing_surf.F |
83 |
EBM_FORCING_SURF |
& EmPmR(i,j,bi,bj)*convertFW2Salt*convertEmP2rUnit |
|
./model/inc/FFIELDS.h |
104 |
NO PROCEDURE |
_RS EmPmR (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./model/inc/FFIELDS.h |
88 |
NO PROCEDURE |
& , EmPmR |
|
./pkg/aim_v23/aim_aim2sioce.F |
110 |
AIM_AIM2SIOCE |
EmPmR(i,j,bi,bj)= 0. _d 0 |
|
./pkg/aim_v23/aim_aim2sioce.F |
129 |
AIM_AIM2SIOCE |
EmPmR(i,j,bi,bj) = ( EVAP(I2,2,myThid) |
|
./pkg/aim_v23/aim_aim2sioce.F |
205 |
AIM_AIM2SIOCE |
EmPmR(i,j,bi,bj) = EmPmR(i,j,bi,bj)*opFrac |
|
./pkg/autodiff/ini_autodiff.F |
69 |
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 |
189 |
BULKF_FORCING |
EmPmR(i,j,bi,bj) = (evap(i,j,bi,bj)-rain(i,j,bi,bj) |
|
./pkg/bulk_force/bulkf_forcing.F |
197 |
BULKF_FORCING |
EmPmR(i,j,bi,bj)= 0. _d 0 |
|
./model/src/integr_continuity.F |
137 |
INTEGR_CONTINUITY |
PmEpR(i,j,bi,bj) = -EmPmR(i,j,bi,bj) |
|
./model/src/integr_continuity.F |
139 |
INTEGR_CONTINUITY |
& -facEmP*EmPmR(i,j,bi,bj) |
|
./verification/OpenAD/code/FFIELDS.h |
102 |
NO PROCEDURE |
_RS EmPmR (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./verification/OpenAD/code/FFIELDS.h |
89 |
NO PROCEDURE |
& , EmPmR |
|
./verification/natl_box/code/external_fields_load.F |
218 |
EXTERNAL_FIELDS_LOAD |
EmPmR(i,j,bi,bj) = bWght*EmPmR0(i,j,bi,bj) |
|
./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 |
359 |
EXTERNAL_FIELDS_LOAD |
& Qnet(1,sNy,1,1),EmPmR(1,sNy,1,1), |
|
./model/src/external_forcing_surf.F |
198 |
EXTERNAL_FORCING_SURF |
EmPmR(i,j,bi,bj) = EmPmR(i,j,bi,bj)*maskH(i,j,bi,bj) |
|
./model/src/external_forcing_surf.F |
209 |
EXTERNAL_FORCING_SURF |
PmEpR(i,j,bi,bj) = -EmPmR(i,j,bi,bj) |
|
./model/src/external_forcing_surf.F |
258 |
EXTERNAL_FORCING_SURF |
& + EmPmR(i,j,bi,bj)*salt(i,j,ks,bi,bj) |
|
./model/src/external_forcing_surf.F |
267 |
EXTERNAL_FORCING_SURF |
& + EmPmR(i,j,bi,bj)*convertFW2Salt |
|
./model/src/solve_for_pressure.F |
134 |
SOLVE_FOR_PRESSURE |
& tmpFac*_rA(i,j,bi,bj)*EmPmR(i,j,bi,bj)/deltaTMom |
|
./model/src/solve_for_pressure.F |
142 |
SOLVE_FOR_PRESSURE |
tileEmP = tileEmP + rA(i,j,bi,bj)*EmPmR(i,j,bi,bj) |
|
./model/src/ini_forcing.F |
128 |
INI_FORCING |
CALL READ_FLD_XY_RS( EmPmRfile, ' ', EmPmR, 0, myThid ) |
|
./model/src/ini_forcing.F |
175 |
INI_FORCING |
_EXCH_XY_R4(EmPmR, myThid ) |
|
./model/src/ini_forcing.F |
50 |
INI_FORCING |
EmPmR (i,j,bi,bj) = 0. _d 0 |
|
./model/src/do_oceanic_phys.F |
216 |
DO_OCEANIC_PHYS |
& CALL REMOVE_MEAN_RS( 1, EmPmR, maskH, maskH, rA, drF, |
|
./pkg/aim_compon_interf/atm_store_evmpr.F |
58 |
ATM_STORE_EVMPR |
& + EmPmR(i,j,bi,bj)*cplTimeFraction |
|
./pkg/ocn_compon_interf/ocn_apply_import.F |
145 |
OCN_APPLY_IMPORT |
EmPmR(i,j,bi,bj) = FWFlux (i,j,bi,bj) |
|
./pkg/ocn_compon_interf/ocn_apply_import.F |
167 |
OCN_APPLY_IMPORT |
IF ( useImportFW ) _EXCH_XY_R4(EmPmR, myThid ) |
|
./pkg/ocn_compon_interf/ocn_apply_import.F |
87 |
OCN_APPLY_IMPORT |
EmPmR(i,j,bi,bj) = FWFlux (i,j,bi,bj) |
|
./pkg/ctrl/ctrl_map_forcing.F |
195 |
CTRL_MAP_FORCING |
_EXCH_XY_R4(EmPmR, myThid ) |
|
./pkg/thsice/thsice_ave.F |
102 |
THSICE_AVE |
CALL TIMEAVE_CUMULATE(ice_frw2oc_Ave, EmPmR, |
|
./pkg/thsice/thsice_ave.F |
145 |
THSICE_AVE |
CALL DIAGNOSTICS_FILL(EmPmR, 'SIfrw2oc',0,1,1,bi,bj,myThid) |
|
./pkg/thsice/thsice_slab_ocean.F |
73 |
THSICE_SLAB_OCEAN |
& + (fwFac*EmPmR(i,j,bi,bj) - dtFac*saltFlux(i,j,bi,bj)) |
|
./pkg/thsice/thsice_step_fwd.F |
210 |
THSICE_STEP_FWD |
& + opFrac*rhofw*EmPmR(i,j,bi,bj) |
|
./pkg/thsice/thsice_step_fwd.F |
212 |
THSICE_STEP_FWD |
EmPmR(i,j,bi,bj)= -icFrac*frw2oc(i,j)/rhofw |
|
./pkg/thsice/thsice_step_fwd.F |
213 |
THSICE_STEP_FWD |
& + opFrac*EmPmR(i,j,bi,bj) |
|
./pkg/thsice/thsice_step_fwd.F |
225 |
THSICE_STEP_FWD |
icFrwAtm(i,j,bi,bj) = rhofw*EmPmR(i,j,bi,bj) |
|
./pkg/thsice/thsice_step_fwd.F |
254 |
THSICE_STEP_FWD |
EmPmR(i,j,bi,bj)= EmPmR(i,j,bi,bj)- frw2oc(i,j)/rhofw |
|
./pkg/seaice/seaice_do_diags.F |
117 |
SEAICE_DO_DIAGS |
CALL PLOT_FIELD_XYRL( EmPmR , 'Current EmPmR ', myIter, myThid ) |
|
./pkg/seaice/seaice_do_diags.F |
250 |
SEAICE_DO_DIAGS |
& EmPmRtave(i,j,1,bi,bj)+EmPmR(i,j,bi,bj) *deltaTclock |
|
./pkg/seaice/seaice_do_diags.F |
73 |
SEAICE_DO_DIAGS |
CALL MNC_CW_RS_W(pf,'sice',0,0,'EmPmR',EmPmR,myThid) |
|
./pkg/seaice/seaice_do_diags.F |
86 |
SEAICE_DO_DIAGS |
CALL WRITE_FLD_XY_RS( 'EmPmR.',suff,EmPmR,myIter,myThid) |
|
./pkg/seaice/growth.F |
296 |
GROWTH |
EmPmR(I,J,bi,bj)= maskC(I,J,kSurface,bi,bj)*( |
|
./pkg/seaice/growth.F |
312 |
GROWTH |
CALL PLOT_FIELD_XYRL( EmPmR,'Current EmPmR ', myIter, myThid ) |
|
./pkg/seaice/seaice_model.F |
147 |
SEAICE_MODEL |
_EXCH_XY_R4(EmPmR, myThid ) |