| File |
Line number |
Procedure |
Code |
|
./pkg/ecco/ecco_cost_weights.F |
648 |
ECCO_COST_WEIGHTS |
if ( xC(i,j,bi,bj) .GT. 120. .AND. |
|
./pkg/ecco/ecco_cost_weights.F |
649 |
ECCO_COST_WEIGHTS |
& xC(i,j,bi,bj) .LT. 130. .AND. |
|
./pkg/ecco/ecco_cost_weights.F |
762 |
ECCO_COST_WEIGHTS |
if ( xC(i,j,bi,bj) .GT. 120. .AND. |
|
./pkg/ecco/ecco_cost_weights.F |
763 |
ECCO_COST_WEIGHTS |
& xC(i,j,bi,bj) .LT. 130. .AND. |
|
./model/inc/GRID.h |
422 |
NO PROCEDURE |
& xC,yC,rA,rAw,rAs,rAz,xG,yG, |
|
./model/inc/GRID.h |
461 |
NO PROCEDURE |
_RS xC (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/exf/exf_getclim.F |
123 |
EXF_GETCLIM |
I climsss_nlon, climsss_nlat, xC, yC, climsss_interpMethod, |
|
./pkg/exf/exf_getclim.F |
83 |
EXF_GETCLIM |
I climsst_nlon, climsst_nlat, xC, yC, climsst_interpMethod, |
|
./pkg/exf/exf_getffields.F |
119 |
EXF_GETFFIELDS |
I wspeed_nlon, wspeed_nlat, xC, yC, wspeed_interpMethod, |
|
./pkg/exf/exf_getffields.F |
182 |
EXF_GETFFIELDS |
I hflux_nlon, hflux_nlat, xC, yC, hflux_interpMethod, |
|
./pkg/exf/exf_getffields.F |
195 |
EXF_GETFFIELDS |
I sflux_nlon, sflux_nlat, xC, yC, sflux_interpMethod, |
|
./pkg/exf/exf_getffields.F |
210 |
EXF_GETFFIELDS |
I atemp_nlon, atemp_nlat, xC, yC, atemp_interpMethod, |
|
./pkg/exf/exf_getffields.F |
232 |
EXF_GETFFIELDS |
I aqh_nlon, aqh_nlat, xC, yC, aqh_interpMethod, |
|
./pkg/exf/exf_getffields.F |
247 |
EXF_GETFFIELDS |
I hs_nlon, hs_nlat, xC, yC, hs_interpMethod, |
|
./pkg/exf/exf_getffields.F |
260 |
EXF_GETFFIELDS |
I hl_nlon, hl_nlat, xC, yC, hl_interpMethod, |
|
./pkg/exf/exf_getffields.F |
275 |
EXF_GETFFIELDS |
I lwflux_nlon, lwflux_nlat, xC, yC, lwflux_interpMethod, |
|
./pkg/exf/exf_getffields.F |
289 |
EXF_GETFFIELDS |
I evap_nlon, evap_nlat, xC, yC, evap_interpMethod, |
|
./pkg/exf/exf_getffields.F |
303 |
EXF_GETFFIELDS |
I precip_nlon, precip_nlat, xC, yC, precip_interpMethod, |
|
./pkg/exf/exf_getffields.F |
317 |
EXF_GETFFIELDS |
I snowprecip_nlon, snowprecip_nlat, xC, yC, |
|
./pkg/exf/exf_getffields.F |
347 |
EXF_GETFFIELDS |
I swflux_nlon, swflux_nlat, xC, yC, swflux_interpMethod, |
|
./pkg/exf/exf_getffields.F |
363 |
EXF_GETFFIELDS |
I swdown_nlon, swdown_nlat, xC, yC, swdown_interpMethod, |
|
./pkg/exf/exf_getffields.F |
376 |
EXF_GETFFIELDS |
I lwdown_nlon, lwdown_nlat, xC, yC, lwdown_interpMethod, |
|
./pkg/exf/exf_getffields.F |
393 |
EXF_GETFFIELDS |
I apressure_nlon,apressure_nlat,xC,yC, apressure_interpMethod, |
|
./pkg/exf/exf_getffields.F |
409 |
EXF_GETFFIELDS |
I tidePot_nlon, tidePot_nlat, xC, yC, tidePot_interpMethod, |
|
./pkg/exf/exf_getffields.F |
425 |
EXF_GETFFIELDS |
I areamask_nlon, areamask_nlat, xC, yC, areamask_interpMethod, |
|
./pkg/exf/exf_getffields.F |
440 |
EXF_GETFFIELDS |
I runoff_nlon, runoff_nlat, xC, yC, runoff_interpMethod, |
|
./pkg/exf/exf_getffields.F |
455 |
EXF_GETFFIELDS |
I runoff_nlon, runoff_nlat, xC, yC, runoff_interpMethod, |
|
./pkg/exf/exf_getffields.F |
471 |
EXF_GETFFIELDS |
I saltflx_nlon, saltflx_nlat, xC, yC, saltflx_interpMethod, |
|
./pkg/exf/exf_init_varia.F |
116 |
EXF_INIT_VARIA |
I uwind_nlon, uwind_nlat, xC, yC, uwind_interpMethod, |
|
./pkg/exf/exf_init_varia.F |
127 |
EXF_INIT_VARIA |
I vwind_nlon, vwind_nlat, xC, yC, vwind_interpMethod, |
|
./pkg/exf/exf_init_varia.F |
151 |
EXF_INIT_VARIA |
I wspeed_nlon, wspeed_nlat, xC, yC, wspeed_interpMethod, |
|
./pkg/exf/exf_init_varia.F |
162 |
EXF_INIT_VARIA |
I hflux_nlon, hflux_nlat, xC, yC, hflux_interpMethod, |
|
./pkg/exf/exf_init_varia.F |
173 |
EXF_INIT_VARIA |
I sflux_nlon, sflux_nlat, xC, yC, sflux_interpMethod, |
|
./pkg/exf/exf_init_varia.F |
186 |
EXF_INIT_VARIA |
I atemp_nlon, atemp_nlat, xC, yC, atemp_interpMethod, |
|
./pkg/exf/exf_init_varia.F |
197 |
EXF_INIT_VARIA |
I aqh_nlon, aqh_nlat, xC, yC, aqh_interpMethod, |
|
./pkg/exf/exf_init_varia.F |
210 |
EXF_INIT_VARIA |
I hs_nlon, hs_nlat, xC, yC, hs_interpMethod, |
|
./pkg/exf/exf_init_varia.F |
221 |
EXF_INIT_VARIA |
I hl_nlon, hl_nlat, xC, yC, hl_interpMethod, |
|
./pkg/exf/exf_init_varia.F |
234 |
EXF_INIT_VARIA |
I lwflux_nlon, lwflux_nlat, xC, yC, lwflux_interpMethod, |
|
./pkg/exf/exf_init_varia.F |
246 |
EXF_INIT_VARIA |
I evap_nlon, evap_nlat, xC, yC, evap_interpMethod, |
|
./pkg/exf/exf_init_varia.F |
258 |
EXF_INIT_VARIA |
I precip_nlon, precip_nlat, xC, yC, precip_interpMethod, |
|
./pkg/exf/exf_init_varia.F |
269 |
EXF_INIT_VARIA |
I snowprecip_nlon, snowprecip_nlat, xC, yC, |
|
./pkg/exf/exf_init_varia.F |
284 |
EXF_INIT_VARIA |
I swflux_nlon, swflux_nlat, xC, yC, swflux_interpMethod, |
|
./pkg/exf/exf_init_varia.F |
298 |
EXF_INIT_VARIA |
I swdown_nlon, swdown_nlat, xC, yC, swdown_interpMethod, |
|
./pkg/exf/exf_init_varia.F |
309 |
EXF_INIT_VARIA |
I lwdown_nlon, lwdown_nlat, xC, yC, lwdown_interpMethod, |
|
./pkg/exf/exf_init_varia.F |
323 |
EXF_INIT_VARIA |
I apressure_nlon, apressure_nlat, xC, yC, |
|
./pkg/exf/exf_init_varia.F |
337 |
EXF_INIT_VARIA |
I tidePot_nlon, tidePot_nlat, xC, yC, tidePot_interpMethod, |
|
./pkg/exf/exf_init_varia.F |
350 |
EXF_INIT_VARIA |
I areamask_nlon, areamask_nlat, xC, yC, areamask_interpMethod, |
|
./pkg/exf/exf_init_varia.F |
363 |
EXF_INIT_VARIA |
I runoff_nlon, runoff_nlat, xC, yC, runoff_interpMethod, |
|
./pkg/exf/exf_init_varia.F |
374 |
EXF_INIT_VARIA |
I runoff_nlon, runoff_nlat, xC, yC, runoff_interpMethod, |
|
./pkg/exf/exf_init_varia.F |
388 |
EXF_INIT_VARIA |
I saltflx_nlon, saltflx_nlat, xC, yC, saltflx_interpMethod, |
|
./pkg/exf/exf_init_varia.F |
401 |
EXF_INIT_VARIA |
I climsst_nlon, climsst_nlat, xC, yC, climsst_interpMethod, |
|
./pkg/exf/exf_init_varia.F |
414 |
EXF_INIT_VARIA |
I climsss_nlon, climsss_nlat, xC, yC, climsss_interpMethod, |
|
./pkg/exf/exf_init_varia.F |
427 |
EXF_INIT_VARIA |
I climustr_nlon, climustr_nlat, xC, yC, climustr_interpMethod, |
|
./pkg/exf/exf_init_varia.F |
438 |
EXF_INIT_VARIA |
I climvstr_nlon, climvstr_nlat, xC, yC, climvstr_interpMethod, |
|
./pkg/exf/exf_init_varia.F |
75 |
EXF_INIT_VARIA |
I ustress_nlon, ustress_nlat, xC, yC, ustress_interpMethod, |
|
./pkg/exf/exf_init_varia.F |
86 |
EXF_INIT_VARIA |
I vstress_nlon, vstress_nlat, xC, yC, vstress_interpMethod, |
|
./pkg/exf/exf_set_uv.F |
231 |
EXF_SET_UV |
I xC, yC, |
|
./pkg/exf/exf_set_uv.F |
242 |
EXF_SET_UV |
I count0, xC, yC, |
|
./pkg/exf/exf_set_uv.F |
253 |
EXF_SET_UV |
I count0, xC, yC, |
|
./pkg/exf/exf_set_uv.F |
396 |
EXF_SET_UV |
I xC, yC, |
|
./pkg/exf/exf_set_uv.F |
407 |
EXF_SET_UV |
I count1, xC, yC, |
|
./pkg/exf/exf_set_uv.F |
418 |
EXF_SET_UV |
I count1, xC, yC, |
|
./pkg/exf/exf_set_uv.F |
539 |
EXF_SET_UV |
I uVec_nlon, uVec_nlat, xC, yC, u_interp_method, |
|
./pkg/exf/exf_set_uv.F |
550 |
EXF_SET_UV |
I vVec_nlon, vVec_nlat, xC, yC, v_interp_method, |
|
./pkg/exf/exf_zenithangle.F |
202 |
EXF_ZENITHANGLE |
& COS( 2. _d 0 *PI* TDAY + xC(i,j,bi,bj) * deg2rad ) |
|
./pkg/exf/exf_zenithangle.F |
307 |
EXF_ZENITHANGLE |
& COS( 2. _d 0 *PI*TDAY + xC(i,j,bi,bj)*deg2rad ) |
|
./pkg/fizhi/fizhi_init_fixed.F |
89 |
FIZHI_INIT_FIXED |
lons(i,j,bi,bj) = xC(i,j,bi,bj) |
|
./pkg/fizhi/fizhi_wrapper.F |
265 |
FIZHI_WRAPPER |
& uphy,vphy,thphy,sphy,pephy4fiz,xC,yC,topoZ, |
|
./pkg/fizhi/update_earth_exports.F |
77 |
UPDATE_EARTH_EXPORTS |
lons(i,j) = xC(i,j,bi,bj) |
|
./pkg/mnc/mnc_cw_cvars.F |
100 |
MNC_CW_WRITE_CVAR |
rtmp(i) = xC(i,1,bi,bj) |
|
./pkg/mnc/mnc_cw_cvars.F |
172 |
MNC_CW_WRITE_CVAR |
rtmp(i) = xC(i,1,bi,bj) |
|
./pkg/mnc/mnc_cw_write_grid_info.F |
142 |
MNC_CW_WRITE_GRID_INFO |
CALL MNC_CW_RS_W('D',bfname(nf:nl),0,0,'xC',xC,myThid) |
|
./pkg/mnc/mnc_cw_write_grid_info.F |
196 |
MNC_CW_WRITE_GRID_COORD |
CALL MNC_CW_RS_W('R',fname,0,0,'XC',xC, myThid) |
|
./model/src/config_summary.F |
882 |
CONFIG_SUMMARY |
CALL WRITE_XY_XLINE_RS( xC, coordLine, tileLine, 'xC', |
|
./pkg/profiles/profiles_init_fixed.F |
406 |
PROFILES_INIT_FIXED |
if (xC(sNx+1,1,bi,bj).LT.xC(1,1,bi,bj)) then |
|
./pkg/profiles/profiles_init_fixed.F |
407 |
PROFILES_INIT_FIXED |
tmp_lon=xC(sNx+1,1,bi,bj)+360. _d 0 |
|
./pkg/profiles/profiles_init_fixed.F |
409 |
PROFILES_INIT_FIXED |
tmp_lon=xC(sNx+1,1,bi,bj) |
|
./pkg/profiles/profiles_init_fixed.F |
412 |
PROFILES_INIT_FIXED |
if ((xC(1,1,bi,bj).LE.tmp_lon2(k)).AND. |
|
./pkg/profiles/profiles_init_fixed.F |
418 |
PROFILES_INIT_FIXED |
elseif ((xC(sNx+1,1,bi,bj).LT.xC(1,1,bi,bj)).AND. |
|
./pkg/profiles/profiles_init_fixed.F |
419 |
PROFILES_INIT_FIXED |
& (xC(1,1,bi,bj).LE.tmp_lon2(k)+360. _d 0).AND. |
|
./pkg/profiles/profiles_init_fixed.F |
451 |
PROFILES_INIT_FIXED |
if (xC(i+1,j,bi,bj).LT.xC(1,j,bi,bj)) then |
|
./pkg/profiles/profiles_init_fixed.F |
452 |
PROFILES_INIT_FIXED |
lon_tmp2=xC(i+1,j,bi,bj)+360 |
|
./pkg/profiles/profiles_init_fixed.F |
454 |
PROFILES_INIT_FIXED |
lon_tmp2=xC(i+1,j,bi,bj) |
|
./pkg/profiles/profiles_init_fixed.F |
456 |
PROFILES_INIT_FIXED |
if (xC(i,j,bi,bj).LT.xC(1,j,bi,bj)) then |
|
./pkg/profiles/profiles_init_fixed.F |
457 |
PROFILES_INIT_FIXED |
lon_tmp1=xC(i,j,bi,bj)+360 |
|
./pkg/profiles/profiles_init_fixed.F |
459 |
PROFILES_INIT_FIXED |
lon_tmp1=xC(i,j,bi,bj) |
|
./pkg/profiles/profiles_init_fixed.F |
514 |
PROFILES_INIT_FIXED |
if ( ( abs( tmp_xC11(k) - xC(1,1,bi,bj) ).LT.0.0001 _d 0 ) .AND. |
|
./pkg/profiles/profiles_init_fixed.F |
516 |
PROFILES_INIT_FIXED |
& ( abs( tmp_xCNINJ(k) - xC(sNx,sNy,bi,bj) ).LT.0.0001 _d 0 ) .AND. |
|
./pkg/profiles/profiles_init_fixed.F |
889 |
PROFILES_INIT_FIXED |
xy_buffer_r8(l,m)=xC(l,m,bi,bj) |
|
./pkg/sbo/sbo_calc.F |
273 |
SBO_CALC |
lon = xC(i,j,bi,bj) * deg2rad |
|
./model/src/ini_cartesian_grid.F |
84 |
INI_CARTESIAN_GRID |
xC(i,j,bi,bj) = 0.25 _d 0*( |
|
./model/src/ini_curvilinear_grid.F |
225 |
INI_CURVILINEAR_GRID |
CALL MNC_CW_RS_R('D',mncFn,0,0,'XC', xC, myThid) |
|
./model/src/ini_curvilinear_grid.F |
291 |
INI_CURVILINEAR_GRID |
CALL MDS_FACEF_READ_RS( fName, fp, 1, xC, bi, bj, myThid ) |
|
./model/src/ini_curvilinear_grid.F |
371 |
INI_CURVILINEAR_GRID |
CALL EXCH_XY_RS(xC,myThid) |
|
./model/src/ini_curvilinear_grid.F |
427 |
INI_CURVILINEAR_GRID |
CALL PLOT_FIELD_XYRS( xC , 'Current xC ', 0, myThid ) |
|
./model/src/ini_curvilinear_grid.F |
79 |
INI_CURVILINEAR_GRID |
CALL READ_REC_3D_RS( 'LONC.bin', fp, 1, xC, 1, 0, myThid ) |
|
./model/src/ini_curvilinear_grid.F |
81 |
INI_CURVILINEAR_GRID |
_EXCH_XY_RS(xC,myThid) |
|
./model/src/ini_cylinder_grid.F |
89 |
INI_CYLINDER_GRID |
xC(i,j,bi,bj) = 0.25 _d 0*( |
|
./model/src/ini_grid.F |
212 |
INI_GRID |
CALL MON_PRINTSTATS_RS(1,xC,'XC',myThid) |
|
./model/src/ini_grid.F |
73 |
INI_GRID |
xC(i,j,bi,bj) = 0. |
|
./pkg/streamice/streamice_init_fixed.F |
317 |
STREAMICE_INIT_FIXED |
x = xC(i,j,bi,bj) |
|
./pkg/streamice/streamice_init_varia.F |
208 |
STREAMICE_INIT_VARIA |
IF (xC(i-1,j,bi,bj).GE.shelf_edge_pos) THEN |
|
./pkg/streamice/streamice_init_varia.F |
213 |
STREAMICE_INIT_VARIA |
IF (xC(i,j,bi,bj).GT.slope_pos) THEN |
|
./pkg/streamice/streamice_init_varia.F |
218 |
STREAMICE_INIT_VARIA |
& min (oneRL, (c1*(slope_pos-xC(i,j,bi,bj)))**2)) |
|
./pkg/streamice/streamice_init_varia.F |
221 |
STREAMICE_INIT_VARIA |
IF (xC(i,j,bi,bj).GT.shelf_edge_pos) THEN |
|
./pkg/streamice/streamice_init_varia.F |
429 |
STREAMICE_INIT_VARIA |
x = xC(i,j,bi,bj) |
|
./pkg/streamice/streamice_init_varia.F |
447 |
STREAMICE_INIT_VARIA |
x = xC(i,j,bi,bj) |
|
./model/src/ini_spherical_polar_grid.F |
280 |
INI_SPHERICAL_POLAR_GRID |
CALL ROTATE_SPHERICAL_POLAR_GRID( xC, yC, myThid ) |
|
./model/src/ini_spherical_polar_grid.F |
89 |
INI_SPHERICAL_POLAR_GRID |
xC(i,j,bi,bj) = 0.25 _d 0*( |
|
./verification/advect_xy/code/ini_salt.F |
65 |
INI_SALT |
rD = SQRT( ( xC(i,j,bi,bj) - 40. _d 3 )**2 |
|
./verification/advect_xy/code/ini_theta.F |
66 |
INI_THETA |
rD = SQRT( ( xC(i,j,bi,bj) - 40. _d 3 )**2 |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
337 |
AIM_SURF_BC |
& +20. _d 0 *exp( -((xC(i,j,bi,bj)-xBump)/dxBump)**2 |
|
./verification/dome/code/obcs_calc.F |
156 |
OBCS_CALC |
x=(xC(I,1,bi,bj)-Xcenter)/Lrho +Width/2. _d 0 |
|
./verification/fizhi-cs-aqualev20/code/fizhi_init_fixed.F |
76 |
FIZHI_INIT_FIXED |
lons(i,j,bi,bj) = xC(i,j,bi,bj) |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_fixed.F |
76 |
FIZHI_INIT_FIXED |
lons(i,j,bi,bj) = xC(i,j,bi,bj) |
|
./model/src/write_grid.F |
176 |
WRITE_GRID |
CALL MNC_CW_RS_W('D',bfname,0,0,'XC',xC,myThid) |
|
./model/src/write_grid.F |
84 |
WRITE_GRID |
CALL WRITE_FLD_XY_RS( 'XC',' ',xC,-1,myThid) |
|
./pkg/aim_v23/aim_dyn2aim.F |
230 |
AIM_DYN2AIM |
& i,j,k,bi,bj,myThid,I2,xC(i,j,bi,bj),yC(i,j,bi,bj) |
|
./pkg/aim_v23/phy_suflux_post.F |
158 |
SUFLUX_POST |
& i1,j1,bi,bj,myThid,J,xC(i1,j1,bi,bj),yC(i1,j1,bi,bj) |
|
./pkg/bling/bling_fields_load.F |
243 |
BLING_FIELDS_LOAD |
I apco2_nlon, apco2_nlat, xC, yC, apco2_interpMethod, |
|
./pkg/bling/bling_ini_forcing.F |
100 |
BLING_INI_FORCING |
I apco2_nlon, apco2_nlat, xC, yC, apco2_interpMethod, |
|
./pkg/ebm/ebm_atmosphere.F |
336 |
EBM_ATMOSPHERE |
IF (xC(i,j,bi,bj) .GT. 284. |
|
./pkg/ebm/ebm_atmosphere.F |
337 |
EBM_ATMOSPHERE |
& .OR. xC(i,j,bi,bj) .LT. 28.) THEN |