| File |
Line number |
Procedure |
Code |
|
./model/inc/FFIELDS.h |
100 |
NO PROCEDURE |
COMMON /FFIELDS_pLoad/ pLoad |
|
./model/inc/FFIELDS.h |
114 |
NO PROCEDURE |
_RS pLoad (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/exf/exf_mapfields.F |
326 |
EXF_MAPFIELDS |
pLoad(i,j,bi,bj)=exf_outscal_apressure*apressure(i,j,bi,bj) |
|
./pkg/exf/exf_mapfields.F |
377 |
EXF_MAPFIELDS |
_EXCH_XY_RS( pLoad, myThid ) |
|
./model/src/diags_oceanic_surf_flux.F |
96 |
DIAGS_OCEANIC_SURF_FLUX |
CALL DIAGNOSTICS_FILL_RS( pLoad, 'atmPload',0,1,0,1,1,myThid ) |
|
./pkg/ocn_compon_interf/ocn_apply_import.F |
140 |
OCN_APPLY_IMPORT |
phi0surf(i,j,bi,bj) = pLoad(i,j,bi,bj)*recip_rhoConst |
|
./pkg/ocn_compon_interf/ocn_apply_import.F |
172 |
OCN_APPLY_IMPORT |
& _EXCH_XY_RS( pLoad, myThid ) |
|
./pkg/ocn_compon_interf/ocn_apply_import.F |
180 |
OCN_APPLY_IMPORT |
& _EXCH_XY_RS( pLoad, myThid ) |
|
./pkg/ocn_compon_interf/ocn_apply_import.F |
69 |
OCN_APPLY_IMPORT |
pLoad(i,j,bi,bj) = atmSLPr(i,j,bi,bj) |
|
./model/src/external_fields_load.F |
313 |
EXTERNAL_FIELDS_LOAD |
pLoad(i,j,bi,bj) = bWght*pLoad0(i,j,bi,bj) |
|
./model/src/external_forcing_surf.F |
362 |
EXTERNAL_FORCING_SURF |
phi0surf(i,j,bi,bj) = ( pLoad(i,j,bi,bj) |
|
./model/src/external_forcing_surf.F |
370 |
EXTERNAL_FORCING_SURF |
phi0surf(i,j,bi,bj) = pLoad(i,j,bi,bj)*recip_rhoConst |
|
./model/src/ini_ffields.F |
57 |
INI_FFIELDS |
pLoad (i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_forcing.F |
132 |
INI_FORCING |
CALL READ_FLD_XY_RS( pLoadFile, ' ', pLoad, 0, myThid ) |
|
./model/src/ini_forcing.F |
165 |
INI_FORCING |
CALL EXCH_XY_RS(pLoad , myThid ) |
|
./model/src/ini_forcing.F |
183 |
INI_FORCING |
phi0surf(i,j,bi,bj) = pLoad(i,j,bi,bj) |
|
./verification/tutorial_global_oce_optim/code_ad/FFIELDS.h |
100 |
NO PROCEDURE |
COMMON /FFIELDS_pLoad/ pLoad |
|
./verification/tutorial_global_oce_optim/code_ad/FFIELDS.h |
114 |
NO PROCEDURE |
_RS pLoad (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
365 |
EXTERNAL_FORCING_SURF |
phi0surf(i,j,bi,bj) = ( pLoad(i,j,bi,bj) |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
373 |
EXTERNAL_FORCING_SURF |
phi0surf(i,j,bi,bj) = pLoad(i,j,bi,bj)*recip_rhoConst |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
184 |
INI_FORCING |
CALL READ_FLD_XY_RS( pLoadFile, ' ', pLoad, 0, myThid ) |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
200 |
INI_FORCING |
CALL EXCH_XY_RS(pLoad , myThid ) |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
57 |
INI_FORCING |
pLoad (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_oad/FFIELDS.h |
100 |
NO PROCEDURE |
COMMON /FFIELDS_pLoad/ pLoad |
|
./verification/tutorial_global_oce_optim/code_oad/FFIELDS.h |
114 |
NO PROCEDURE |
_RS pLoad (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F |
365 |
EXTERNAL_FORCING_SURF |
phi0surf(i,j,bi,bj) = ( pLoad(i,j,bi,bj) |
|
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F |
373 |
EXTERNAL_FORCING_SURF |
phi0surf(i,j,bi,bj) = pLoad(i,j,bi,bj)*recip_rhoConst |
|
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F |
184 |
INI_FORCING |
CALL READ_FLD_XY_RS( pLoadFile, ' ', pLoad, 0, myThid ) |
|
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F |
200 |
INI_FORCING |
CALL EXCH_XY_RS(pLoad , myThid ) |
|
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F |
57 |
INI_FORCING |
pLoad (i,j,bi,bj) = 0. _d 0 |
|
./pkg/atm2d/put_ocnvars.F |
74 |
PUT_OCNVARS |
pLoad(i,j,1,1)= pass_slp(i,j) |
|
./pkg/atm2d/put_ocnvars.F |
91 |
PUT_OCNVARS |
_EXCH_XY_RS(pLoad, myThid ) |
|
./pkg/ctrl/ctrl_map_forcing.F |
351 |
CTRL_MAP_FORCING |
if (xx_gentim2d_file(iarr)(1:8).EQ.'xx_pload') pLoad |
|
./pkg/ctrl/ctrl_map_forcing.F |
352 |
CTRL_MAP_FORCING |
& (i,j,bi,bj)=pLoad(i,j,bi,bj)+xx_gentim2d(i,j,bi,bj,iarr) |
|
./pkg/ctrl/ctrl_map_forcing.F |
370 |
CTRL_MAP_FORCING |
CALL EXCH_XY_RS( pLoad , myThid ) |
|
./pkg/dic/dic_surfforcing.F |
140 |
DIC_SURFFORCING |
AtmosP(i,j,bi,bj)= 1. _d 0 + pLoad(i,j,bi,bj)/Pa2Atm |