| File |
Line number |
Procedure |
Code |
|
./model/inc/GRID.h |
422 |
NO PROCEDURE |
& xC,yC,rA,rAw,rAs,rAz,xG,yG, |
|
./model/inc/GRID.h |
464 |
NO PROCEDURE |
_RS yG (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/exf/exf_interp.F |
18 |
EXF_INTERP |
I irecord, xG_in, yG, |
|
./pkg/exf/exf_interp.F |
357 |
EXF_INTERP |
& yG(i,j,bi,bj) .LT. y_in(0) .OR. |
|
./pkg/exf/exf_interp.F |
358 |
EXF_INTERP |
& yG(i,j,bi,bj) .GE. y_in(nyIn+1) ) THEN |
|
./pkg/exf/exf_interp.F |
367 |
EXF_INTERP |
& i,j,bi,bj, ' , xG,yG=', xG(i,j,bi,bj), yG(i,j,bi,bj) |
|
./pkg/exf/exf_interp.F |
404 |
EXF_INTERP |
IF ( yG(i,j,bi,bj) .LT. y_in(k) ) THEN |
|
./pkg/exf/exf_interp.F |
428 |
EXF_INTERP |
& 'EXF_INTERP: i,j,bi,bj=',i,j,bi,bj,' , yG=',yG(i,j,bi,bj) |
|
./pkg/exf/exf_interp.F |
455 |
EXF_INTERP |
I xG, yG, |
|
./pkg/exf/exf_interp.F |
65 |
EXF_INTERP |
_RS yG (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/exf/exf_interp_uv.F |
20 |
EXF_INTERP_UV |
I xG_in, yG, |
|
./pkg/exf/exf_interp_uv.F |
383 |
EXF_INTERP_UV |
& yG(i,j,bi,bj) .LT. y_in(0) .OR. |
|
./pkg/exf/exf_interp_uv.F |
384 |
EXF_INTERP_UV |
& yG(i,j,bi,bj) .GE. y_in(nyIn+1) ) THEN |
|
./pkg/exf/exf_interp_uv.F |
393 |
EXF_INTERP_UV |
& i,j,bi,bj, ' , xG,yG=', xG(i,j,bi,bj), yG(i,j,bi,bj) |
|
./pkg/exf/exf_interp_uv.F |
430 |
EXF_INTERP_UV |
IF ( yG(i,j,bi,bj) .LT. y_in(k) ) THEN |
|
./pkg/exf/exf_interp_uv.F |
454 |
EXF_INTERP_UV |
& 'EXF_INTERP_UV: i,j,bi,bj=',i,j,bi,bj,' , yG=',yG(i,j,bi,bj) |
|
./pkg/exf/exf_interp_uv.F |
481 |
EXF_INTERP_UV |
I xG, yG, |
|
./pkg/exf/exf_interp_uv.F |
489 |
EXF_INTERP_UV |
I xG, yG, |
|
./pkg/exf/exf_interp_uv.F |
73 |
EXF_INTERP_UV |
_RS yG (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/exf/exf_interpolate.F |
109 |
EXF_INTERPOLATE |
_RS yG (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/exf/exf_interpolate.F |
153 |
EXF_INTERPOLATE |
& + ew_val(k)*LAGRAN(k,yG(i,j,bi,bj),py_ind,sp) |
|
./pkg/exf/exf_interpolate.F |
165 |
EXF_INTERPOLATE |
& +ew_val1*LAGRAN(1,yG(i,j,bi,bj),py_ind,sp) |
|
./pkg/exf/exf_interpolate.F |
166 |
EXF_INTERPOLATE |
& +ew_val2*LAGRAN(2,yG(i,j,bi,bj),py_ind,sp) |
|
./pkg/exf/exf_interpolate.F |
192 |
EXF_INTERPOLATE |
& + ew_val(k)*LAGRAN(k,yG(i,j,bi,bj),py_ind,sp) |
|
./pkg/exf/exf_interpolate.F |
228 |
EXF_INTERPOLATE |
& ew_val1*LAGRAN(1,yG(i,j,bi,bj),py_ind,sp) |
|
./pkg/exf/exf_interpolate.F |
229 |
EXF_INTERPOLATE |
& +ew_val2*LAGRAN(2,yG(i,j,bi,bj),py_ind,sp) |
|
./pkg/exf/exf_interpolate.F |
230 |
EXF_INTERPOLATE |
& +ew_val3*LAGRAN(3,yG(i,j,bi,bj),py_ind,sp) |
|
./pkg/exf/exf_interpolate.F |
231 |
EXF_INTERPOLATE |
& +ew_val4*LAGRAN(4,yG(i,j,bi,bj),py_ind,sp) |
|
./pkg/exf/exf_interpolate.F |
67 |
EXF_INTERPOLATE |
I xG, yG, |
|
./pkg/exf/exf_set_uv.F |
299 |
EXF_SET_UV |
y1=yG(i,j,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
300 |
EXF_SET_UV |
y2=yG(i+1,j,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
301 |
EXF_SET_UV |
y3=yG(i,j+1,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
302 |
EXF_SET_UV |
y4=yG(i+1,j+1,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
460 |
EXF_SET_UV |
y1=yG(i,j,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
461 |
EXF_SET_UV |
y2=yG(i+1,j,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
462 |
EXF_SET_UV |
y3=yG(i,j+1,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
463 |
EXF_SET_UV |
y4=yG(i+1,j+1,bi,bj) |
|
./pkg/flt/flt_init_fixed.F |
42 |
FLT_INIT_FIXED |
yLo = -yG(1, 1, 1,1) |
|
./pkg/flt/flt_init_fixed.F |
43 |
FLT_INIT_FIXED |
yHi = yG(1,sNy+1,1,1) |
|
./pkg/flt/flt_init_fixed.F |
48 |
FLT_INIT_FIXED |
yLo = MAX( yLo, -yG(1,1,bi,bj) ) |
|
./pkg/flt/flt_init_fixed.F |
49 |
FLT_INIT_FIXED |
yHi = MAX( yHi, yG(1,sNy+1,bi,bj) ) |
|
./pkg/flt/flt_mapping.F |
137 |
FLT_MAP_IJLOCAL2XY |
yy = yG(i,j,bi,bj) + ddy*( yG(i,j+1,bi,bj) - yG(i,j,bi,bj) ) |
|
./pkg/flt/flt_mapping.F |
151 |
FLT_MAP_IJLOCAL2XY |
yy = yG(i,j,bi,bj) + ddx*( yG(i+1,j,bi,bj) - yG(i,j,bi,bj) ) |
|
./pkg/flt/flt_mapping.F |
152 |
FLT_MAP_IJLOCAL2XY |
& + ddy*( yG(i,j+1,bi,bj) - yG(i,j,bi,bj) ) |
|
./pkg/flt/flt_mapping.F |
153 |
FLT_MAP_IJLOCAL2XY |
& + ddx*ddy*( yG(i+1,j+1,bi,bj) - yG(i+1,j,bi,bj) |
|
./pkg/flt/flt_mapping.F |
154 |
FLT_MAP_IJLOCAL2XY |
& - yG(i,j+1,bi,bj) + yG(i,j,bi,bj) ) |
|
./pkg/flt/flt_mapping.F |
71 |
FLT_MAP_XY2IJLOCAL |
IF ( yG(i,j,bi,bj).LE.yy .AND. yy.LT.yG(i,j+1,bi,bj) ) THEN |
|
./pkg/flt/flt_mapping.F |
72 |
FLT_MAP_XY2IJLOCAL |
dist = yG(i,j+1,bi,bj) - yG(i,j,bi,bj) |
|
./pkg/flt/flt_mapping.F |
73 |
FLT_MAP_XY2IJLOCAL |
fm = ( yy - yG(i,j,bi,bj) ) / dist |
|
./model/src/calc_grid_angles.F |
100 |
CALC_GRID_ANGLES |
& ( yG(i,j,bi,bj) + yG(i,j+1,bi,bj) )*halfRL ) |
|
./model/src/calc_grid_angles.F |
103 |
CALC_GRID_ANGLES |
& *( SIN( yG(i,j+1,bi,bj)*deg2rad ) |
|
./model/src/calc_grid_angles.F |
104 |
CALC_GRID_ANGLES |
& - SIN( yG(i, j, bi,bj)*deg2rad ) |
|
./model/src/calc_grid_angles.F |
118 |
CALC_GRID_ANGLES |
& ( yG(i,j,bi,bj) + yG(i+1,j,bi,bj) )*halfRL ) |
|
./model/src/calc_grid_angles.F |
121 |
CALC_GRID_ANGLES |
& *( SIN( yG(i+1,j,bi,bj)*deg2rad ) |
|
./model/src/calc_grid_angles.F |
122 |
CALC_GRID_ANGLES |
& - SIN( yG(i,j,bi,bj)*deg2rad ) |
|
./model/src/calc_grid_angles.F |
58 |
CALC_GRID_ANGLES |
& - ( yG(i,j,bi,bj) - yG(i,j+1,bi,bj) )*deg2rad |
|
./model/src/calc_grid_angles.F |
70 |
CALC_GRID_ANGLES |
& + ( yG(i,j,bi,bj) - yG(i+1,j,bi,bj) )*deg2rad |
|
./pkg/mnc/mnc_cw_cvars.F |
246 |
MNC_CW_WRITE_CVAR |
rtmp(i) = yG(1,i,bi,bj) |
|
./pkg/mnc/mnc_cw_write_grid_info.F |
145 |
MNC_CW_WRITE_GRID_INFO |
CALL MNC_CW_RS_W('D',bfname(nf:nl),0,0,'yG',yG,myThid) |
|
./pkg/mnc/mnc_cw_write_grid_info.F |
199 |
MNC_CW_WRITE_GRID_COORD |
CALL MNC_CW_RS_W('R',fname,0,0,'YG',yG, myThid) |
|
./pkg/mom_fluxform/mom_u_metric_cylinder.F |
52 |
MOM_U_METRIC_CYLINDER |
radius = (yG(i,j,bi,bj)+yG(i,j+1,bi,bj))*0.5 _d 0 |
|
./pkg/mom_fluxform/mom_v_metric_cylinder.F |
52 |
MOM_V_METRIC_CYLINDER |
radius = (yG(i,j,bi,bj)+yG(i+1,j,bi,bj))*0.5 _d 0 |
|
./pkg/monitor/mon_ke.F |
210 |
MON_KE |
& ( yG(i,j,bi,bj) + yG(i,j+1,bi,bj) )*halfRL ) |
|
./pkg/monitor/mon_ke.F |
249 |
MON_KE |
& ( yG(i,j,bi,bj) + yG(i+1,j,bi,bj) )*halfRL ) |
|
./pkg/monitor/mon_ke.F |
282 |
MON_KE |
cosLat = COS( deg2rad*yG(i,j,bi,bj) ) |
|
./pkg/monitor/mon_vort3.F |
246 |
MON_VORT3 |
IF (yG(1,sNy+1,bi,bj).EQ.90.) THEN |
|
./pkg/monitor/mon_vort3.F |
265 |
MON_VORT3 |
IF (yG(1,1,bi,bj).EQ.-90.) THEN |
|
./model/src/ini_cartesian_grid.F |
76 |
INI_CARTESIAN_GRID |
yG(i,j,bi,bj) = yGloc(i,j) |
|
./model/src/ini_cori.F |
81 |
INI_CORI |
fCoriG(i,j,bi,bj) = f0+beta* yG(i,j,bi,bj)*facGrid |
|
./model/src/ini_cori.F |
97 |
INI_CORI |
& 2. _d 0*omega*sin(yG(i,j,bi,bj)*deg2rad) |
|
./model/src/ini_curvilinear_grid.F |
105 |
INI_CURVILINEAR_GRID |
yG(1,sNy+1,bj,1)=yG(1,1,bi,1) |
|
./model/src/ini_curvilinear_grid.F |
107 |
INI_CURVILINEAR_GRID |
yG(1,sNy+1,bj,1)=yG(1,1,bi,1) |
|
./model/src/ini_curvilinear_grid.F |
109 |
INI_CURVILINEAR_GRID |
yG(1,sNy+1,bj,1)=yG(1,1,bi,1) |
|
./model/src/ini_curvilinear_grid.F |
112 |
INI_CURVILINEAR_GRID |
yG(sNx+1,1,bj,1)=yG(1,1,bi,1) |
|
./model/src/ini_curvilinear_grid.F |
114 |
INI_CURVILINEAR_GRID |
yG(sNx+1,1,bj,1)=yG(1,1,bi,1) |
|
./model/src/ini_curvilinear_grid.F |
116 |
INI_CURVILINEAR_GRID |
yG(sNx+1,1,bj,1)=yG(1,1,bi,1) |
|
./model/src/ini_curvilinear_grid.F |
128 |
INI_CURVILINEAR_GRID |
CALL EXCH_Z_3D_RS( yG, 1, myThid ) |
|
./model/src/ini_curvilinear_grid.F |
228 |
INI_CURVILINEAR_GRID |
CALL MNC_CW_RS_R('D',mncFn,0,0,'YG', yG, myThid) |
|
./model/src/ini_curvilinear_grid.F |
309 |
INI_CURVILINEAR_GRID |
CALL MDS_FACEF_READ_RS( fName, fp, 7, yG, bi, bj, myThid ) |
|
./model/src/ini_curvilinear_grid.F |
376 |
INI_CURVILINEAR_GRID |
CALL EXCH_Z_3D_RS( yG, 1, myThid ) |
|
./model/src/ini_curvilinear_grid.F |
433 |
INI_CURVILINEAR_GRID |
CALL PLOT_FIELD_XYRS( yG , 'Current yG ', 0, myThid ) |
|
./model/src/ini_curvilinear_grid.F |
97 |
INI_CURVILINEAR_GRID |
CALL READ_REC_3D_RS( 'LATG.bin', fp, 1, yG, 1, 0, myThid ) |
|
./model/src/ini_cylinder_grid.F |
81 |
INI_CYLINDER_GRID |
yG(i,j,bi,bj) = yGloc(i,j) |
|
./model/src/ini_grid.F |
219 |
INI_GRID |
CALL MON_PRINTSTATS_RS(1,yG,'YG',myThid) |
|
./model/src/ini_grid.F |
76 |
INI_GRID |
yG(i,j,bi,bj) = 0. |
|
./pkg/zonal_filt/zonal_filt_init.F |
100 |
ZONAL_FILT_INIT |
ampFactorV(2*i,j,bi,bj) = ampfact( yG(1,j,bi,bj) , I ) |
|
./pkg/zonal_filt/zonal_filt_init.F |
108 |
ZONAL_FILT_INIT |
ampFactorV(Nx,j,bi,bj) = ampfact( yG(1,j,bi,bj) , i ) |
|
./pkg/zonal_filt/zonal_filter.F |
59 |
ZONAL_FILTER |
& .OR.(gridLoc.EQ.2 .AND.ABS(yG(2,j,bi,bj)).GE.zonal_filt_lat) |
|
./model/src/ini_spherical_polar_grid.F |
281 |
INI_SPHERICAL_POLAR_GRID |
CALL ROTATE_SPHERICAL_POLAR_GRID( xG, yG, myThid ) |
|
./model/src/ini_spherical_polar_grid.F |
81 |
INI_SPHERICAL_POLAR_GRID |
yG(i,j,bi,bj) = yGloc(i,j) |
|
./model/src/write_grid.F |
183 |
WRITE_GRID |
CALL MNC_CW_RS_W('D',bfname,0,0,'YG',yG,myThid) |
|
./model/src/write_grid.F |
87 |
WRITE_GRID |
CALL WRITE_FLD_XY_RS( 'YG',' ',yG,-1,myThid) |
|
./pkg/atm2d/init_atm2d.F |
110 |
INIT_ATM2D |
IF ((yG(1,j,1,1).GE.atm_yG(jj)).AND. |
|
./pkg/atm2d/init_atm2d.F |
111 |
INIT_ATM2D |
& (yG(1,j,1,1).LT.atm_yG(jj+1))) j_atm=jj |
|
./pkg/atm2d/init_atm2d.F |
115 |
INIT_ATM2D |
end1= sin(yG(1,j,1,1) *deg2rad) |
|
./pkg/atm2d/init_atm2d.F |
116 |
INIT_ATM2D |
end2= sin(yG(1,j+1,1,1) *deg2rad) |
|
./pkg/atm2d/init_atm2d.F |
119 |
INIT_ATM2D |
IF ( yG(1,j+1,1,1) .GT. atm_yG(j_atm+1) ) THEN |
|
./pkg/atm2d/init_atm2d.F |
136 |
INIT_ATM2D |
IF (( yG(1,j,1,1) .GE. atm_yC(jj)).AND. |
|
./pkg/atm2d/init_atm2d.F |
137 |
INIT_ATM2D |
& ( yG(1,j,1,1) .LT. atm_yC(jj+1))) j_atm=jj |
|
./pkg/atm2d/init_atm2d.F |
140 |
INIT_ATM2D |
tauv_jwght(j)= 1. _d 0 - (yG(1,j,1,1) - atm_yC(j_atm)) / |
|
./pkg/atm2d/init_atm2d.F |
86 |
INIT_ATM2D |
atm_oc_frac1(1)= (sin(yG(1,2,1,1)*deg2rad) - |
|
./pkg/atm2d/init_atm2d.F |
87 |
INIT_ATM2D |
& sin(yG(1,1,1,1)*deg2rad))/ |
|
./pkg/atm2d/init_atm2d.F |
92 |
INIT_ATM2D |
atm_oc_frac1(sNy)= (sin((yG(1,sNy,1,1) + |
|
./pkg/atm2d/init_atm2d.F |
94 |
INIT_ATM2D |
& sin(yG(1,sNy,1,1)*deg2rad))/ |
|
./pkg/cheapaml/cheapaml.F |
440 |
CHEAPAML |
& *( oneRL - (halfRL+ABS(yG(i,j,bi,bj))/230. _d 0) |
|
./pkg/diagnostics/diagnostics_set_calc.F |
115 |
DIAGNOSTICS_SET_CALC |
dyLoc = yG(i,j,bi,bj)-yPsi0 |
|
./pkg/diagnostics/diagnostics_set_calc.F |
87 |
DIAGNOSTICS_SET_CALC |
dyLoc = yG(i,j,bi,bj)-yPsi0 |