| File |
Line number |
Procedure |
Code |
|
./pkg/ecco/ecco_cost_weights.F |
650 |
ECCO_COST_WEIGHTS |
& yC(i,j,bi,bj) .GT. -10. .AND. |
|
./pkg/ecco/ecco_cost_weights.F |
651 |
ECCO_COST_WEIGHTS |
& yC(i,j,bi,bj) .LT. 10. ) then |
|
./pkg/ecco/ecco_cost_weights.F |
764 |
ECCO_COST_WEIGHTS |
& yC(i,j,bi,bj) .GT. -10. .AND. |
|
./pkg/ecco/ecco_cost_weights.F |
765 |
ECCO_COST_WEIGHTS |
& yC(i,j,bi,bj) .LT. 10. ) then |
|
./model/inc/GRID.h |
422 |
NO PROCEDURE |
& xC,yC,rA,rAw,rAs,rAz,xG,yG, |
|
./model/inc/GRID.h |
463 |
NO PROCEDURE |
_RS yC (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 |
305 |
EXF_SET_UV |
& cos(deg2rad*yC(i,j,bi,bj)) |
|
./pkg/exf/exf_set_uv.F |
313 |
EXF_SET_UV |
& cos(deg2rad*yC(i,j,bi,bj)) |
|
./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 |
466 |
EXF_SET_UV |
& cos(deg2rad*yC(i,j,bi,bj)) |
|
./pkg/exf/exf_set_uv.F |
474 |
EXF_SET_UV |
& cos(deg2rad*yC(i,j,bi,bj)) |
|
./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 |
192 |
EXF_ZENITHANGLE |
SJ = SIN(yC(i,j,bi,bj) * deg2rad) |
|
./pkg/exf/exf_zenithangle.F |
193 |
EXF_ZENITHANGLE |
CJ = COS(yC(i,j,bi,bj) * deg2rad) |
|
./pkg/exf/exf_zenithangle.F |
301 |
EXF_ZENITHANGLE |
SJ = SIN(yC(i,j,bi,bj) * deg2rad) |
|
./pkg/exf/exf_zenithangle.F |
302 |
EXF_ZENITHANGLE |
CJ = COS(yC(i,j,bi,bj) * deg2rad) |
|
./pkg/exf/exf_zenithangle.F |
313 |
EXF_ZENITHANGLE |
H0 = -TAN( yC(i,j,bi,bj) *deg2rad ) * TAN( DECLI ) |
|
./pkg/exf/exf_zenithangle_table.F |
126 |
EXF_ZENITHANGLE_TABLE |
LLLAT=yC(i,j,bi,bj)+91. _d 0 |
|
./pkg/fizhi/fizhi_init_fixed.F |
90 |
FIZHI_INIT_FIXED |
lats(i,j,bi,bj) = yC(i,j,bi,bj) |
|
./pkg/fizhi/fizhi_wrapper.F |
265 |
FIZHI_WRAPPER |
& uphy,vphy,thphy,sphy,pephy4fiz,xC,yC,topoZ, |
|
./pkg/fizhi/update_chemistry_exports.F |
74 |
UPDATE_CHEMISTRY_EXPORTS |
xlat(i,j) = yC(i,j,bi,bj) |
|
./pkg/fizhi/update_earth_exports.F |
78 |
UPDATE_EARTH_EXPORTS |
lats(i,j) = yC(i,j,bi,bj) |
|
./pkg/land/land_monitor.F |
134 |
LAND_MONITOR |
I land_hSnow, land_frc, maskInC, rA, yC, locDr, |
|
./pkg/land/land_monitor.F |
170 |
LAND_MONITOR |
I land_skinT, land_frc, maskInC, rA, yC, locDr, |
|
./pkg/land/land_monitor.F |
198 |
LAND_MONITOR |
I land_groundT, land_frc, maskInC, rA, yC, locDr, |
|
./pkg/land/land_monitor.F |
226 |
LAND_MONITOR |
I land_groundT, land_frc, maskInC, rA, yC, locDr, |
|
./pkg/land/land_monitor.F |
257 |
LAND_MONITOR |
I land_enthalp, land_frc, maskInC, rA, yC, locDr, |
|
./pkg/land/land_monitor.F |
274 |
LAND_MONITOR |
I land_groundW, land_frc, maskInC, rA, yC, locDr, |
|
./pkg/mnc/mnc_cw_cvars.F |
210 |
MNC_CW_WRITE_CVAR |
rtmp(i) = yC(1,i,bi,bj) |
|
./pkg/mnc/mnc_cw_cvars.F |
282 |
MNC_CW_WRITE_CVAR |
rtmp(i) = yC(1,i-OLy,bi,bj) |
|
./pkg/mnc/mnc_cw_write_grid_info.F |
143 |
MNC_CW_WRITE_GRID_INFO |
CALL MNC_CW_RS_W('D',bfname(nf:nl),0,0,'yC',yC,myThid) |
|
./pkg/mnc/mnc_cw_write_grid_info.F |
197 |
MNC_CW_WRITE_GRID_COORD |
CALL MNC_CW_RS_W('R',fname,0,0,'YC',yC, myThid) |
|
./model/src/config_summary.F |
884 |
CONFIG_SUMMARY |
CALL WRITE_XY_YLINE_RS( yC, coordLine, tileLine, 'yC', |
|
./pkg/profiles/profiles_init_fixed.F |
414 |
PROFILES_INIT_FIXED |
& (yC(1,1,bi,bj).LE.tmp_lat2(k)).AND. |
|
./pkg/profiles/profiles_init_fixed.F |
415 |
PROFILES_INIT_FIXED |
& (yC(1,sNy+1,bi,bj).GT.tmp_lat2(k)) ) then |
|
./pkg/profiles/profiles_init_fixed.F |
421 |
PROFILES_INIT_FIXED |
& (yC(1,1,bi,bj).LE.tmp_lat2(k)).AND. |
|
./pkg/profiles/profiles_init_fixed.F |
422 |
PROFILES_INIT_FIXED |
& (yC(1,sNy+1,bi,bj).GT.tmp_lat2(k)) |
|
./pkg/profiles/profiles_init_fixed.F |
443 |
PROFILES_INIT_FIXED |
if ((yC(i,j,bi,bj).LE.lat_cur).AND. |
|
./pkg/profiles/profiles_init_fixed.F |
444 |
PROFILES_INIT_FIXED |
& (yC(i,j+1,bi,bj).GT.lat_cur)) then |
|
./pkg/profiles/profiles_init_fixed.F |
446 |
PROFILES_INIT_FIXED |
lat_1=yC(i,j,bi,bj) |
|
./pkg/profiles/profiles_init_fixed.F |
447 |
PROFILES_INIT_FIXED |
lat_2=yC(i,j+1,bi,bj) |
|
./pkg/profiles/profiles_init_fixed.F |
515 |
PROFILES_INIT_FIXED |
& ( abs( tmp_yC11(k) - yC(1,1,bi,bj) ).LT.0.0001 _d 0) .AND. |
|
./pkg/profiles/profiles_init_fixed.F |
517 |
PROFILES_INIT_FIXED |
& ( abs( tmp_yCNINJ(k) - yC(sNx,sNy,bi,bj) ).LT.0.0001 _d 0 ) |
|
./pkg/profiles/profiles_init_fixed.F |
909 |
PROFILES_INIT_FIXED |
xy_buffer_r8(l,m)=yC(l,m,bi,bj) |
|
./pkg/sbo/sbo_calc.F |
272 |
SBO_CALC |
lat = yC(i,j,bi,bj) * deg2rad |
|
./model/src/ini_cartesian_grid.F |
86 |
INI_CARTESIAN_GRID |
yC(i,j,bi,bj) = 0.25 _d 0*( |
|
./pkg/seaice/seaice_get_dynforcing.F |
159 |
SEAICE_GET_DYNFORCING |
IF ( yC(i,j,bi,bj) .LT. ZERO ) THEN |
|
./pkg/seaice/seaice_get_dynforcing.F |
177 |
SEAICE_GET_DYNFORCING |
IF ( yC(i,j,bi,bj) .LT. ZERO ) THEN |
|
./pkg/seaice/seaice_get_dynforcing.F |
262 |
SEAICE_GET_DYNFORCING |
IF ( yC(i,j,bi,bj) .LT. ZERO ) THEN |
|
./model/src/ini_curvilinear_grid.F |
227 |
INI_CURVILINEAR_GRID |
CALL MNC_CW_RS_R('D',mncFn,0,0,'YC', yC, myThid) |
|
./model/src/ini_curvilinear_grid.F |
294 |
INI_CURVILINEAR_GRID |
CALL MDS_FACEF_READ_RS( fName, fp, 2, yC, bi, bj, myThid ) |
|
./model/src/ini_curvilinear_grid.F |
372 |
INI_CURVILINEAR_GRID |
CALL EXCH_XY_RS(yC,myThid) |
|
./model/src/ini_curvilinear_grid.F |
428 |
INI_CURVILINEAR_GRID |
CALL PLOT_FIELD_XYRS( yC , 'Current yC ', 0, myThid ) |
|
./model/src/ini_curvilinear_grid.F |
80 |
INI_CURVILINEAR_GRID |
CALL READ_REC_3D_RS( 'LATC.bin', fp, 1, yC, 1, 0, myThid ) |
|
./model/src/ini_curvilinear_grid.F |
82 |
INI_CURVILINEAR_GRID |
_EXCH_XY_RS(yC,myThid) |
|
./model/src/ini_cylinder_grid.F |
91 |
INI_CYLINDER_GRID |
yC(i,j,bi,bj) = 0.25 _d 0*( |
|
./model/src/ini_cylinder_grid.F |
99 |
INI_CYLINDER_GRID |
thisRad = yC(i,j,bi,bj) |
|
./model/src/ini_depths.F |
243 |
INI_DEPTHS |
& ABS(yC(i,j,bi,bj)).GE.90. ) |
|
./model/src/ini_depths.F |
265 |
INI_DEPTHS |
& ABS(yC(i,j,bi,bj)).GE.90. ) |
|
./model/src/ini_forcing.F |
50 |
INI_FORCING |
& ABS(yC(i,j,bi,bj)).LE.latBandClimRelax ) THEN |
|
./model/src/ini_forcing.F |
56 |
INI_FORCING |
& ABS(yC(i,j,bi,bj)).LE.latBandClimRelax ) THEN |
|
./model/src/ini_grid.F |
218 |
INI_GRID |
CALL MON_PRINTSTATS_RS(1,yC,'YC',myThid) |
|
./model/src/ini_grid.F |
74 |
INI_GRID |
yC(i,j,bi,bj) = 0. |
|
./pkg/streamice/streamice_init_fixed.F |
318 |
STREAMICE_INIT_FIXED |
y = yC(i,j,bi,bj) |
|
./pkg/streamice/streamice_init_varia.F |
430 |
STREAMICE_INIT_VARIA |
y = yC(i,j,bi,bj) |
|
./pkg/streamice/streamice_init_varia.F |
448 |
STREAMICE_INIT_VARIA |
y = yC(i,j,bi,bj) |
|
./pkg/thsice/thsice_monitor.F |
132 |
THSICE_MONITOR |
I iceHeight, locMask, maskInC, rA, yC, locDr, |
|
./pkg/thsice/thsice_monitor.F |
154 |
THSICE_MONITOR |
I snowHeight, locMask, maskInC, rA, yC, locDr, |
|
./pkg/thsice/thsice_monitor.F |
173 |
THSICE_MONITOR |
I Tsrf, locMask, maskInC, rA, yC, locDr, |
|
./pkg/thsice/thsice_monitor.F |
205 |
THSICE_MONITOR |
I Tice1, locMask, maskInC, rA, yC, locDr, |
|
./pkg/thsice/thsice_monitor.F |
230 |
THSICE_MONITOR |
I Tice2, locMask, maskInC, rA, yC, locDr, |
|
./model/src/ini_p_ground.F |
183 |
INI_P_GROUND |
yLatLoc = yC(i,j,bi,bj) |
|
./model/src/ini_p_ground.F |
331 |
INI_P_GROUND |
yLatLoc = yC(i,j,bi,bj) |
|
./pkg/zonal_filt/zonal_filt_init.F |
107 |
ZONAL_FILT_INIT |
ampFactor(Nx,j,bi,bj) = ampfact( yC(1,j,bi,bj) , i ) |
|
./pkg/zonal_filt/zonal_filt_init.F |
97 |
ZONAL_FILT_INIT |
ampFactor(2*i,j,bi,bj) = ampfact( yC(1,j,bi,bj) , I ) |
|
./pkg/zonal_filt/zonal_filter.F |
58 |
ZONAL_FILTER |
IF ( (gridLoc.EQ.1 .AND.ABS(yC(1,j,bi,bj)).GE.zonal_filt_lat) |
|
./model/src/ini_spherical_polar_grid.F |
103 |
INI_SPHERICAL_POLAR_GRID |
lat = yC(i,j,bi,bj) |
|
./model/src/ini_spherical_polar_grid.F |
193 |
INI_SPHERICAL_POLAR_GRID |
lat = yC(i,j,bi,bj) - delYloc(j)*0.5 _d 0 |
|
./model/src/ini_spherical_polar_grid.F |
194 |
INI_SPHERICAL_POLAR_GRID |
dlat= yC(i,j,bi,bj) + delYloc(j)*0.5 _d 0 |
|
./model/src/ini_spherical_polar_grid.F |
219 |
INI_SPHERICAL_POLAR_GRID |
lat=yC(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 |
91 |
INI_SPHERICAL_POLAR_GRID |
yC(i,j,bi,bj) = 0.25 _d 0*( |
|
./verification/advect_xy/code/ini_salt.F |
66 |
INI_SALT |
& +( yC(i,j,bi,bj) - 40. _d 3 )**2 |
|
./verification/advect_xy/code/ini_theta.F |
67 |
INI_THETA |
& +( yC(i,j,bi,bj) - 40. _d 3 )**2 |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
251 |
AIM_SURF_BC |
SJ = SIN(yC(i,j,bi,bj) * deg2rad) |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
252 |
AIM_SURF_BC |
CJ = COS(yC(i,j,bi,bj) * deg2rad) |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
338 |
AIM_SURF_BC |
& -((yC(i,j,bi,bj)-yBump)/dyBump)**2 ) |
|
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F |
240 |
INI_DEPTHS |
& ABS(yC(i,j,bi,bj)).GE.ABS(ygOrigin) ) |
|
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F |
243 |
INI_DEPTHS |
& ABS(yC(i,j,bi,bj)).GE.90. ) |
|
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F |
262 |
INI_DEPTHS |
& ABS(yC(i,j,bi,bj)).GE.ABS(ygOrigin) ) |
|
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F |
265 |
INI_DEPTHS |
& ABS(yC(i,j,bi,bj)).GE.90. ) |
|
./verification/fizhi-cs-aqualev20/code/fizhi_init_fixed.F |
77 |
FIZHI_INIT_FIXED |
lats(i,j,bi,bj) = yC(i,j,bi,bj) |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_fixed.F |
77 |
FIZHI_INIT_FIXED |
lats(i,j,bi,bj) = yC(i,j,bi,bj) |
|
./verification/hs94.128x64x5/code/external_forcing.F |
193 |
EXTERNAL_FORCING_T |
term1=60. _d 0*(SIN(yC(i,j,bi,bj)*deg2rad)**2) |
|
./verification/hs94.128x64x5/code/external_forcing.F |
196 |
EXTERNAL_FORCING_T |
& *(COS(yC(i,j,bi,bj)*deg2rad)**2) |
|
./verification/hs94.128x64x5/code/external_forcing.F |
204 |
EXTERNAL_FORCING_T |
& *COS((yC(i,j,bi,bj)*deg2rad))**4 |
|
./verification/hs94.1x64x5/code/apply_forcing.F |
258 |
APPLY_FORCING_T |
term1 = 60. _d 0*(SIN(yC(i,j,bi,bj)*deg2rad)**2) |
|
./verification/hs94.1x64x5/code/apply_forcing.F |
261 |
APPLY_FORCING_T |
& *(COS(yC(i,j,bi,bj)*deg2rad)**2) |
|
./verification/hs94.1x64x5/code/apply_forcing.F |
288 |
APPLY_FORCING_T |
& *COS((yC(i,j,bi,bj)*deg2rad))**4 |
|
./verification/hs94.1x64x5/code/ini_theta.F |
69 |
INI_THETA |
term1=60. _d 0*(sin(yC(I,J,bi,bj)*deg2rad)**2) |
|
./verification/hs94.1x64x5/code/ini_theta.F |
71 |
INI_THETA |
& *(cos(yC(I,J,bi,bj)*deg2rad)**2) |
|
./verification/hs94.1x64x5/code_ad/apply_forcing.F |
258 |
APPLY_FORCING_T |
term1 = 60. _d 0*(SIN(yC(i,j,bi,bj)*deg2rad)**2) |
|
./verification/hs94.1x64x5/code_ad/apply_forcing.F |
261 |
APPLY_FORCING_T |
& *(COS(yC(i,j,bi,bj)*deg2rad)**2) |
|
./verification/hs94.1x64x5/code_ad/apply_forcing.F |
288 |
APPLY_FORCING_T |
& *COS((yC(i,j,bi,bj)*deg2rad))**4 |
|
./verification/hs94.1x64x5/code_ad/ini_theta.F |
69 |
INI_THETA |
term1=60. _d 0*(sin(yC(I,J,bi,bj)*deg2rad)**2) |
|
./verification/hs94.1x64x5/code_ad/ini_theta.F |
71 |
INI_THETA |
& *(cos(yC(I,J,bi,bj)*deg2rad)**2) |
|
./verification/hs94.1x64x5/code_oad/apply_forcing.F |
258 |
APPLY_FORCING_T |
term1 = 60. _d 0*(SIN(yC(i,j,bi,bj)*deg2rad)**2) |
|
./verification/hs94.1x64x5/code_oad/apply_forcing.F |
261 |
APPLY_FORCING_T |
& *(COS(yC(i,j,bi,bj)*deg2rad)**2) |
|
./verification/hs94.1x64x5/code_oad/apply_forcing.F |
288 |
APPLY_FORCING_T |
& *COS((yC(i,j,bi,bj)*deg2rad))**4 |
|
./verification/hs94.1x64x5/code_oad/ini_theta.F |
69 |
INI_THETA |
term1=60. _d 0*(sin(yC(I,J,bi,bj)*deg2rad)**2) |
|
./verification/hs94.1x64x5/code_oad/ini_theta.F |
71 |
INI_THETA |
& *(cos(yC(I,J,bi,bj)*deg2rad)**2) |
|
./verification/hs94.cs-32x32x5/code/apply_forcing.F |
258 |
APPLY_FORCING_T |
term1 = 60. _d 0*(SIN(yC(i,j,bi,bj)*deg2rad)**2) |
|
./verification/hs94.cs-32x32x5/code/apply_forcing.F |
261 |
APPLY_FORCING_T |
& *(COS(yC(i,j,bi,bj)*deg2rad)**2) |
|
./verification/hs94.cs-32x32x5/code/apply_forcing.F |
288 |
APPLY_FORCING_T |
& *COS((yC(i,j,bi,bj)*deg2rad))**4 |
|
./verification/hs94.cs-32x32x5/code/ini_theta.F |
69 |
INI_THETA |
term1=60. _d 0*(sin(yC(I,J,bi,bj)*deg2rad)**2) |
|
./verification/hs94.cs-32x32x5/code/ini_theta.F |
71 |
INI_THETA |
& *(cos(yC(I,J,bi,bj)*deg2rad)**2) |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
101 |
INI_FORCING |
& ABS(yC(i,j,bi,bj)).LE.latBandClimRelax ) THEN |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
107 |
INI_FORCING |
& ABS(yC(i,j,bi,bj)).LE.latBandClimRelax ) THEN |
|
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F |
101 |
INI_FORCING |
& ABS(yC(i,j,bi,bj)).LE.latBandClimRelax ) THEN |
|
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F |
107 |
INI_FORCING |
& ABS(yC(i,j,bi,bj)).LE.latBandClimRelax ) THEN |
|
./verification/tutorial_held_suarez_cs/code/apply_forcing.F |
258 |
APPLY_FORCING_T |
term1 = 60. _d 0*(SIN(yC(i,j,bi,bj)*deg2rad)**2) |
|
./verification/tutorial_held_suarez_cs/code/apply_forcing.F |
261 |
APPLY_FORCING_T |
& *(COS(yC(i,j,bi,bj)*deg2rad)**2) |
|
./verification/tutorial_held_suarez_cs/code/apply_forcing.F |
288 |
APPLY_FORCING_T |
& *COS((yC(i,j,bi,bj)*deg2rad))**4 |
|
./model/src/write_grid.F |
177 |
WRITE_GRID |
CALL MNC_CW_RS_W('D',bfname,0,0,'YC',yC,myThid) |
|
./model/src/write_grid.F |
85 |
WRITE_GRID |
CALL WRITE_FLD_XY_RS( 'YC',' ',yC,-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/aim_dyn2aim.F |
79 |
AIM_DYN2AIM |
snLat(I2,myThid) = SIN(yC(i,j,bi,bj)*deg2rad) |
|
./pkg/aim_v23/aim_dyn2aim.F |
80 |
AIM_DYN2AIM |
csLat(I2,myThid) = COS(yC(i,j,bi,bj)*deg2rad) |
|
./pkg/aim_v23/aim_surf_bc.F |
234 |
AIM_SURF_BC |
SJ = SIN(yC(i,j,bi,bj) * deg2rad) |
|
./pkg/aim_v23/aim_surf_bc.F |
235 |
AIM_SURF_BC |
CJ = COS(yC(i,j,bi,bj) * deg2rad) |
|
./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/atm2d/relax_add.F |
89 |
RELAX_ADD |
& max(cos(1.5 _d 0*yC(1,j,1,1)*deg2rad),0. _d 0) |
|
./pkg/atm2d/relax_add.F |
95 |
RELAX_ADD |
& max(cos(1.5 _d 0*yC(1,j,1,1)*deg2rad),0. _d 0) |
|
./pkg/atm_phys/atm_phys_dyn2phys.F |
71 |
ATM_PHYS_DYN2PHYS |
lat2d(:,:) = yC(1:sNx,1:sNy,bi,bj)*deg2rad |
|
./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/cfc/cfc11_forcing.F |
144 |
CFC11_FORCING |
weight = ( yC(i,j,bi,bj) - atmCFC_ySouthBnd )*recip_dLat |
|
./pkg/cfc/cfc12_forcing.F |
145 |
CFC12_FORCING |
weight = ( yC(i,j,bi,bj) - atmCFC_ySouthBnd )*recip_dLat |
|
./pkg/ebm/ebm_area_t.F |
76 |
EBM_AREA_T |
IF ( yC(i,j,bi,bj) .GE. -latBnd(3) .AND. |
|
./pkg/ebm/ebm_area_t.F |
77 |
EBM_AREA_T |
& yC(i,j,bi,bj) .LE. -latBnd(2) ) THEN |
|
./pkg/ebm/ebm_area_t.F |
82 |
EBM_AREA_T |
ELSEIF ( yC(i,j,bi,bj) .GT. -latBnd(2) .AND. |
|
./pkg/ebm/ebm_area_t.F |
83 |
EBM_AREA_T |
& yC(i,j,bi,bj) .LT. -latBnd(1) ) THEN |
|
./pkg/ebm/ebm_area_t.F |
88 |
EBM_AREA_T |
ELSEIF ( yC(i,j,bi,bj) .GT. latBnd(1) .AND. |
|
./pkg/ebm/ebm_area_t.F |
89 |
EBM_AREA_T |
& yC(i,j,bi,bj) .LT. latBnd(2) ) THEN |
|
./pkg/ebm/ebm_area_t.F |
94 |
EBM_AREA_T |
ELSEIF ( yC(i,j,bi,bj) .GE. latBnd(2) .AND. |
|
./pkg/ebm/ebm_area_t.F |
95 |
EBM_AREA_T |
& yC(i,j,bi,bj) .LT. latBnd(3) ) THEN |
|
./pkg/ebm/ebm_atmosphere.F |
122 |
EBM_ATMOSPHERE |
IF (yC(1,j,bi,bj) .LE. -62.0) THEN |
|
./pkg/ebm/ebm_atmosphere.F |
124 |
EBM_ATMOSPHERE |
ELSE IF (yC(1,j,bi,bj) .EQ. 74.0) THEN |
|
./pkg/ebm/ebm_atmosphere.F |
126 |
EBM_ATMOSPHERE |
ELSE IF (yC(1,j,bi,bj) .EQ. 70.0) THEN |
|
./pkg/ebm/ebm_atmosphere.F |
128 |
EBM_ATMOSPHERE |
ELSE IF (yC(1,j,bi,bj) .EQ. 66.0) THEN |
|
./pkg/ebm/ebm_atmosphere.F |
130 |
EBM_ATMOSPHERE |
ELSE IF (yC(1,j,bi,bj) .EQ. 62.0) THEN |
|
./pkg/ebm/ebm_atmosphere.F |
228 |
EBM_ATMOSPHERE |
S(i,j,bj) = SIN(yC(i,j,bi,bj)*deg2rad) |
|
./pkg/ebm/ebm_atmosphere.F |
244 |
EBM_ATMOSPHERE |
IF (yC(i,j,bi,bj) .LT. 0.) THEN |
|
./pkg/ebm/ebm_atmosphere.F |
325 |
EBM_ATMOSPHERE |
IF (yC(i,j,bi,bj) .LT. -40.) THEN |
|
./pkg/ebm/ebm_load_climatology.F |
74 |
EBM_LOAD_CLIMATOLOGY |
distY = (yC(i,j,bi,bj)- 0. )/lY |