| File |
Line number |
Procedure |
Code |
|
./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 |
264 |
FIZHI_WRAPPER |
. uphy,vphy,thphy,sphy,pephy4fiz,xC,yC,topoZ, |
|
./pkg/fizhi/update_earth_exports.F |
65 |
UPDATE_EARTH_EXPORTS |
lons(i,j) = xC(i,j,bi,bj) |
|
./pkg/mnc/mnc_cw_cvars.F |
101 |
MNC_CW_WRITE_CVAR |
rtmp(i) = xC(i,1,bi,bj) |
|
./pkg/mnc/mnc_cw_cvars.F |
173 |
MNC_CW_WRITE_CVAR |
rtmp(i) = xC(i,1,bi,bj) |
|
./pkg/mnc/mnc_cw_write_grid_info.F |
134 |
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 |
188 |
MNC_CW_WRITE_GRID_COORD |
CALL MNC_CW_RS_W('R',fname,0,0,'XC',xC, myThid) |
|
./model/src/config_summary.F |
659 |
CONFIG_SUMMARY |
CALL WRITE_XY_XLINE_RS( xC, coordLine, tileLine, 'xC', |
|
./pkg/profiles/profiles_init_fixed.F |
278 |
PROFILES_INIT_FIXED |
if (xC(sNx+1,1,bi,bj).LT.xC(1,1,bi,bj)) then |
|
./pkg/profiles/profiles_init_fixed.F |
279 |
PROFILES_INIT_FIXED |
tmp_lon=xC(sNx+1,1,bi,bj)+360 |
|
./pkg/profiles/profiles_init_fixed.F |
281 |
PROFILES_INIT_FIXED |
tmp_lon=xC(sNx+1,1,bi,bj) |
|
./pkg/profiles/profiles_init_fixed.F |
283 |
PROFILES_INIT_FIXED |
if ((xC(1,1,bi,bj).LE.tmp_lon2(k)).AND. |
|
./pkg/profiles/profiles_init_fixed.F |
301 |
PROFILES_INIT_FIXED |
elseif (xC(sNx+1,1,bi,bj).LT.xC(1,1,bi,bj)) then |
|
./pkg/profiles/profiles_init_fixed.F |
302 |
PROFILES_INIT_FIXED |
if ((xC(1,1,bi,bj).LE.tmp_lon2(k)+360).AND. |
|
./pkg/profiles/profiles_init_fixed.F |
325 |
PROFILES_INIT_FIXED |
if ( ( abs( tmp_xC11(k) - xC(1,1,bi,bj) ).LT.0.0001 ) .AND. |
|
./pkg/profiles/profiles_init_fixed.F |
327 |
PROFILES_INIT_FIXED |
& ( abs( tmp_xCNINJ(k) - xC(sNx,sNy,bi,bj) ).LT.0.0001 ) .AND. |
|
./pkg/profiles/profiles_init_fixed.F |
598 |
PROFILES_INIT_FIXED |
xy_buffer_r8(l,m)=xC(l,m,bi,bj) |
|
./pkg/profiles/profiles_interp.F |
101 |
PROFILES_INTERP |
if (xC(i+1,j,bi,bj).LT.xC(1,j,bi,bj)) then |
|
./pkg/profiles/profiles_interp.F |
102 |
PROFILES_INTERP |
lon_tmp2=xC(i+1,j,bi,bj)+360 |
|
./pkg/profiles/profiles_interp.F |
104 |
PROFILES_INTERP |
lon_tmp2=xC(i+1,j,bi,bj) |
|
./pkg/profiles/profiles_interp.F |
106 |
PROFILES_INTERP |
if (xC(i,j,bi,bj).LT.xC(1,j,bi,bj)) then |
|
./pkg/profiles/profiles_interp.F |
107 |
PROFILES_INTERP |
lon_tmp1=xC(i,j,bi,bj)+360 |
|
./pkg/profiles/profiles_interp.F |
109 |
PROFILES_INTERP |
lon_tmp1=xC(i,j,bi,bj) |
|
./pkg/profiles/profiles_interp_mean.F |
101 |
PROFILES_INTERP_MEAN |
if (xC(i+1,j,bi,bj).LT.xC(1,j,bi,bj)) then |
|
./pkg/profiles/profiles_interp_mean.F |
102 |
PROFILES_INTERP_MEAN |
lon_tmp2=xC(i+1,j,bi,bj)+360 |
|
./pkg/profiles/profiles_interp_mean.F |
104 |
PROFILES_INTERP_MEAN |
lon_tmp2=xC(i+1,j,bi,bj) |
|
./pkg/profiles/profiles_interp_mean.F |
106 |
PROFILES_INTERP_MEAN |
if (xC(i,j,bi,bj).LT.xC(1,j,bi,bj)) then |
|
./pkg/profiles/profiles_interp_mean.F |
107 |
PROFILES_INTERP_MEAN |
lon_tmp1=xC(i,j,bi,bj)+360 |
|
./pkg/profiles/profiles_interp_mean.F |
109 |
PROFILES_INTERP_MEAN |
lon_tmp1=xC(i,j,bi,bj) |
|
./pkg/sbo/sbo_calc.F |
218 |
SBO_CALC |
lon = xC(i,j,bi,bj) * pi / 180.0 |
|
./model/src/ini_cartesian_grid.F |
146 |
INI_CARTESIAN_GRID |
xC(i,j,bi,bj) = 0.25 _d 0*( |
|
./model/src/ini_curvilinear_grid.F |
109 |
INI_CURVILINEAR_GRID |
CALL READ_REC_3D_RS( 'LONC.bin', fp, 1, xC, 1, 0, myThid ) |
|
./model/src/ini_curvilinear_grid.F |
111 |
INI_CURVILINEAR_GRID |
_EXCH_XY_RS(xC,myThid) |
|
./model/src/ini_curvilinear_grid.F |
246 |
INI_CURVILINEAR_GRID |
CALL MNC_CW_RS_R('D',mncFn,0,0,'XC', xC, myThid) |
|
./model/src/ini_curvilinear_grid.F |
312 |
INI_CURVILINEAR_GRID |
CALL MDS_FACEF_READ_RS( fName, fp, 1, xC, bi, bj, myThid ) |
|
./model/src/ini_curvilinear_grid.F |
392 |
INI_CURVILINEAR_GRID |
CALL EXCH_XY_RS(xC,myThid) |
|
./model/src/ini_curvilinear_grid.F |
437 |
INI_CURVILINEAR_GRID |
CALL PLOT_FIELD_XYRS( xC , 'Current xC ', 0, myThid ) |
|
./model/src/ini_curvilinear_grid.F |
70 |
INI_CURVILINEAR_GRID |
xC(i,j,bi,bj)=0. |
|
./model/src/ini_cylinder_grid.F |
152 |
INI_CYLINDER_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 |
325 |
AIM_SURF_BC |
& +20. _d 0 *exp( -((xC(i,j,bi,bj)-xBump)/dxBump)**2 |
|
./model/src/ini_grid.F |
122 |
INI_GRID |
CALL MON_PRINTSTATS_RS(1,xC,'XC',myThid) |
|
./verification/dome/code/obcs_calc.F |
151 |
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 |
70 |
FIZHI_INIT_FIXED |
lons(i,j,bi,bj) = xC(i,j,bi,bj) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
514 |
ECCO_COST_WEIGHTS |
if ( xC(i,j,bi,bj) .GT. 115. .AND. |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
515 |
ECCO_COST_WEIGHTS |
& xC(i,j,bi,bj) .LT. 130. .AND. |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
523 |
ECCO_COST_WEIGHTS |
if ( ( xC(i,j,bi,bj) .GT. 355. .AND. |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
524 |
ECCO_COST_WEIGHTS |
& xC(i,j,bi,bj) .LT. 360. .AND. |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
528 |
ECCO_COST_WEIGHTS |
& ( xC(i,j,bi,bj) .GT. 0. .AND. |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
529 |
ECCO_COST_WEIGHTS |
& xC(i,j,bi,bj) .LT. 39. .AND. |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
578 |
ECCO_COST_WEIGHTS |
if ( xC(i,j,bi,bj) .GT. 115. .AND. |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
579 |
ECCO_COST_WEIGHTS |
& xC(i,j,bi,bj) .LT. 130. .AND. |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
588 |
ECCO_COST_WEIGHTS |
if ( ( xC(i,j,bi,bj) .GT. 355. .AND. |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
589 |
ECCO_COST_WEIGHTS |
& xC(i,j,bi,bj) .LT. 360. .AND. |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
593 |
ECCO_COST_WEIGHTS |
& ( xC(i,j,bi,bj) .GT. 0. .AND. |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
594 |
ECCO_COST_WEIGHTS |
& xC(i,j,bi,bj) .LT. 39. .AND. |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
512 |
ECCO_COST_WEIGHTS |
if ( xC(i,j,bi,bj) .GT. 115. .AND. |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
513 |
ECCO_COST_WEIGHTS |
& xC(i,j,bi,bj) .LT. 130. .AND. |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
521 |
ECCO_COST_WEIGHTS |
if ( ( xC(i,j,bi,bj) .GT. 355. .AND. |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
522 |
ECCO_COST_WEIGHTS |
& xC(i,j,bi,bj) .LT. 360. .AND. |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
526 |
ECCO_COST_WEIGHTS |
& ( xC(i,j,bi,bj) .GT. 0. .AND. |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
527 |
ECCO_COST_WEIGHTS |
& xC(i,j,bi,bj) .LT. 39. .AND. |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
574 |
ECCO_COST_WEIGHTS |
if ( xC(i,j,bi,bj) .GT. 115. .AND. |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
575 |
ECCO_COST_WEIGHTS |
& xC(i,j,bi,bj) .LT. 130. .AND. |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
585 |
ECCO_COST_WEIGHTS |
if ( ( xC(i,j,bi,bj) .GT. 355. .AND. |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
586 |
ECCO_COST_WEIGHTS |
& xC(i,j,bi,bj) .LT. 360. .AND. |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
590 |
ECCO_COST_WEIGHTS |
& ( xC(i,j,bi,bj) .GT. 0. .AND. |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
591 |
ECCO_COST_WEIGHTS |
& xC(i,j,bi,bj) .LT. 39. .AND. |
|
./model/src/ini_spherical_polar_grid.F |
156 |
INI_SPHERICAL_POLAR_GRID |
xC(i,j,bi,bj) = 0.25 _d 0*( |
|
./model/src/ini_spherical_polar_grid.F |
354 |
INI_SPHERICAL_POLAR_GRID |
CALL ROTATE_SPHERICAL_POLAR_GRID( xC, yC, myThid ) |
|
./model/src/write_grid.F |
156 |
WRITE_GRID |
CALL MNC_CW_RS_W('D',bfname,0,0,'XC',xC,myThid) |
|
./model/src/write_grid.F |
80 |
WRITE_GRID |
CALL WRITE_FLD_XY_RS( 'XC',' ',xC,-1,myThid) |
|
./pkg/aim_v23/aim_dyn2aim.F |
217 |
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/ebm/ebm_atmosphere.F |
314 |
EBM_ATMOSPHERE |
IF (xC(i,j,bi,bj) .GT. 284. |
|
./pkg/ebm/ebm_atmosphere.F |
315 |
EBM_ATMOSPHERE |
& .OR. xC(i,j,bi,bj) .LT. 28.) THEN |
|
./pkg/ecco/ecco_cost_weights.F |
600 |
ECCO_COST_WEIGHTS |
if ( xC(i,j,bi,bj) .GT. 120. .AND. |
|
./pkg/ecco/ecco_cost_weights.F |
601 |
ECCO_COST_WEIGHTS |
& xC(i,j,bi,bj) .LT. 130. .AND. |
|
./pkg/ecco/ecco_cost_weights.F |
712 |
ECCO_COST_WEIGHTS |
if ( xC(i,j,bi,bj) .GT. 120. .AND. |
|
./pkg/ecco/ecco_cost_weights.F |
713 |
ECCO_COST_WEIGHTS |
& xC(i,j,bi,bj) .LT. 130. .AND. |
|
./model/inc/GRID.h |
421 |
NO PROCEDURE |
& xC,yC,rA,rAw,rAs,rAz,xG,yG, |
|
./model/inc/GRID.h |
460 |
NO PROCEDURE |
_RS xC (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/exf/exf_getclim.F |
108 |
EXF_GETCLIM |
& climsss_nlon, climsss_nlat, xC, yC, interp_method, |
|
./pkg/exf/exf_getclim.F |
79 |
EXF_GETCLIM |
& climsst_nlon, climsst_nlat, xC, yC, interp_method, |
|
./pkg/exf/exf_getffields.F |
100 |
EXF_GETFFIELDS |
& wspeed_nlon, wspeed_nlat, xC, yC, interp_method, |
|
./pkg/exf/exf_getffields.F |
161 |
EXF_GETFFIELDS |
& hflux_nlon, hflux_nlat, xC, yC, interp_method, |
|
./pkg/exf/exf_getffields.F |
173 |
EXF_GETFFIELDS |
& sflux_nlon, sflux_nlat, xC, yC, interp_method, |
|
./pkg/exf/exf_getffields.F |
187 |
EXF_GETFFIELDS |
& atemp_nlon, atemp_nlat, xC, yC, interp_method, |
|
./pkg/exf/exf_getffields.F |
208 |
EXF_GETFFIELDS |
& aqh_nlon, aqh_nlat, xC, yC, interp_method, |
|
./pkg/exf/exf_getffields.F |
220 |
EXF_GETFFIELDS |
& lwflux_nlon, lwflux_nlat, xC, yC, interp_method, |
|
./pkg/exf/exf_getffields.F |
232 |
EXF_GETFFIELDS |
& precip_nlon, precip_nlat, xC, yC, interp_method, |
|
./pkg/exf/exf_getffields.F |
245 |
EXF_GETFFIELDS |
& snowprecip_nlon, snowprecip_nlat, xC, yC, interp_method, |
|
./pkg/exf/exf_getffields.F |
260 |
EXF_GETFFIELDS |
& swflux_nlon, swflux_nlat, xC, yC, interp_method, |
|
./pkg/exf/exf_getffields.F |
274 |
EXF_GETFFIELDS |
& evap_nlon, evap_nlat, xC, yC, interp_method, |
|
./pkg/exf/exf_getffields.F |
289 |
EXF_GETFFIELDS |
& swdown_nlon, swdown_nlat, xC, yC, interp_method, |
|
./pkg/exf/exf_getffields.F |
301 |
EXF_GETFFIELDS |
& lwdown_nlon, lwdown_nlat, xC, yC, interp_method, |
|
./pkg/exf/exf_getffields.F |
316 |
EXF_GETFFIELDS |
& apressure_lat_inc, apressure_nlon, apressure_nlat, xC, yC, |
|
./pkg/exf/exf_getffields.F |
331 |
EXF_GETFFIELDS |
& areamask_lat_inc, areamask_nlon, areamask_nlat, xC, yC, |
|
./pkg/exf/exf_getffields.F |
354 |
EXF_GETFFIELDS |
& runoff_lat_inc, runoff_nlon, runoff_nlat, xC, yC, |
|
./pkg/exf/exf_init.F |
112 |
EXF_INIT |
& uwind_nlon, uwind_nlat, xC, yC, interp_method, |
|
./pkg/exf/exf_init.F |
128 |
EXF_INIT |
& vwind_nlon, vwind_nlat, xC, yC, interp_method, |
|
./pkg/exf/exf_init.F |
142 |
EXF_INIT |
& wspeed_nlon, wspeed_nlat, xC, yC, interp_method, |
|
./pkg/exf/exf_init.F |
152 |
EXF_INIT |
& hflux_nlon, hflux_nlat, xC, yC, interp_method, |
|
./pkg/exf/exf_init.F |
162 |
EXF_INIT |
& sflux_nlon, sflux_nlat, xC, yC, interp_method, |
|
./pkg/exf/exf_init.F |
174 |
EXF_INIT |
& atemp_nlon, atemp_nlat, xC, yC, interp_method, |
|
./pkg/exf/exf_init.F |
184 |
EXF_INIT |
& aqh_nlon, aqh_nlat, xC, yC, interp_method, |
|
./pkg/exf/exf_init.F |
194 |
EXF_INIT |
& lwflux_nlon, lwflux_nlat, xC, yC, interp_method, |
|
./pkg/exf/exf_init.F |
204 |
EXF_INIT |
& precip_nlon, precip_nlat, xC, yC, interp_method, |
|
./pkg/exf/exf_init.F |
215 |
EXF_INIT |
& snowprecip_nlon, snowprecip_nlat, xC, yC, interp_method, |
|
./pkg/exf/exf_init.F |
228 |
EXF_INIT |
& swflux_nlon, swflux_nlat, xC, yC, interp_method, |
|
./pkg/exf/exf_init.F |
240 |
EXF_INIT |
& evap_nlon, evap_nlat, xC, yC, interp_method, |
|
./pkg/exf/exf_init.F |
253 |
EXF_INIT |
& swdown_nlon, swdown_nlat, xC, yC, interp_method, |
|
./pkg/exf/exf_init.F |
263 |
EXF_INIT |
& lwdown_nlon, lwdown_nlat, xC, yC, interp_method, |
|
./pkg/exf/exf_init.F |
277 |
EXF_INIT |
& apressure_nlon, apressure_nlat, xC, yC, interp_method, |
|
./pkg/exf/exf_init.F |
290 |
EXF_INIT |
& areamask_nlon, areamask_nlat, xC, yC, interp_method, |
|
./pkg/exf/exf_init.F |
308 |
EXF_INIT |
& runoff_nlon, runoff_nlat, xC, yC, interp_method, |
|
./pkg/exf/exf_init.F |
322 |
EXF_INIT |
& climsst_nlon, climsst_nlat, xC, yC, interp_method, |
|
./pkg/exf/exf_init.F |
335 |
EXF_INIT |
& climsss_nlon, climsss_nlat, xC, yC, interp_method, |
|
./pkg/exf/exf_init.F |
348 |
EXF_INIT |
& climustr_nlon, climustr_nlat, xC, yC, interp_method, |
|
./pkg/exf/exf_init.F |
359 |
EXF_INIT |
& climvstr_nlon, climvstr_nlat, xC, yC, interp_method, |
|
./pkg/exf/exf_init.F |
78 |
EXF_INIT |
& ustress_nlon, ustress_nlat, xC, yC, interp_method, |
|
./pkg/exf/exf_init.F |
94 |
EXF_INIT |
& vstress_nlon, vstress_nlat, xC, yC, interp_method, |
|
./pkg/exf/exf_set_uv.F |
133 |
EXF_SET_UV |
& , tmp_u, count0, xC, yC |
|
./pkg/exf/exf_set_uv.F |
140 |
EXF_SET_UV |
& , tmp_v, count0, xC, yC |
|
./pkg/exf/exf_set_uv.F |
213 |
EXF_SET_UV |
& , tmp_u, count1, xC, yC |
|
./pkg/exf/exf_set_uv.F |
220 |
EXF_SET_UV |
& , tmp_v, count1, xC, yC |
|
./pkg/exf/exf_set_uv.F |
303 |
EXF_SET_UV |
& uvec_nlon, uvec_nlat, xC, yC, interp_method, |
|
./pkg/exf/exf_set_uv.F |
312 |
EXF_SET_UV |
& vvec_nlon, vvec_nlat, xC, yC, interp_method, |
|
./pkg/exf/exf_zenithangle.F |
172 |
EXF_ZENITHANGLE |
& cos( 2. _d 0 *PI* TDAY + xC(i,j,bi,bj) * deg2rad ) |
|
./pkg/exf/exf_zenithangle.F |
274 |
EXF_ZENITHANGLE |
& cos( 2. _d 0 *PI* TDAY + xC(i,j,bi,bj) * deg2rad ) |