| File |
Line number |
Procedure |
Code |
|
./pkg/ebm/ebm_atmosphere.F |
315 |
EBM_ATMOSPHERE |
IF (xC(i,j,bi,bj) .GT. 284. |
|
./pkg/ebm/ebm_atmosphere.F |
316 |
EBM_ATMOSPHERE |
< .OR. xC(i,j,bi,bj) .LT. 28.) THEN |
|
./pkg/exf/exf_set_uv.F |
159 |
EXF_SET_UV |
& , tmp_u, count0, xC, yC |
|
./pkg/exf/exf_set_uv.F |
166 |
EXF_SET_UV |
& , tmp_v, count0, xC, yC |
|
./pkg/exf/exf_set_uv.F |
263 |
EXF_SET_UV |
& , tmp_u, count1, xC, yC |
|
./pkg/exf/exf_set_uv.F |
270 |
EXF_SET_UV |
& , tmp_v, count1, xC, yC |
|
./pkg/exf/exf_set_uv.F |
358 |
EXF_SET_UV |
& uvec_nlon, uvec_nlat, xC, yC, interp_method, |
|
./pkg/exf/exf_set_uv.F |
368 |
EXF_SET_UV |
& vvec_nlon, vvec_nlat, xC, yC, interp_method, |
|
./pkg/exf/exf_getffields.F |
149 |
EXF_GETFFIELDS |
& hflux_nlon, hflux_nlat, xC, yC, interp_method, |
|
./pkg/exf/exf_getffields.F |
162 |
EXF_GETFFIELDS |
& sflux_nlon, sflux_nlat, xC, yC, interp_method, |
|
./pkg/exf/exf_getffields.F |
177 |
EXF_GETFFIELDS |
& atemp_nlon, atemp_nlat, xC, yC, interp_method, |
|
./pkg/exf/exf_getffields.F |
199 |
EXF_GETFFIELDS |
& aqh_nlon, aqh_nlat, xC, yC, interp_method, |
|
./pkg/exf/exf_getffields.F |
212 |
EXF_GETFFIELDS |
& lwflux_nlon, lwflux_nlat, xC, yC, interp_method, |
|
./pkg/exf/exf_getffields.F |
225 |
EXF_GETFFIELDS |
& precip_nlon, precip_nlat, xC, yC, interp_method, |
|
./pkg/exf/exf_getffields.F |
239 |
EXF_GETFFIELDS |
& snowprecip_nlon, snowprecip_nlat, xC, yC, interp_method, |
|
./pkg/exf/exf_getffields.F |
255 |
EXF_GETFFIELDS |
& swflux_nlon, swflux_nlat, xC, yC, interp_method, |
|
./pkg/exf/exf_getffields.F |
270 |
EXF_GETFFIELDS |
& evap_nlon, evap_nlat, xC, yC, interp_method, |
|
./pkg/exf/exf_getffields.F |
286 |
EXF_GETFFIELDS |
& swdown_nlon, swdown_nlat, xC, yC, interp_method, |
|
./pkg/exf/exf_getffields.F |
299 |
EXF_GETFFIELDS |
& lwdown_nlon, lwdown_nlat, xC, yC, interp_method, |
|
./pkg/exf/exf_getffields.F |
315 |
EXF_GETFFIELDS |
& apressure_lat_inc, apressure_nlon, apressure_nlat, xC, yC, |
|
./pkg/exf/exf_getffields.F |
99 |
EXF_GETFFIELDS |
& wspeed_nlon, wspeed_nlat, xC, yC, interp_method, |
|
./pkg/exf/exf_init_runoff.F |
57 |
EXF_INIT_RUNOFF |
& , runoff, 1, xC, yC |
|
./pkg/exf/exf_set_climsst.F |
117 |
EXF_SET_CLIMSST |
& , climsst1, count1, xC, yC |
|
./pkg/exf/exf_set_climsst.F |
92 |
EXF_SET_CLIMSST |
& , climsst1, count0, xC, yC |
|
./pkg/exf/exf_set_climsss.F |
114 |
EXF_SET_CLIMSSS |
& , climsss1, count1, xC, yC |
|
./pkg/exf/exf_set_climsss.F |
91 |
EXF_SET_CLIMSSS |
& , climsss1, count0, xC, yC |
|
./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/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/autodiff/autodiff_ini_model_io.F |
299 |
AUTODIFF_INI_MODEL_IO |
CALL MNC_CW_RS_W('R','adstate',0,0,'XC',xC, myThid) |
|
./pkg/autodiff/autodiff_ini_model_io.F |
303 |
AUTODIFF_INI_MODEL_IO |
CALL MNC_CW_RS_W('R','adstate',0,0,'XV',xC, myThid) |
|
./pkg/autodiff/autodiff_ini_model_io.F |
312 |
AUTODIFF_INI_MODEL_IO |
CALL MNC_CW_RS_W('R','adexf',0,0,'XC',xC, myThid) |
|
./pkg/autodiff/autodiff_ini_model_io.F |
316 |
AUTODIFF_INI_MODEL_IO |
CALL MNC_CW_RS_W('R','adexf',0,0,'XV',xC, myThid) |
|
./pkg/autodiff/autodiff_ini_model_io.F |
326 |
AUTODIFF_INI_MODEL_IO |
CALL MNC_CW_RS_W('R','adseaice',0,0,'XC',xC, myThid) |
|
./pkg/autodiff/autodiff_ini_model_io.F |
330 |
AUTODIFF_INI_MODEL_IO |
CALL MNC_CW_RS_W('R','adseaice',0,0,'XV',xC, myThid) |
|
./pkg/mnc/mnc_cw_write_grid_info.F |
138 |
MNC_CW_WRITE_GRID_INFO |
CALL MNC_CW_RL_W('D',bfname(nf:nl),0,0,'xC',xC,myThid) |
|
./pkg/mnc/mnc_cw_cvars.F |
75 |
MNC_CW_WRITE_CVAR |
rtmp(i) = xC(i,1,bi,bj) |
|
./pkg/mnc/mnc_cw_cvars.F |
99 |
MNC_CW_WRITE_CVAR |
rtmp(i) = xC(i,1,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_init_fixed.F |
165 |
PROFILES_INIT_FIXED |
if (xC(sNx+1,1,bi,bj).LT.xC(1,1,bi,bj)) then |
|
./pkg/profiles/profiles_init_fixed.F |
166 |
PROFILES_INIT_FIXED |
tmp_lon=xC(sNx+1,1,bi,bj)+360 |
|
./pkg/profiles/profiles_init_fixed.F |
168 |
PROFILES_INIT_FIXED |
tmp_lon=xC(sNx+1,1,bi,bj) |
|
./pkg/profiles/profiles_init_fixed.F |
170 |
PROFILES_INIT_FIXED |
if ((xC(1,1,bi,bj).LE.tmp_lon2(k)).AND. |
|
./pkg/profiles/profiles_init_fixed.F |
185 |
PROFILES_INIT_FIXED |
elseif (xC(sNx+1,1,bi,bj).LT.xC(1,1,bi,bj)) then |
|
./pkg/profiles/profiles_init_fixed.F |
186 |
PROFILES_INIT_FIXED |
if ((xC(1,1,bi,bj).LE.tmp_lon2(k)+360).AND. |
|
./pkg/fizhi/update_earth_exports.F |
65 |
UPDATE_EARTH_EXPORTS |
lons(i,j) = xC(i,j,bi,bj) |
|
./pkg/fizhi/fizhi_wrapper.F |
266 |
FIZHI_WRAPPER |
. uphy,vphy,thphy,sphy,pephy4fiz,xC,yC,topoZ, |
|
./pkg/fizhi/fizhi_init_fixed.F |
77 |
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/fizhi-cs-aqualev20/code/update_earth_exports.F |
65 |
UPDATE_EARTH_EXPORTS |
lons(i,j) = xC(i,j,bi,bj) |
|
./verification/fizhi-cs-aqualev20/code/fizhi_init_fixed.F |
76 |
FIZHI_INIT_FIXED |
lons(i,j,bi,bj) = xC(i,j,bi,bj) |
|
./model/src/write_grid.F |
133 |
WRITE_GRID |
CALL MNC_CW_RL_W('D',bfname,0,0,'XC',xC,myThid) |
|
./verification/dome/code/obcs_calc.F |
148 |
OBCS_CALC |
x=(xC(I,1,bi,bj)-Xcenter)/Lrho +Width/2.0 |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
513 |
ECCO_COST_WEIGHTS |
if ( xC(i,j,bi,bj) .GT. 115. .AND. |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
514 |
ECCO_COST_WEIGHTS |
& xC(i,j,bi,bj) .LT. 130. .AND. |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
522 |
ECCO_COST_WEIGHTS |
if ( ( xC(i,j,bi,bj) .GT. 355. .AND. |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
523 |
ECCO_COST_WEIGHTS |
& xC(i,j,bi,bj) .LT. 360. .AND. |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
527 |
ECCO_COST_WEIGHTS |
& ( xC(i,j,bi,bj) .GT. 0. .AND. |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
528 |
ECCO_COST_WEIGHTS |
& xC(i,j,bi,bj) .LT. 39. .AND. |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
577 |
ECCO_COST_WEIGHTS |
if ( xC(i,j,bi,bj) .GT. 115. .AND. |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
578 |
ECCO_COST_WEIGHTS |
& xC(i,j,bi,bj) .LT. 130. .AND. |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
587 |
ECCO_COST_WEIGHTS |
if ( ( xC(i,j,bi,bj) .GT. 355. .AND. |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
588 |
ECCO_COST_WEIGHTS |
& xC(i,j,bi,bj) .LT. 360. .AND. |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
592 |
ECCO_COST_WEIGHTS |
& ( xC(i,j,bi,bj) .GT. 0. .AND. |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
593 |
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. |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
232 |
AIM_SURF_BC |
& +20. _d 0 *exp( -((xC(i,j,bi,bj)-xBump)/dxBump)**2 |
|
./model/src/ini_spherical_polar_grid.F |
151 |
INI_SPHERICAL_POLAR_GRID |
xC(I,J,bi,bj) = 0.25*( |
|
./model/src/config_summary.F |
556 |
CONFIG_SUMMARY |
xcoord((bi-1)*sNx+I) = xC(I,1,bi,1) |
|
./model/src/ini_cylinder_grid.F |
147 |
INI_CYLINDER_GRID |
xC(I,J,bi,bj) = 0.25*( |
|
./model/src/ini_cartesian_grid.F |
128 |
INI_CARTESIAN_GRID |
xC(I,J,bi,bj) = 0.25*( |
|
./pkg/sbo/sbo_calc.F |
220 |
SBO_CALC |
lon = xC(I,J,bi,bj) * pi / 180.0 |
|
./pkg/ecco/ecco_cost_weights.F |
542 |
ECCO_COST_WEIGHTS |
if ( xC(i,j,bi,bj) .GT. 120. .AND. |
|
./pkg/ecco/ecco_cost_weights.F |
543 |
ECCO_COST_WEIGHTS |
& xC(i,j,bi,bj) .LT. 130. .AND. |
|
./pkg/ecco/ecco_cost_weights.F |
591 |
ECCO_COST_WEIGHTS |
if ( xC(i,j,bi,bj) .GT. 120. .AND. |
|
./pkg/ecco/ecco_cost_weights.F |
592 |
ECCO_COST_WEIGHTS |
& xC(i,j,bi,bj) .LT. 130. .AND. |
|
./model/inc/GRID.h |
392 |
NO PROCEDURE |
& xC,yC,rA,rAw,rAs,rAz,xG,yG, |
|
./model/inc/GRID.h |
434 |
NO PROCEDURE |
_RS xC (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |