| File |
Line number |
Procedure |
Code |
|
./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 |
114 |
EXF_GETCLIM |
& climsss_nlon, climsss_nlat, xC, yC, climsss_interpMethod, |
|
./pkg/exf/exf_getclim.F |
77 |
EXF_GETCLIM |
& climsst_nlon, climsst_nlat, xC, yC, climsst_interpMethod, |
|
./pkg/exf/exf_getffields.F |
100 |
EXF_GETFFIELDS |
& wspeed_nlon, wspeed_nlat, xC, yC, wspeed_interpMethod, |
|
./pkg/exf/exf_getffields.F |
160 |
EXF_GETFFIELDS |
& hflux_nlon, hflux_nlat, xC, yC, hflux_interpMethod, |
|
./pkg/exf/exf_getffields.F |
172 |
EXF_GETFFIELDS |
& sflux_nlon, sflux_nlat, xC, yC, sflux_interpMethod, |
|
./pkg/exf/exf_getffields.F |
186 |
EXF_GETFFIELDS |
& atemp_nlon, atemp_nlat, xC, yC, atemp_interpMethod, |
|
./pkg/exf/exf_getffields.F |
207 |
EXF_GETFFIELDS |
& aqh_nlon, aqh_nlat, xC, yC, aqh_interpMethod, |
|
./pkg/exf/exf_getffields.F |
219 |
EXF_GETFFIELDS |
& lwflux_nlon, lwflux_nlat, xC, yC, lwflux_interpMethod, |
|
./pkg/exf/exf_getffields.F |
231 |
EXF_GETFFIELDS |
& precip_nlon, precip_nlat, xC, yC, precip_interpMethod, |
|
./pkg/exf/exf_getffields.F |
244 |
EXF_GETFFIELDS |
& snowprecip_nlon, snowprecip_nlat, xC, yC, |
|
./pkg/exf/exf_getffields.F |
273 |
EXF_GETFFIELDS |
& swflux_nlon, swflux_nlat, xC, yC, swflux_interpMethod, |
|
./pkg/exf/exf_getffields.F |
287 |
EXF_GETFFIELDS |
& evap_nlon, evap_nlat, xC, yC, evap_interpMethod, |
|
./pkg/exf/exf_getffields.F |
302 |
EXF_GETFFIELDS |
& swdown_nlon, swdown_nlat, xC, yC, swdown_interpMethod, |
|
./pkg/exf/exf_getffields.F |
314 |
EXF_GETFFIELDS |
& lwdown_nlon, lwdown_nlat, xC, yC, lwdown_interpMethod, |
|
./pkg/exf/exf_getffields.F |
330 |
EXF_GETFFIELDS |
& apressure_nlon,apressure_nlat,xC,yC, apressure_interpMethod, |
|
./pkg/exf/exf_getffields.F |
345 |
EXF_GETFFIELDS |
& areamask_nlon, areamask_nlat, xC, yC, areamask_interpMethod, |
|
./pkg/exf/exf_getffields.F |
359 |
EXF_GETFFIELDS |
& runoff_nlon, runoff_nlat, xC, yC, runoff_interpMethod, |
|
./pkg/exf/exf_getffields.F |
373 |
EXF_GETFFIELDS |
& runoff_nlon, runoff_nlat, xC, yC, runoff_interpMethod, |
|
./pkg/exf/exf_init.F |
119 |
EXF_INIT |
& uwind_nlon, uwind_nlat, xC, yC, uwind_interpMethod, |
|
./pkg/exf/exf_init.F |
134 |
EXF_INIT |
& vwind_nlon, vwind_nlat, xC, yC, vwind_interpMethod, |
|
./pkg/exf/exf_init.F |
157 |
EXF_INIT |
& wspeed_nlon, wspeed_nlat, xC, yC, wspeed_interpMethod, |
|
./pkg/exf/exf_init.F |
167 |
EXF_INIT |
& hflux_nlon, hflux_nlat, xC, yC, hflux_interpMethod, |
|
./pkg/exf/exf_init.F |
177 |
EXF_INIT |
& sflux_nlon, sflux_nlat, xC, yC, sflux_interpMethod, |
|
./pkg/exf/exf_init.F |
189 |
EXF_INIT |
& atemp_nlon, atemp_nlat, xC, yC, atemp_interpMethod, |
|
./pkg/exf/exf_init.F |
199 |
EXF_INIT |
& aqh_nlon, aqh_nlat, xC, yC, aqh_interpMethod, |
|
./pkg/exf/exf_init.F |
209 |
EXF_INIT |
& lwflux_nlon, lwflux_nlat, xC, yC, lwflux_interpMethod, |
|
./pkg/exf/exf_init.F |
219 |
EXF_INIT |
& precip_nlon, precip_nlat, xC, yC, precip_interpMethod, |
|
./pkg/exf/exf_init.F |
230 |
EXF_INIT |
& snowprecip_nlon, snowprecip_nlat, xC, yC, |
|
./pkg/exf/exf_init.F |
244 |
EXF_INIT |
& swflux_nlon, swflux_nlat, xC, yC, swflux_interpMethod, |
|
./pkg/exf/exf_init.F |
256 |
EXF_INIT |
& evap_nlon, evap_nlat, xC, yC, evap_interpMethod, |
|
./pkg/exf/exf_init.F |
269 |
EXF_INIT |
& swdown_nlon, swdown_nlat, xC, yC, swdown_interpMethod, |
|
./pkg/exf/exf_init.F |
279 |
EXF_INIT |
& lwdown_nlon, lwdown_nlat, xC, yC, lwdown_interpMethod, |
|
./pkg/exf/exf_init.F |
293 |
EXF_INIT |
& apressure_nlon, apressure_nlat, xC, yC, |
|
./pkg/exf/exf_init.F |
307 |
EXF_INIT |
& areamask_nlon, areamask_nlat, xC, yC, areamask_interpMethod, |
|
./pkg/exf/exf_init.F |
319 |
EXF_INIT |
& runoff_nlon, runoff_nlat, xC, yC, runoff_interpMethod, |
|
./pkg/exf/exf_init.F |
329 |
EXF_INIT |
& runoff_nlon, runoff_nlat, xC, yC, runoff_interpMethod, |
|
./pkg/exf/exf_init.F |
342 |
EXF_INIT |
& climsst_nlon, climsst_nlat, xC, yC, climsst_interpMethod, |
|
./pkg/exf/exf_init.F |
354 |
EXF_INIT |
& climsss_nlon, climsss_nlat, xC, yC, climsss_interpMethod, |
|
./pkg/exf/exf_init.F |
366 |
EXF_INIT |
& climustr_nlon, climustr_nlat, xC, yC, climustr_interpMethod, |
|
./pkg/exf/exf_init.F |
376 |
EXF_INIT |
& climvstr_nlon, climvstr_nlat, xC, yC, climvstr_interpMethod, |
|
./pkg/exf/exf_init.F |
74 |
EXF_INIT |
& ustress_nlon, ustress_nlat, xC, yC, ustress_interpMethod, |
|
./pkg/exf/exf_init.F |
89 |
EXF_INIT |
& vstress_nlon, vstress_nlat, xC, yC, vstress_interpMethod, |
|
./pkg/exf/exf_set_uv.F |
190 |
EXF_SET_UV |
I xC, yC, |
|
./pkg/exf/exf_set_uv.F |
197 |
EXF_SET_UV |
I count0, xC, yC, |
|
./pkg/exf/exf_set_uv.F |
204 |
EXF_SET_UV |
I count0, xC, yC, |
|
./pkg/exf/exf_set_uv.F |
316 |
EXF_SET_UV |
I xC, yC, |
|
./pkg/exf/exf_set_uv.F |
323 |
EXF_SET_UV |
I count1, xC, yC, |
|
./pkg/exf/exf_set_uv.F |
330 |
EXF_SET_UV |
I count1, xC, yC, |
|
./pkg/exf/exf_set_uv.F |
432 |
EXF_SET_UV |
& uvec_nlon, uvec_nlat, xC, yC, u_interp_method, |
|
./pkg/exf/exf_set_uv.F |
443 |
EXF_SET_UV |
& vvec_nlon, vvec_nlat, xC, yC, v_interp_method, |
|
./pkg/exf/exf_zenithangle.F |
164 |
EXF_ZENITHANGLE |
& cos( 2. _d 0 *PI* TDAY + xC(i,j,bi,bj) * deg2rad ) |
|
./pkg/exf/exf_zenithangle.F |
269 |
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 |
788 |
CONFIG_SUMMARY |
CALL WRITE_XY_XLINE_RS( xC, coordLine, tileLine, 'xC', |
|
./pkg/profiles/profiles_init_fixed.F |
402 |
PROFILES_INIT_FIXED |
if (xC(sNx+1,1,bi,bj).LT.xC(1,1,bi,bj)) then |
|
./pkg/profiles/profiles_init_fixed.F |
403 |
PROFILES_INIT_FIXED |
tmp_lon=xC(sNx+1,1,bi,bj)+360 |
|
./pkg/profiles/profiles_init_fixed.F |
405 |
PROFILES_INIT_FIXED |
tmp_lon=xC(sNx+1,1,bi,bj) |
|
./pkg/profiles/profiles_init_fixed.F |
407 |
PROFILES_INIT_FIXED |
if ((xC(1,1,bi,bj).LE.tmp_lon2(k)).AND. |
|
./pkg/profiles/profiles_init_fixed.F |
424 |
PROFILES_INIT_FIXED |
elseif (xC(sNx+1,1,bi,bj).LT.xC(1,1,bi,bj)) then |
|
./pkg/profiles/profiles_init_fixed.F |
425 |
PROFILES_INIT_FIXED |
if ((xC(1,1,bi,bj).LE.tmp_lon2(k)+360).AND. |
|
./pkg/profiles/profiles_init_fixed.F |
448 |
PROFILES_INIT_FIXED |
if ( ( abs( tmp_xC11(k) - xC(1,1,bi,bj) ).LT.0.0001 ) .AND. |
|
./pkg/profiles/profiles_init_fixed.F |
450 |
PROFILES_INIT_FIXED |
& ( abs( tmp_xCNINJ(k) - xC(sNx,sNy,bi,bj) ).LT.0.0001 ) .AND. |
|
./pkg/profiles/profiles_init_fixed.F |
752 |
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 |
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 |
215 |
INI_CURVILINEAR_GRID |
CALL MNC_CW_RS_R('D',mncFn,0,0,'XC', xC, myThid) |
|
./model/src/ini_curvilinear_grid.F |
281 |
INI_CURVILINEAR_GRID |
CALL MDS_FACEF_READ_RS( fName, fp, 1, xC, bi, bj, myThid ) |
|
./model/src/ini_curvilinear_grid.F |
361 |
INI_CURVILINEAR_GRID |
CALL EXCH_XY_RS(xC,myThid) |
|
./model/src/ini_curvilinear_grid.F |
417 |
INI_CURVILINEAR_GRID |
CALL PLOT_FIELD_XYRS( xC , 'Current xC ', 0, myThid ) |
|
./model/src/ini_curvilinear_grid.F |
78 |
INI_CURVILINEAR_GRID |
CALL READ_REC_3D_RS( 'LONC.bin', fp, 1, xC, 1, 0, myThid ) |
|
./model/src/ini_curvilinear_grid.F |
80 |
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*( |
|
./pkg/streamice/streamice_init_fixed.F |
303 |
STREAMICE_INIT_FIXED |
x = xC(i,j,bi,bj) |
|
./pkg/streamice/streamice_init_varia.F |
210 |
STREAMICE_INIT_VARIA |
IF (xC(i-1,j,bi,bj).GE.shelf_edge_pos) THEN |
|
./pkg/streamice/streamice_init_varia.F |
215 |
STREAMICE_INIT_VARIA |
IF (xC(i,j,bi,bj).GT.slope_pos) THEN |
|
./pkg/streamice/streamice_init_varia.F |
220 |
STREAMICE_INIT_VARIA |
& min (oneRL, (c1*(slope_pos-xC(i,j,bi,bj)))**2)) |
|
./pkg/streamice/streamice_init_varia.F |
223 |
STREAMICE_INIT_VARIA |
IF (xC(i,j,bi,bj).GT.shelf_edge_pos) THEN |
|
./pkg/streamice/streamice_init_varia.F |
434 |
STREAMICE_INIT_VARIA |
x = xC(i,j,bi,bj) |
|
./pkg/streamice/streamice_init_varia.F |
452 |
STREAMICE_INIT_VARIA |
x = xC(i,j,bi,bj) |
|
./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. |
|
./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 |
|
./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/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 |
170 |
WRITE_GRID |
CALL MNC_CW_RS_W('D',bfname,0,0,'XC',xC,myThid) |
|
./model/src/write_grid.F |
81 |
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/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 |
|
./pkg/ecco/ecco_cost_weights.F |
627 |
ECCO_COST_WEIGHTS |
if ( xC(i,j,bi,bj) .GT. 120. .AND. |
|
./pkg/ecco/ecco_cost_weights.F |
628 |
ECCO_COST_WEIGHTS |
& xC(i,j,bi,bj) .LT. 130. .AND. |
|
./pkg/ecco/ecco_cost_weights.F |
740 |
ECCO_COST_WEIGHTS |
if ( xC(i,j,bi,bj) .GT. 120. .AND. |
|
./pkg/ecco/ecco_cost_weights.F |
741 |
ECCO_COST_WEIGHTS |
& xC(i,j,bi,bj) .LT. 130. .AND. |