| File |
Line number |
Procedure |
Code |
|
./pkg/ebm/ebm_atmosphere.F |
103 |
EBM_ATMOSPHERE |
IF (yC(1,j,bi,bj) .LE. -62.0) THEN |
|
./pkg/ebm/ebm_atmosphere.F |
105 |
EBM_ATMOSPHERE |
ELSE IF (yC(1,j,bi,bj) .EQ. 74.0) THEN |
|
./pkg/ebm/ebm_atmosphere.F |
107 |
EBM_ATMOSPHERE |
ELSE IF (yC(1,j,bi,bj) .EQ. 70.0) THEN |
|
./pkg/ebm/ebm_atmosphere.F |
109 |
EBM_ATMOSPHERE |
ELSE IF (yC(1,j,bi,bj) .EQ. 66.0) THEN |
|
./pkg/ebm/ebm_atmosphere.F |
111 |
EBM_ATMOSPHERE |
ELSE IF (yC(1,j,bi,bj) .EQ. 62.0) THEN |
|
./pkg/ebm/ebm_atmosphere.F |
208 |
EBM_ATMOSPHERE |
S(i,j,bj) = sin(yC(i,j,bi,bj)*deg2rad) |
|
./pkg/ebm/ebm_atmosphere.F |
223 |
EBM_ATMOSPHERE |
IF (yC(i,j,bi,bj) .LT. 0.) THEN |
|
./pkg/ebm/ebm_atmosphere.F |
304 |
EBM_ATMOSPHERE |
IF (yC(i,j,bi,bj) .LT. -40.) THEN |
|
./pkg/ebm/ebm_load_climatology.F |
65 |
EBM_LOAD_CLIMATOLOGY |
distY = (yC(i,j,bi,bj)-(yC0))/lY |
|
./pkg/ebm/ebm_area_t.F |
100 |
EBM_AREA_T |
ELSEIF ( yC(i,j,bi,bj) .GE. lat(2) .AND. |
|
./pkg/ebm/ebm_area_t.F |
101 |
EBM_AREA_T |
& yC(i,j,bi,bj) .LT. lat(3)) THEN |
|
./pkg/ebm/ebm_area_t.F |
82 |
EBM_AREA_T |
IF ( yC(i,j,bi,bj) .GE. -lat(3) .AND. |
|
./pkg/ebm/ebm_area_t.F |
83 |
EBM_AREA_T |
& yC(i,j,bi,bj) .LE. -lat(2)) THEN |
|
./pkg/ebm/ebm_area_t.F |
88 |
EBM_AREA_T |
ELSEIF ( yC(i,j,bi,bj) .GT. -lat(2) .AND. |
|
./pkg/ebm/ebm_area_t.F |
89 |
EBM_AREA_T |
& yC(i,j,bi,bj) .LT. -lat(1)) THEN |
|
./pkg/ebm/ebm_area_t.F |
94 |
EBM_AREA_T |
ELSEIF ( yC(i,j,bi,bj) .GT. lat(1) .AND. |
|
./pkg/ebm/ebm_area_t.F |
95 |
EBM_AREA_T |
& yC(i,j,bi,bj) .LT. lat(2)) 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 |
197 |
EXF_SET_UV |
& cos(deg2rad*yC(i-offset,j-offset,bi,bj)) |
|
./pkg/exf/exf_set_uv.F |
205 |
EXF_SET_UV |
& cos(deg2rad*yC(i-offset,j-offset,bi,bj)) |
|
./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 |
301 |
EXF_SET_UV |
& cos(deg2rad*yC(i-offset,j-offset,bi,bj)) |
|
./pkg/exf/exf_set_uv.F |
309 |
EXF_SET_UV |
& cos(deg2rad*yC(i-offset,j-offset,bi,bj)) |
|
./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/aim_v23/aim_dyn2aim.F |
76 |
AIM_DYN2AIM |
snLat(I2,myThid) = SIN(yC(I,J,bi,bj)*deg2rad) |
|
./pkg/aim_v23/aim_dyn2aim.F |
77 |
AIM_DYN2AIM |
csLat(I2,myThid) = COS(yC(I,J,bi,bj)*deg2rad) |
|
./pkg/zonal_filt/zonal_filt_init.F |
72 |
ZONAL_FILT_INIT |
ampFactor(2*I,J,bi,bj) = ampfact( yC(1,J,bi,bj) , I ) |
|
./pkg/zonal_filt/zonal_filt_init.F |
82 |
ZONAL_FILT_INIT |
ampFactor(Nx,J,bi,bj) = ampfact( yC(1,J,bi,bj) , I ) |
|
./pkg/zonal_filt/zonal_filter.F |
49 |
ZONAL_FILTER |
IF ( (gridLoc.EQ.1 .AND.ABS(yC(1,j,bi,bj)).GE.zonal_filt_lat) |
|
./pkg/autodiff/autodiff_ini_model_io.F |
300 |
AUTODIFF_INI_MODEL_IO |
CALL MNC_CW_RS_W('R','adstate',0,0,'YC',yC, myThid) |
|
./pkg/autodiff/autodiff_ini_model_io.F |
302 |
AUTODIFF_INI_MODEL_IO |
CALL MNC_CW_RS_W('R','adstate',0,0,'YU',yC, myThid) |
|
./pkg/autodiff/autodiff_ini_model_io.F |
313 |
AUTODIFF_INI_MODEL_IO |
CALL MNC_CW_RS_W('R','adexf',0,0,'YC',yC, myThid) |
|
./pkg/autodiff/autodiff_ini_model_io.F |
315 |
AUTODIFF_INI_MODEL_IO |
CALL MNC_CW_RS_W('R','adexf',0,0,'YU',yC, myThid) |
|
./pkg/autodiff/autodiff_ini_model_io.F |
327 |
AUTODIFF_INI_MODEL_IO |
CALL MNC_CW_RS_W('R','adseaice',0,0,'YC',yC, myThid) |
|
./pkg/autodiff/autodiff_ini_model_io.F |
329 |
AUTODIFF_INI_MODEL_IO |
CALL MNC_CW_RS_W('R','adseaice',0,0,'YU',yC, myThid) |
|
./pkg/mnc/mnc_cw_write_grid_info.F |
139 |
MNC_CW_WRITE_GRID_INFO |
CALL MNC_CW_RL_W('D',bfname(nf:nl),0,0,'yC',yC,myThid) |
|
./pkg/mnc/mnc_cw_cvars.F |
111 |
MNC_CW_WRITE_CVAR |
rtmp(i) = yC(1,i,bi,bj) |
|
./pkg/mnc/mnc_cw_cvars.F |
135 |
MNC_CW_WRITE_CVAR |
rtmp(i) = yC(1,i-OLy,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_init_fixed.F |
172 |
PROFILES_INIT_FIXED |
& (yC(1,1,bi,bj).LE.tmp_lat2(k)).AND. |
|
./pkg/profiles/profiles_init_fixed.F |
173 |
PROFILES_INIT_FIXED |
& (yC(1,sNy+1,bi,bj).GT.tmp_lat2(k)) |
|
./pkg/profiles/profiles_init_fixed.F |
188 |
PROFILES_INIT_FIXED |
& (yC(1,1,bi,bj).LE.tmp_lat2(k)).AND. |
|
./pkg/profiles/profiles_init_fixed.F |
189 |
PROFILES_INIT_FIXED |
& (yC(1,sNy+1,bi,bj).GT.tmp_lat2(k)) |
|
./pkg/fizhi/update_chemistry_exports.F |
74 |
UPDATE_CHEMISTRY_EXPORTS |
xlat(i,j) = yC(i,j,bi,bj) |
|
./pkg/fizhi/update_earth_exports.F |
66 |
UPDATE_EARTH_EXPORTS |
lats(i,j) = yC(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 |
78 |
FIZHI_INIT_FIXED |
lats(i,j,bi,bj) = yC(i,j,bi,bj) |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_fixed.F |
71 |
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/fizhi-cs-aqualev20/code/update_earth_exports.F |
66 |
UPDATE_EARTH_EXPORTS |
lats(i,j) = yC(i,j,bi,bj) |
|
./verification/fizhi-cs-aqualev20/code/fizhi_init_fixed.F |
77 |
FIZHI_INIT_FIXED |
lats(i,j,bi,bj) = yC(i,j,bi,bj) |
|
./verification/hs94.1x64x5/code/external_forcing.F |
193 |
EXTERNAL_FORCING_T |
term1=60. _d 0*(SIN(yC(i,j,bi,bj)*deg2rad)**2) |
|
./verification/hs94.1x64x5/code/external_forcing.F |
196 |
EXTERNAL_FORCING_T |
& *(COS(yC(i,j,bi,bj)*deg2rad)**2) |
|
./verification/hs94.1x64x5/code/external_forcing.F |
204 |
EXTERNAL_FORCING_T |
& *COS((yC(i,j,bi,bj)*deg2rad))**4 |
|
./verification/hs94.1x64x5/code/ini_theta.F |
71 |
INI_THETA |
term1=60. _d 0*(sin(yC(I,J,bi,bj)*deg2rad)**2) |
|
./verification/hs94.1x64x5/code/ini_theta.F |
73 |
INI_THETA |
& *(cos(yC(I,J,bi,bj)*deg2rad)**2) |
|
./verification/hs94.1x64x5/code_ad/external_forcing.F |
193 |
EXTERNAL_FORCING_T |
term1=60. _d 0*(SIN(yC(i,j,bi,bj)*deg2rad)**2) |
|
./verification/hs94.1x64x5/code_ad/external_forcing.F |
196 |
EXTERNAL_FORCING_T |
& *(COS(yC(i,j,bi,bj)*deg2rad)**2) |
|
./verification/hs94.1x64x5/code_ad/external_forcing.F |
204 |
EXTERNAL_FORCING_T |
& *COS((yC(i,j,bi,bj)*deg2rad))**4 |
|
./verification/hs94.1x64x5/code_ad/ini_theta.F |
71 |
INI_THETA |
term1=60. _d 0*(sin(yC(I,J,bi,bj)*deg2rad)**2) |
|
./verification/hs94.1x64x5/code_ad/ini_theta.F |
73 |
INI_THETA |
& *(cos(yC(I,J,bi,bj)*deg2rad)**2) |
|
./model/src/write_grid.F |
134 |
WRITE_GRID |
CALL MNC_CW_RL_W('D',bfname,0,0,'YC',yC,myThid) |
|
./verification/hs94.cs-32x32x5/code/external_forcing.F |
193 |
EXTERNAL_FORCING_T |
term1=60. _d 0*(SIN(yC(i,j,bi,bj)*deg2rad)**2) |
|
./verification/hs94.cs-32x32x5/code/external_forcing.F |
196 |
EXTERNAL_FORCING_T |
& *(COS(yC(i,j,bi,bj)*deg2rad)**2) |
|
./verification/hs94.cs-32x32x5/code/external_forcing.F |
204 |
EXTERNAL_FORCING_T |
& *COS((yC(i,j,bi,bj)*deg2rad))**4 |
|
./verification/hs94.cs-32x32x5/code/ini_theta.F |
71 |
INI_THETA |
term1=60. _d 0*(sin(yC(I,J,bi,bj)*deg2rad)**2) |
|
./verification/hs94.cs-32x32x5/code/ini_theta.F |
73 |
INI_THETA |
& *(cos(yC(I,J,bi,bj)*deg2rad)**2) |
|
./verification/tutorial_held_suarez_cs/code/external_forcing.F |
193 |
EXTERNAL_FORCING_T |
term1=60. _d 0*(SIN(yC(i,j,bi,bj)*deg2rad)**2) |
|
./verification/tutorial_held_suarez_cs/code/external_forcing.F |
196 |
EXTERNAL_FORCING_T |
& *(COS(yC(i,j,bi,bj)*deg2rad)**2) |
|
./verification/tutorial_held_suarez_cs/code/external_forcing.F |
204 |
EXTERNAL_FORCING_T |
& *COS((yC(i,j,bi,bj)*deg2rad))**4 |
|
./model/src/ini_depths.F |
221 |
INI_DEPTHS |
IF (usingSphericalPolarGrid .AND. abs(yC(I,J,bi,bj)).GE.90. ) |
|
./model/src/ini_depths.F |
238 |
INI_DEPTHS |
IF (usingSphericalPolarGrid .AND. abs(yC(I,J,bi,bj)).GE.90. ) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
515 |
ECCO_COST_WEIGHTS |
& yC(i,j,bi,bj) .GT. -10. .AND. |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
516 |
ECCO_COST_WEIGHTS |
& yC(i,j,bi,bj) .LT. 10. ) then |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
524 |
ECCO_COST_WEIGHTS |
& yC(i,j,bi,bj) .GT. 30. .AND. |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
525 |
ECCO_COST_WEIGHTS |
& yC(i,j,bi,bj) .LT. 48. ) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
529 |
ECCO_COST_WEIGHTS |
& yC(i,j,bi,bj) .GT. 30. .AND. |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
530 |
ECCO_COST_WEIGHTS |
& yC(i,j,bi,bj) .LT. 48. ) ) then |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
579 |
ECCO_COST_WEIGHTS |
& yC(i,j,bi,bj) .GT. -10. .AND. |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
580 |
ECCO_COST_WEIGHTS |
& yC(i,j,bi,bj) .LT. 10. ) then |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
589 |
ECCO_COST_WEIGHTS |
& yC(i,j,bi,bj) .GT. 30. .AND. |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
590 |
ECCO_COST_WEIGHTS |
& yC(i,j,bi,bj) .LT. 48. ) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
594 |
ECCO_COST_WEIGHTS |
& yC(i,j,bi,bj) .GT. 30. .AND. |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
595 |
ECCO_COST_WEIGHTS |
& yC(i,j,bi,bj) .LT. 48. ) ) then |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
514 |
ECCO_COST_WEIGHTS |
& yC(i,j,bi,bj) .GT. -10. .AND. |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
515 |
ECCO_COST_WEIGHTS |
& yC(i,j,bi,bj) .LT. 10. ) then |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
523 |
ECCO_COST_WEIGHTS |
& yC(i,j,bi,bj) .GT. 30. .AND. |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
524 |
ECCO_COST_WEIGHTS |
& yC(i,j,bi,bj) .LT. 48. ) |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
528 |
ECCO_COST_WEIGHTS |
& yC(i,j,bi,bj) .GT. 30. .AND. |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
529 |
ECCO_COST_WEIGHTS |
& yC(i,j,bi,bj) .LT. 48. ) ) then |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
576 |
ECCO_COST_WEIGHTS |
& yC(i,j,bi,bj) .GT. -10. .AND. |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
577 |
ECCO_COST_WEIGHTS |
& yC(i,j,bi,bj) .LT. 10. ) then |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
587 |
ECCO_COST_WEIGHTS |
& yC(i,j,bi,bj) .GT. 30. .AND. |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
588 |
ECCO_COST_WEIGHTS |
& yC(i,j,bi,bj) .LT. 48. ) |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
592 |
ECCO_COST_WEIGHTS |
& yC(i,j,bi,bj) .GT. 30. .AND. |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
593 |
ECCO_COST_WEIGHTS |
& yC(i,j,bi,bj) .LT. 48. ) ) then |
|
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F |
217 |
INI_DEPTHS |
& abs(yC(I,J,bi,bj)).GE.-phiMin) |
|
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F |
219 |
INI_DEPTHS |
IF (usingSphericalPolarGrid .AND. abs(yC(I,J,bi,bj)).GE.90. ) |
|
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F |
238 |
INI_DEPTHS |
& abs(yC(I,J,bi,bj)).GE.-phiMin) |
|
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F |
240 |
INI_DEPTHS |
IF (usingSphericalPolarGrid .AND. abs(yC(I,J,bi,bj)).GE.90. ) |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
233 |
AIM_SURF_BC |
& -((yC(i,j,bi,bj)-yBump)/dyBump)**2 ) |
|
./model/src/ini_spherical_polar_grid.F |
153 |
INI_SPHERICAL_POLAR_GRID |
yC(I,J,bi,bj) = 0.25*( |
|
./model/src/ini_spherical_polar_grid.F |
165 |
INI_SPHERICAL_POLAR_GRID |
lat = yC(I,J,bi,bj) |
|
./model/src/ini_spherical_polar_grid.F |
258 |
INI_SPHERICAL_POLAR_GRID |
lat=yC(I,J,bi,bj)-delY( jGl(J,bj) )*0.5 _d 0 |
|
./model/src/ini_spherical_polar_grid.F |
259 |
INI_SPHERICAL_POLAR_GRID |
lon=yC(I,J,bi,bj)+delY( jGl(J,bj) )*0.5 _d 0 |
|
./model/src/ini_spherical_polar_grid.F |
284 |
INI_SPHERICAL_POLAR_GRID |
lat=yC(I,J,bi,bj) |
|
./model/src/ini_spherical_polar_grid.F |
290 |
INI_SPHERICAL_POLAR_GRID |
lon=yC(I,J,bi,bj)-delY( jGl(J,bj) ) |
|
./model/src/ini_spherical_polar_grid.F |
291 |
INI_SPHERICAL_POLAR_GRID |
lat=yC(I,J,bi,bj) |
|
./model/src/ini_spherical_polar_grid.F |
329 |
INI_SPHERICAL_POLAR_GRID |
cosFacU(J,bi,bj)=COS(yC(1,J,bi,bj)*deg2rad) |
|
./model/src/ini_spherical_polar_grid.F |
331 |
INI_SPHERICAL_POLAR_GRID |
cosFacV(J,bi,bj)=COS((yC(1,J,bi,bj)-0.5*delY(jG))*deg2rad) |
|
./model/src/config_summary.F |
563 |
CONFIG_SUMMARY |
ycoord((bj-1)*sNy+J) = yC(1,J,1,bj) |
|
./model/src/ini_cylinder_grid.F |
149 |
INI_CYLINDER_GRID |
yC(I,J,bi,bj) = 0.25*( |
|
./model/src/ini_cylinder_grid.F |
157 |
INI_CYLINDER_GRID |
thisRad = yC(I,J,bi,bj) |
|
./model/src/ini_p_ground.F |
182 |
INI_P_GROUND |
yLatLoc = yC(i,j,bi,bj) |
|
./model/src/ini_p_ground.F |
324 |
INI_P_GROUND |
yLatLoc = yC(i,j,bi,bj) |
|
./model/src/ini_forcing.F |
104 |
INI_FORCING |
& abs(yC(i,j,bi,bj)).LE.latBandClimRelax ) THEN |
|
./model/src/ini_forcing.F |
98 |
INI_FORCING |
& abs(yC(i,j,bi,bj)).LE.latBandClimRelax ) THEN |
|
./model/src/ini_cartesian_grid.F |
130 |
INI_CARTESIAN_GRID |
yC(I,J,bi,bj) = 0.25*( |
|
./pkg/cfc/cfc11_forcing.F |
112 |
CFC11_FORCING |
IF(yC(i,j,bi,bj) .GE. yNorth) THEN |
|
./pkg/cfc/cfc11_forcing.F |
114 |
CFC11_FORCING |
ELSE IF(yC(i,j,bi,bj) .LE. ySouth) THEN |
|
./pkg/cfc/cfc11_forcing.F |
117 |
CFC11_FORCING |
xintp(j) = (yC(i,j,bi,bj) - ySouth)/ |
|
./pkg/cfc/cfc12_forcing.F |
112 |
CFC12_FORCING |
IF(yC(i,j,bi,bj) .GE. yNorth) THEN |
|
./pkg/cfc/cfc12_forcing.F |
114 |
CFC12_FORCING |
ELSE IF(yC(i,j,bi,bj) .LE. ySouth) THEN |
|
./pkg/cfc/cfc12_forcing.F |
117 |
CFC12_FORCING |
xintp(j) = (yC(i,j,bi,bj) - ySouth)/ |
|
./pkg/sbo/sbo_calc.F |
217 |
SBO_CALC |
lat_deg = yC(I,J,bi,bj) |
|
./pkg/sbo/sbo_calc.F |
218 |
SBO_CALC |
lat = yC(I,J,bi,bj) * pi / 180.0 |
|
./pkg/ecco/ecco_cost_weights.F |
544 |
ECCO_COST_WEIGHTS |
& yC(i,j,bi,bj) .GT. -10. .AND. |
|
./pkg/ecco/ecco_cost_weights.F |
545 |
ECCO_COST_WEIGHTS |
& yC(i,j,bi,bj) .LT. 10. ) then |
|
./pkg/ecco/ecco_cost_weights.F |
593 |
ECCO_COST_WEIGHTS |
& yC(i,j,bi,bj) .GT. -10. .AND. |
|
./pkg/ecco/ecco_cost_weights.F |
594 |
ECCO_COST_WEIGHTS |
& yC(i,j,bi,bj) .LT. 10. ) then |
|
./pkg/thsice/thsice_monitor.F |
120 |
THSICE_MONITOR |
I iceheight, iceMask, maskH, rA, yC, locDr, |
|
./pkg/thsice/thsice_monitor.F |
142 |
THSICE_MONITOR |
I snowheight, iceMask, maskH, rA, yC, locDr, |
|
./pkg/thsice/thsice_monitor.F |
174 |
THSICE_MONITOR |
I Tsrf, iceMask, maskH, rA, yC, locDr, |
|
./pkg/thsice/thsice_monitor.F |
195 |
THSICE_MONITOR |
I Tice1, iceMask, iceheight, rA, yC, locDr, |
|
./pkg/thsice/thsice_monitor.F |
220 |
THSICE_MONITOR |
I Tice2, iceMask, iceheight, rA, yC, locDr, |
|
./model/inc/GRID.h |
392 |
NO PROCEDURE |
& xC,yC,rA,rAw,rAs,rAz,xG,yG, |
|
./model/inc/GRID.h |
436 |
NO PROCEDURE |
_RS yC (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/land/land_monitor.F |
137 |
LAND_MONITOR |
I land_hSnow, land_frc, maskH, rA, yC, locDr, |
|
./pkg/land/land_monitor.F |
173 |
LAND_MONITOR |
I land_enthalp, land_frc, maskH, rA, yC, land_dzF, |
|
./pkg/land/land_monitor.F |
190 |
LAND_MONITOR |
I land_skinT, land_frc, maskH, rA, yC, locDr, |
|
./pkg/land/land_monitor.F |
218 |
LAND_MONITOR |
I land_groundT, land_frc, maskH, rA, yC, locDr, |
|
./pkg/land/land_monitor.F |
246 |
LAND_MONITOR |
I land_groundT, land_frc, maskH, rA, yC, locDr, |
|
./pkg/land/land_monitor.F |
274 |
LAND_MONITOR |
I land_groundW, land_frc, maskH, rA, yC, land_dzF, |