| File |
Line number |
Procedure |
Code |
|
./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 |
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 |
233 |
EXF_SET_UV |
& cos(deg2rad*yC(i,j,bi,bj)) |
|
./pkg/exf/exf_set_uv.F |
241 |
EXF_SET_UV |
& cos(deg2rad*yC(i,j,bi,bj)) |
|
./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 |
359 |
EXF_SET_UV |
& cos(deg2rad*yC(i,j,bi,bj)) |
|
./pkg/exf/exf_set_uv.F |
367 |
EXF_SET_UV |
& cos(deg2rad*yC(i,j,bi,bj)) |
|
./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 |
155 |
EXF_ZENITHANGLE |
SJ = SIN(yC(i,j,bi,bj) * deg2rad) |
|
./pkg/exf/exf_zenithangle.F |
156 |
EXF_ZENITHANGLE |
CJ = COS(yC(i,j,bi,bj) * deg2rad) |
|
./pkg/exf/exf_zenithangle.F |
264 |
EXF_ZENITHANGLE |
SJ = SIN(yC(i,j,bi,bj) * deg2rad) |
|
./pkg/exf/exf_zenithangle.F |
265 |
EXF_ZENITHANGLE |
CJ = COS(yC(i,j,bi,bj) * deg2rad) |
|
./pkg/exf/exf_zenithangle.F |
274 |
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 |
790 |
CONFIG_SUMMARY |
CALL WRITE_XY_YLINE_RS( yC, coordLine, tileLine, 'yC', |
|
./pkg/profiles/profiles_init_fixed.F |
409 |
PROFILES_INIT_FIXED |
& (yC(1,1,bi,bj).LE.tmp_lat2(k)).AND. |
|
./pkg/profiles/profiles_init_fixed.F |
410 |
PROFILES_INIT_FIXED |
& (yC(1,sNy+1,bi,bj).GT.tmp_lat2(k)) |
|
./pkg/profiles/profiles_init_fixed.F |
427 |
PROFILES_INIT_FIXED |
& (yC(1,1,bi,bj).LE.tmp_lat2(k)).AND. |
|
./pkg/profiles/profiles_init_fixed.F |
428 |
PROFILES_INIT_FIXED |
& (yC(1,sNy+1,bi,bj).GT.tmp_lat2(k)) |
|
./pkg/profiles/profiles_init_fixed.F |
449 |
PROFILES_INIT_FIXED |
& ( abs( tmp_yC11(k) - yC(1,1,bi,bj) ).LT.0.0001 ) .AND. |
|
./pkg/profiles/profiles_init_fixed.F |
451 |
PROFILES_INIT_FIXED |
& ( abs( tmp_yCNINJ(k) - yC(sNx,sNy,bi,bj) ).LT.0.0001 ) |
|
./pkg/profiles/profiles_init_fixed.F |
772 |
PROFILES_INIT_FIXED |
xy_buffer_r8(l,m)=yC(l,m,bi,bj) |
|
./pkg/profiles/profiles_interp.F |
76 |
PROFILES_INTERP |
if ((yC(i,j,bi,bj).LE.lat_cur).AND. |
|
./pkg/profiles/profiles_interp.F |
77 |
PROFILES_INTERP |
& (yC(i,j+1,bi,bj).GT.lat_cur)) then |
|
./pkg/profiles/profiles_interp.F |
79 |
PROFILES_INTERP |
lat_1=yC(i,j,bi,bj) |
|
./pkg/profiles/profiles_interp.F |
80 |
PROFILES_INTERP |
lat_2=yC(i,j+1,bi,bj) |
|
./pkg/profiles/profiles_interp_mean.F |
76 |
PROFILES_INTERP_MEAN |
if ((yC(i,j,bi,bj).LE.lat_cur).AND. |
|
./pkg/profiles/profiles_interp_mean.F |
77 |
PROFILES_INTERP_MEAN |
& (yC(i,j+1,bi,bj).GT.lat_cur)) then |
|
./pkg/profiles/profiles_interp_mean.F |
79 |
PROFILES_INTERP_MEAN |
lat_1=yC(i,j,bi,bj) |
|
./pkg/profiles/profiles_interp_mean.F |
80 |
PROFILES_INTERP_MEAN |
lat_2=yC(i,j+1,bi,bj) |
|
./pkg/sbo/sbo_calc.F |
272 |
SBO_CALC |
lat = yC(i,j,bi,bj) * deg2rad |
|
./pkg/seaice/seaice_get_dynforcing.F |
147 |
SEAICE_GET_DYNFORCING |
IF ( yC(i,j,bi,bj) .LT. ZERO ) THEN |
|
./pkg/seaice/seaice_get_dynforcing.F |
165 |
SEAICE_GET_DYNFORCING |
IF ( yC(i,j,bi,bj) .LT. ZERO ) THEN |
|
./pkg/seaice/seaice_get_dynforcing.F |
250 |
SEAICE_GET_DYNFORCING |
IF ( yC(i,j,bi,bj) .LT. ZERO ) THEN |
|
./model/src/ini_cartesian_grid.F |
86 |
INI_CARTESIAN_GRID |
yC(i,j,bi,bj) = 0.25 _d 0*( |
|
./model/src/ini_curvilinear_grid.F |
217 |
INI_CURVILINEAR_GRID |
CALL MNC_CW_RS_R('D',mncFn,0,0,'YC', yC, myThid) |
|
./model/src/ini_curvilinear_grid.F |
284 |
INI_CURVILINEAR_GRID |
CALL MDS_FACEF_READ_RS( fName, fp, 2, yC, bi, bj, myThid ) |
|
./model/src/ini_curvilinear_grid.F |
362 |
INI_CURVILINEAR_GRID |
CALL EXCH_XY_RS(yC,myThid) |
|
./model/src/ini_curvilinear_grid.F |
418 |
INI_CURVILINEAR_GRID |
CALL PLOT_FIELD_XYRS( yC , 'Current yC ', 0, myThid ) |
|
./model/src/ini_curvilinear_grid.F |
79 |
INI_CURVILINEAR_GRID |
CALL READ_REC_3D_RS( 'LATC.bin', fp, 1, yC, 1, 0, myThid ) |
|
./model/src/ini_curvilinear_grid.F |
81 |
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 |
244 |
INI_DEPTHS |
& ABS(yC(i,j,bi,bj)).GE.90. ) |
|
./model/src/ini_depths.F |
266 |
INI_DEPTHS |
& ABS(yC(i,j,bi,bj)).GE.90. ) |
|
./model/src/ini_forcing.F |
123 |
INI_FORCING |
& ABS(yC(i,j,bi,bj)).LE.latBandClimRelax ) THEN |
|
./model/src/ini_forcing.F |
129 |
INI_FORCING |
& ABS(yC(i,j,bi,bj)).LE.latBandClimRelax ) THEN |
|
./pkg/streamice/streamice_init_fixed.F |
304 |
STREAMICE_INIT_FIXED |
y = yC(i,j,bi,bj) |
|
./pkg/streamice/streamice_init_varia.F |
435 |
STREAMICE_INIT_VARIA |
y = yC(i,j,bi,bj) |
|
./pkg/streamice/streamice_init_varia.F |
453 |
STREAMICE_INIT_VARIA |
y = yC(i,j,bi,bj) |
|
./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/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, |
|
./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_p_ground.F |
182 |
INI_P_GROUND |
yLatLoc = yC(i,j,bi,bj) |
|
./model/src/ini_p_ground.F |
330 |
INI_P_GROUND |
yLatLoc = yC(i,j,bi,bj) |
|
./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. ) |
|
./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/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 |
104 |
INI_FORCING |
& ABS(yC(i,j,bi,bj)).LE.latBandClimRelax ) THEN |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
98 |
INI_FORCING |
& ABS(yC(i,j,bi,bj)).LE.latBandClimRelax ) THEN |
|
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F |
104 |
INI_FORCING |
& ABS(yC(i,j,bi,bj)).LE.latBandClimRelax ) THEN |
|
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F |
98 |
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 |
171 |
WRITE_GRID |
CALL MNC_CW_RS_W('D',bfname,0,0,'YC',yC,myThid) |
|
./model/src/write_grid.F |
82 |
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_driver.F |
141 |
ATM_PHYS_DRIVER |
lat2d(:,:) = yC(1:sNx,1:sNy,bi,bj)*deg2rad |
|
./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 |
|
./pkg/ecco/ecco_cost_weights.F |
629 |
ECCO_COST_WEIGHTS |
& yC(i,j,bi,bj) .GT. -10. .AND. |
|
./pkg/ecco/ecco_cost_weights.F |
630 |
ECCO_COST_WEIGHTS |
& yC(i,j,bi,bj) .LT. 10. ) then |
|
./pkg/ecco/ecco_cost_weights.F |
742 |
ECCO_COST_WEIGHTS |
& yC(i,j,bi,bj) .GT. -10. .AND. |
|
./pkg/ecco/ecco_cost_weights.F |
743 |
ECCO_COST_WEIGHTS |
& yC(i,j,bi,bj) .LT. 10. ) then |