| File |
Line number |
Procedure |
Code |
|
./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 |
264 |
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 |
66 |
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 |
211 |
MNC_CW_WRITE_CVAR |
rtmp(i) = yC(1,i,bi,bj) |
|
./pkg/mnc/mnc_cw_cvars.F |
283 |
MNC_CW_WRITE_CVAR |
rtmp(i) = yC(1,i-OLy,bi,bj) |
|
./pkg/mnc/mnc_cw_write_grid_info.F |
135 |
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 |
189 |
MNC_CW_WRITE_GRID_COORD |
CALL MNC_CW_RS_W('R',fname,0,0,'YC',yC, myThid) |
|
./model/src/config_summary.F |
661 |
CONFIG_SUMMARY |
CALL WRITE_XY_YLINE_RS( yC, coordLine, tileLine, 'yC', |
|
./pkg/profiles/profiles_init_fixed.F |
285 |
PROFILES_INIT_FIXED |
& (yC(1,1,bi,bj).LE.tmp_lat2(k)).AND. |
|
./pkg/profiles/profiles_init_fixed.F |
286 |
PROFILES_INIT_FIXED |
& (yC(1,sNy+1,bi,bj).GT.tmp_lat2(k)) |
|
./pkg/profiles/profiles_init_fixed.F |
304 |
PROFILES_INIT_FIXED |
& (yC(1,1,bi,bj).LE.tmp_lat2(k)).AND. |
|
./pkg/profiles/profiles_init_fixed.F |
305 |
PROFILES_INIT_FIXED |
& (yC(1,sNy+1,bi,bj).GT.tmp_lat2(k)) |
|
./pkg/profiles/profiles_init_fixed.F |
326 |
PROFILES_INIT_FIXED |
& ( abs( tmp_yC11(k) - yC(1,1,bi,bj) ).LT.0.0001 ) .AND. |
|
./pkg/profiles/profiles_init_fixed.F |
328 |
PROFILES_INIT_FIXED |
& ( abs( tmp_yCNINJ(k) - yC(sNx,sNy,bi,bj) ).LT.0.0001 ) ) then |
|
./pkg/profiles/profiles_init_fixed.F |
618 |
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 |
215 |
SBO_CALC |
lat_deg = yC(i,j,bi,bj) |
|
./pkg/sbo/sbo_calc.F |
216 |
SBO_CALC |
lat = yC(i,j,bi,bj) * pi / 180.0 |
|
./pkg/thsice/thsice_monitor.F |
131 |
THSICE_MONITOR |
I iceHeight, locMask, maskInC, rA, yC, locDr, |
|
./pkg/thsice/thsice_monitor.F |
153 |
THSICE_MONITOR |
I snowHeight, locMask, maskInC, rA, yC, locDr, |
|
./pkg/thsice/thsice_monitor.F |
172 |
THSICE_MONITOR |
I Tsrf, locMask, maskInC, rA, yC, locDr, |
|
./pkg/thsice/thsice_monitor.F |
204 |
THSICE_MONITOR |
I Tice1, locMask, maskInC, rA, yC, locDr, |
|
./pkg/thsice/thsice_monitor.F |
229 |
THSICE_MONITOR |
I Tice2, locMask, maskInC, rA, yC, locDr, |
|
./model/src/ini_cartesian_grid.F |
148 |
INI_CARTESIAN_GRID |
yC(i,j,bi,bj) = 0.25 _d 0*( |
|
./pkg/zonal_filt/zonal_filt_init.F |
87 |
ZONAL_FILT_INIT |
ampFactor(2*i,j,bi,bj) = ampfact( yC(1,j,bi,bj) , I ) |
|
./pkg/zonal_filt/zonal_filt_init.F |
97 |
ZONAL_FILT_INIT |
ampFactor(Nx,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_curvilinear_grid.F |
110 |
INI_CURVILINEAR_GRID |
CALL READ_REC_3D_RS( 'LATC.bin', fp, 1, yC, 1, 0, myThid ) |
|
./model/src/ini_curvilinear_grid.F |
112 |
INI_CURVILINEAR_GRID |
_EXCH_XY_RS(yC,myThid) |
|
./model/src/ini_curvilinear_grid.F |
248 |
INI_CURVILINEAR_GRID |
CALL MNC_CW_RS_R('D',mncFn,0,0,'YC', yC, myThid) |
|
./model/src/ini_curvilinear_grid.F |
315 |
INI_CURVILINEAR_GRID |
CALL MDS_FACEF_READ_RS( fName, fp, 2, yC, bi, bj, myThid ) |
|
./model/src/ini_curvilinear_grid.F |
393 |
INI_CURVILINEAR_GRID |
CALL EXCH_XY_RS(yC,myThid) |
|
./model/src/ini_curvilinear_grid.F |
438 |
INI_CURVILINEAR_GRID |
CALL PLOT_FIELD_XYRS( yC , 'Current yC ', 0, myThid ) |
|
./model/src/ini_curvilinear_grid.F |
71 |
INI_CURVILINEAR_GRID |
yC(i,j,bi,bj)=0. |
|
./model/src/ini_cylinder_grid.F |
154 |
INI_CYLINDER_GRID |
yC(i,j,bi,bj) = 0.25 _d 0*( |
|
./model/src/ini_cylinder_grid.F |
162 |
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. ) |
|
./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 |
239 |
AIM_SURF_BC |
SJ = SIN(yC(i,j,bi,bj) * deg2rad) |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
240 |
AIM_SURF_BC |
CJ = COS(yC(i,j,bi,bj) * deg2rad) |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
326 |
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_forcing.F |
102 |
INI_FORCING |
& ABS(yC(i,j,bi,bj)).LE.latBandClimRelax ) THEN |
|
./model/src/ini_forcing.F |
96 |
INI_FORCING |
& ABS(yC(i,j,bi,bj)).LE.latBandClimRelax ) THEN |
|
./model/src/ini_grid.F |
128 |
INI_GRID |
CALL MON_PRINTSTATS_RS(1,yC,'YC',myThid) |
|
./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 |
71 |
FIZHI_INIT_FIXED |
lats(i,j,bi,bj) = yC(i,j,bi,bj) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
516 |
ECCO_COST_WEIGHTS |
& yC(i,j,bi,bj) .GT. -10. .AND. |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
517 |
ECCO_COST_WEIGHTS |
& yC(i,j,bi,bj) .LT. 10. ) then |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
525 |
ECCO_COST_WEIGHTS |
& yC(i,j,bi,bj) .GT. 30. .AND. |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
526 |
ECCO_COST_WEIGHTS |
& yC(i,j,bi,bj) .LT. 48. ) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
530 |
ECCO_COST_WEIGHTS |
& yC(i,j,bi,bj) .GT. 30. .AND. |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
531 |
ECCO_COST_WEIGHTS |
& yC(i,j,bi,bj) .LT. 48. ) ) then |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
580 |
ECCO_COST_WEIGHTS |
& yC(i,j,bi,bj) .GT. -10. .AND. |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
581 |
ECCO_COST_WEIGHTS |
& yC(i,j,bi,bj) .LT. 10. ) then |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
590 |
ECCO_COST_WEIGHTS |
& yC(i,j,bi,bj) .GT. 30. .AND. |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
591 |
ECCO_COST_WEIGHTS |
& yC(i,j,bi,bj) .LT. 48. ) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
595 |
ECCO_COST_WEIGHTS |
& yC(i,j,bi,bj) .GT. 30. .AND. |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
596 |
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 |
|
./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) |
|
./model/src/ini_spherical_polar_grid.F |
158 |
INI_SPHERICAL_POLAR_GRID |
yC(i,j,bi,bj) = 0.25 _d 0*( |
|
./model/src/ini_spherical_polar_grid.F |
170 |
INI_SPHERICAL_POLAR_GRID |
lat = yC(i,j,bi,bj) |
|
./model/src/ini_spherical_polar_grid.F |
176 |
INI_SPHERICAL_POLAR_GRID |
& COS(yC(i,j,bi,bj)*deg2rad) |
|
./model/src/ini_spherical_polar_grid.F |
263 |
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 |
264 |
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 |
289 |
INI_SPHERICAL_POLAR_GRID |
lat=yC(i,j,bi,bj) |
|
./model/src/ini_spherical_polar_grid.F |
295 |
INI_SPHERICAL_POLAR_GRID |
lon=yC(i,j,bi,bj)-delY( jGl(j,bj) ) |
|
./model/src/ini_spherical_polar_grid.F |
296 |
INI_SPHERICAL_POLAR_GRID |
lat=yC(i,j,bi,bj) |
|
./model/src/ini_spherical_polar_grid.F |
334 |
INI_SPHERICAL_POLAR_GRID |
cosFacU(j,bi,bj)=COS(yC(1,j,bi,bj)*deg2rad) |
|
./model/src/ini_spherical_polar_grid.F |
336 |
INI_SPHERICAL_POLAR_GRID |
cosFacV(j,bi,bj)=COS((yC(1,j,bi,bj)-0.5*delY(jG))*deg2rad) |
|
./model/src/ini_spherical_polar_grid.F |
354 |
INI_SPHERICAL_POLAR_GRID |
CALL ROTATE_SPHERICAL_POLAR_GRID( xC, yC, myThid ) |
|
./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/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 |
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/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 |
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.cs-32x32x5/code/external_forcing.F |
227 |
EXTERNAL_FORCING_T |
term1=60. _d 0*(SIN(yC(i,j,bi,bj)*deg2rad)**2) |
|
./verification/hs94.cs-32x32x5/code/external_forcing.F |
230 |
EXTERNAL_FORCING_T |
& *(COS(yC(i,j,bi,bj)*deg2rad)**2) |
|
./verification/hs94.cs-32x32x5/code/external_forcing.F |
252 |
EXTERNAL_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_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/write_grid.F |
157 |
WRITE_GRID |
CALL MNC_CW_RS_W('D',bfname,0,0,'YC',yC,myThid) |
|
./model/src/write_grid.F |
81 |
WRITE_GRID |
CALL WRITE_FLD_XY_RS( 'YC',' ',yC,-1,myThid) |
|
./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/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/cfc/cfc11_forcing.F |
115 |
CFC11_FORCING |
IF(yC(i,j,bi,bj) .GE. yNorth) THEN |
|
./pkg/cfc/cfc11_forcing.F |
117 |
CFC11_FORCING |
ELSE IF(yC(i,j,bi,bj) .LE. ySouth) THEN |
|
./pkg/cfc/cfc11_forcing.F |
120 |
CFC11_FORCING |
xintp(j) = (yC(i,j,bi,bj) - ySouth)/ |
|
./pkg/cfc/cfc12_forcing.F |
115 |
CFC12_FORCING |
IF(yC(i,j,bi,bj) .GE. yNorth) THEN |
|
./pkg/cfc/cfc12_forcing.F |
117 |
CFC12_FORCING |
ELSE IF(yC(i,j,bi,bj) .LE. ySouth) THEN |
|
./pkg/cfc/cfc12_forcing.F |
120 |
CFC12_FORCING |
xintp(j) = (yC(i,j,bi,bj) - ySouth)/ |
|
./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/ebm/ebm_atmosphere.F |
101 |
EBM_ATMOSPHERE |
ELSE IF (yC(1,j,bi,bj) .EQ. 74.0) THEN |
|
./pkg/ebm/ebm_atmosphere.F |
103 |
EBM_ATMOSPHERE |
ELSE IF (yC(1,j,bi,bj) .EQ. 70.0) THEN |
|
./pkg/ebm/ebm_atmosphere.F |
105 |
EBM_ATMOSPHERE |
ELSE IF (yC(1,j,bi,bj) .EQ. 66.0) THEN |
|
./pkg/ebm/ebm_atmosphere.F |
107 |
EBM_ATMOSPHERE |
ELSE IF (yC(1,j,bi,bj) .EQ. 62.0) THEN |
|
./pkg/ebm/ebm_atmosphere.F |
206 |
EBM_ATMOSPHERE |
S(i,j,bj) = sin(yC(i,j,bi,bj)*deg2rad) |
|
./pkg/ebm/ebm_atmosphere.F |
222 |
EBM_ATMOSPHERE |
IF (yC(i,j,bi,bj) .LT. 0.) THEN |
|
./pkg/ebm/ebm_atmosphere.F |
303 |
EBM_ATMOSPHERE |
IF (yC(i,j,bi,bj) .LT. -40.) THEN |
|
./pkg/ebm/ebm_atmosphere.F |
99 |
EBM_ATMOSPHERE |
IF (yC(1,j,bi,bj) .LE. -62.0) THEN |
|
./pkg/ebm/ebm_load_climatology.F |
62 |
EBM_LOAD_CLIMATOLOGY |
distY = (yC(i,j,bi,bj)- 0. )/lY |
|
./pkg/ecco/ecco_cost_weights.F |
602 |
ECCO_COST_WEIGHTS |
& yC(i,j,bi,bj) .GT. -10. .AND. |
|
./pkg/ecco/ecco_cost_weights.F |
603 |
ECCO_COST_WEIGHTS |
& yC(i,j,bi,bj) .LT. 10. ) then |
|
./pkg/ecco/ecco_cost_weights.F |
714 |
ECCO_COST_WEIGHTS |
& yC(i,j,bi,bj) .GT. -10. .AND. |
|
./pkg/ecco/ecco_cost_weights.F |
715 |
ECCO_COST_WEIGHTS |
& yC(i,j,bi,bj) .LT. 10. ) then |
|
./model/inc/GRID.h |
421 |
NO PROCEDURE |
& xC,yC,rA,rAw,rAs,rAz,xG,yG, |
|
./model/inc/GRID.h |
462 |
NO PROCEDURE |
_RS yC (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/exf/exf_getclim.F |
108 |
EXF_GETCLIM |
& climsss_nlon, climsss_nlat, xC, yC, interp_method, |
|
./pkg/exf/exf_getclim.F |
79 |
EXF_GETCLIM |
& climsst_nlon, climsst_nlat, xC, yC, interp_method, |
|
./pkg/exf/exf_getffields.F |
100 |
EXF_GETFFIELDS |
& wspeed_nlon, wspeed_nlat, xC, yC, interp_method, |
|
./pkg/exf/exf_getffields.F |
161 |
EXF_GETFFIELDS |
& hflux_nlon, hflux_nlat, xC, yC, interp_method, |
|
./pkg/exf/exf_getffields.F |
173 |
EXF_GETFFIELDS |
& sflux_nlon, sflux_nlat, xC, yC, interp_method, |
|
./pkg/exf/exf_getffields.F |
187 |
EXF_GETFFIELDS |
& atemp_nlon, atemp_nlat, xC, yC, interp_method, |
|
./pkg/exf/exf_getffields.F |
208 |
EXF_GETFFIELDS |
& aqh_nlon, aqh_nlat, xC, yC, interp_method, |
|
./pkg/exf/exf_getffields.F |
220 |
EXF_GETFFIELDS |
& lwflux_nlon, lwflux_nlat, xC, yC, interp_method, |
|
./pkg/exf/exf_getffields.F |
232 |
EXF_GETFFIELDS |
& precip_nlon, precip_nlat, xC, yC, interp_method, |
|
./pkg/exf/exf_getffields.F |
245 |
EXF_GETFFIELDS |
& snowprecip_nlon, snowprecip_nlat, xC, yC, interp_method, |
|
./pkg/exf/exf_getffields.F |
260 |
EXF_GETFFIELDS |
& swflux_nlon, swflux_nlat, xC, yC, interp_method, |
|
./pkg/exf/exf_getffields.F |
274 |
EXF_GETFFIELDS |
& evap_nlon, evap_nlat, xC, yC, interp_method, |
|
./pkg/exf/exf_getffields.F |
289 |
EXF_GETFFIELDS |
& swdown_nlon, swdown_nlat, xC, yC, interp_method, |
|
./pkg/exf/exf_getffields.F |
301 |
EXF_GETFFIELDS |
& lwdown_nlon, lwdown_nlat, xC, yC, interp_method, |
|
./pkg/exf/exf_getffields.F |
316 |
EXF_GETFFIELDS |
& apressure_lat_inc, apressure_nlon, apressure_nlat, xC, yC, |
|
./pkg/exf/exf_getffields.F |
331 |
EXF_GETFFIELDS |
& areamask_lat_inc, areamask_nlon, areamask_nlat, xC, yC, |
|
./pkg/exf/exf_getffields.F |
354 |
EXF_GETFFIELDS |
& runoff_lat_inc, runoff_nlon, runoff_nlat, xC, yC, |
|
./pkg/exf/exf_init.F |
112 |
EXF_INIT |
& uwind_nlon, uwind_nlat, xC, yC, interp_method, |
|
./pkg/exf/exf_init.F |
128 |
EXF_INIT |
& vwind_nlon, vwind_nlat, xC, yC, interp_method, |
|
./pkg/exf/exf_init.F |
142 |
EXF_INIT |
& wspeed_nlon, wspeed_nlat, xC, yC, interp_method, |
|
./pkg/exf/exf_init.F |
152 |
EXF_INIT |
& hflux_nlon, hflux_nlat, xC, yC, interp_method, |
|
./pkg/exf/exf_init.F |
162 |
EXF_INIT |
& sflux_nlon, sflux_nlat, xC, yC, interp_method, |
|
./pkg/exf/exf_init.F |
174 |
EXF_INIT |
& atemp_nlon, atemp_nlat, xC, yC, interp_method, |
|
./pkg/exf/exf_init.F |
184 |
EXF_INIT |
& aqh_nlon, aqh_nlat, xC, yC, interp_method, |
|
./pkg/exf/exf_init.F |
194 |
EXF_INIT |
& lwflux_nlon, lwflux_nlat, xC, yC, interp_method, |
|
./pkg/exf/exf_init.F |
204 |
EXF_INIT |
& precip_nlon, precip_nlat, xC, yC, interp_method, |
|
./pkg/exf/exf_init.F |
215 |
EXF_INIT |
& snowprecip_nlon, snowprecip_nlat, xC, yC, interp_method, |
|
./pkg/exf/exf_init.F |
228 |
EXF_INIT |
& swflux_nlon, swflux_nlat, xC, yC, interp_method, |
|
./pkg/exf/exf_init.F |
240 |
EXF_INIT |
& evap_nlon, evap_nlat, xC, yC, interp_method, |
|
./pkg/exf/exf_init.F |
253 |
EXF_INIT |
& swdown_nlon, swdown_nlat, xC, yC, interp_method, |
|
./pkg/exf/exf_init.F |
263 |
EXF_INIT |
& lwdown_nlon, lwdown_nlat, xC, yC, interp_method, |
|
./pkg/exf/exf_init.F |
277 |
EXF_INIT |
& apressure_nlon, apressure_nlat, xC, yC, interp_method, |
|
./pkg/exf/exf_init.F |
290 |
EXF_INIT |
& areamask_nlon, areamask_nlat, xC, yC, interp_method, |
|
./pkg/exf/exf_init.F |
308 |
EXF_INIT |
& runoff_nlon, runoff_nlat, xC, yC, interp_method, |
|
./pkg/exf/exf_init.F |
322 |
EXF_INIT |
& climsst_nlon, climsst_nlat, xC, yC, interp_method, |
|
./pkg/exf/exf_init.F |
335 |
EXF_INIT |
& climsss_nlon, climsss_nlat, xC, yC, interp_method, |
|
./pkg/exf/exf_init.F |
348 |
EXF_INIT |
& climustr_nlon, climustr_nlat, xC, yC, interp_method, |
|
./pkg/exf/exf_init.F |
359 |
EXF_INIT |
& climvstr_nlon, climvstr_nlat, xC, yC, interp_method, |
|
./pkg/exf/exf_init.F |
78 |
EXF_INIT |
& ustress_nlon, ustress_nlat, xC, yC, interp_method, |
|
./pkg/exf/exf_init.F |
94 |
EXF_INIT |
& vstress_nlon, vstress_nlat, xC, yC, interp_method, |
|
./pkg/exf/exf_set_uv.F |
133 |
EXF_SET_UV |
& , tmp_u, count0, xC, yC |
|
./pkg/exf/exf_set_uv.F |
140 |
EXF_SET_UV |
& , tmp_v, count0, xC, yC |
|
./pkg/exf/exf_set_uv.F |
166 |
EXF_SET_UV |
& cos(deg2rad*yC(i,j,bi,bj)) |
|
./pkg/exf/exf_set_uv.F |
174 |
EXF_SET_UV |
& cos(deg2rad*yC(i,j,bi,bj)) |
|
./pkg/exf/exf_set_uv.F |
213 |
EXF_SET_UV |
& , tmp_u, count1, xC, yC |
|
./pkg/exf/exf_set_uv.F |
220 |
EXF_SET_UV |
& , tmp_v, count1, xC, yC |
|
./pkg/exf/exf_set_uv.F |
246 |
EXF_SET_UV |
& cos(deg2rad*yC(i,j,bi,bj)) |
|
./pkg/exf/exf_set_uv.F |
254 |
EXF_SET_UV |
& cos(deg2rad*yC(i,j,bi,bj)) |
|
./pkg/exf/exf_set_uv.F |
303 |
EXF_SET_UV |
& uvec_nlon, uvec_nlat, xC, yC, interp_method, |
|
./pkg/exf/exf_set_uv.F |
312 |
EXF_SET_UV |
& vvec_nlon, vvec_nlat, xC, yC, interp_method, |
|
./pkg/exf/exf_zenithangle.F |
163 |
EXF_ZENITHANGLE |
SJ = SIN(yC(i,j,bi,bj) * deg2rad) |
|
./pkg/exf/exf_zenithangle.F |
164 |
EXF_ZENITHANGLE |
CJ = COS(yC(i,j,bi,bj) * deg2rad) |
|
./pkg/exf/exf_zenithangle.F |
269 |
EXF_ZENITHANGLE |
SJ = SIN(yC(i,j,bi,bj) * deg2rad) |
|
./pkg/exf/exf_zenithangle.F |
270 |
EXF_ZENITHANGLE |
CJ = COS(yC(i,j,bi,bj) * deg2rad) |
|
./pkg/exf/exf_zenithangle.F |
279 |
EXF_ZENITHANGLE |
H0 = -tan( yC(i,j,bi,bj) *deg2rad ) * tan( DECLI ) |
|
./pkg/exf/exf_zenithangle_table.F |
133 |
EXF_ZENITHANGLE_TABLE |
LLLAT=yC(i,j,bi,bj)+91. _d 0 |