| File |
Line number |
Procedure |
Code |
|
./pkg/flt/flt_init_fixed.F |
41 |
FLT_INIT_FIXED |
yLo = -yG(1, 1, 1,1) |
|
./pkg/flt/flt_init_fixed.F |
42 |
FLT_INIT_FIXED |
yHi = yG(1,sNy+1,1,1) |
|
./pkg/flt/flt_init_fixed.F |
47 |
FLT_INIT_FIXED |
yLo = MAX( yLo, -yG(1,1,bi,bj) ) |
|
./pkg/flt/flt_init_fixed.F |
48 |
FLT_INIT_FIXED |
yHi = MAX( yHi, yG(1,sNy+1,bi,bj) ) |
|
./pkg/flt/flt_mapping.F |
134 |
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 |
148 |
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 |
149 |
FLT_MAP_IJLOCAL2XY |
& + ddy*( yG(i,j+1,bi,bj) - yG(i,j,bi,bj) ) |
|
./pkg/flt/flt_mapping.F |
150 |
FLT_MAP_IJLOCAL2XY |
& + ddx*ddy*( yG(i+1,j+1,bi,bj) - yG(i+1,j,bi,bj) |
|
./pkg/flt/flt_mapping.F |
151 |
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 |
|
./pkg/mnc/mnc_cw_cvars.F |
247 |
MNC_CW_WRITE_CVAR |
rtmp(i) = yG(1,i,bi,bj) |
|
./pkg/mnc/mnc_cw_write_grid_info.F |
137 |
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 |
191 |
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_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 |
|
./pkg/profiles/profiles_interp.F |
87 |
PROFILES_INTERP |
if ((yG(i,j,bi,bj).LE.lat_cur).AND. |
|
./pkg/profiles/profiles_interp.F |
88 |
PROFILES_INTERP |
& (yG(i,j+1,bi,bj).GT.lat_cur)) then |
|
./pkg/profiles/profiles_interp.F |
90 |
PROFILES_INTERP |
lat_1=yG(i,j,bi,bj) |
|
./pkg/profiles/profiles_interp.F |
91 |
PROFILES_INTERP |
lat_2=yG(i,j+1,bi,bj) |
|
./pkg/profiles/profiles_interp_mean.F |
87 |
PROFILES_INTERP_MEAN |
if ((yG(i,j,bi,bj).LE.lat_cur).AND. |
|
./pkg/profiles/profiles_interp_mean.F |
88 |
PROFILES_INTERP_MEAN |
& (yG(i,j+1,bi,bj).GT.lat_cur)) then |
|
./pkg/profiles/profiles_interp_mean.F |
90 |
PROFILES_INTERP_MEAN |
lat_1=yG(i,j,bi,bj) |
|
./pkg/profiles/profiles_interp_mean.F |
91 |
PROFILES_INTERP_MEAN |
lat_2=yG(i,j+1,bi,bj) |
|
./model/src/ini_cartesian_grid.F |
138 |
INI_CARTESIAN_GRID |
yG(i,j,bi,bj) = yGloc(i,j) |
|
./pkg/zonal_filt/zonal_filt_init.F |
90 |
ZONAL_FILT_INIT |
ampFactorV(2*i,j,bi,bj) = ampfact( yG(1,j,bi,bj) , I ) |
|
./pkg/zonal_filt/zonal_filt_init.F |
98 |
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_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 |
127 |
INI_CURVILINEAR_GRID |
CALL READ_REC_3D_RS( 'LATG.bin', fp, 1, yG, 1, 0, myThid ) |
|
./model/src/ini_curvilinear_grid.F |
135 |
INI_CURVILINEAR_GRID |
yG(1,sNy+1,bj,1)=yG(1,1,bi,1) |
|
./model/src/ini_curvilinear_grid.F |
137 |
INI_CURVILINEAR_GRID |
yG(1,sNy+1,bj,1)=yG(1,1,bi,1) |
|
./model/src/ini_curvilinear_grid.F |
139 |
INI_CURVILINEAR_GRID |
yG(1,sNy+1,bj,1)=yG(1,1,bi,1) |
|
./model/src/ini_curvilinear_grid.F |
142 |
INI_CURVILINEAR_GRID |
yG(sNx+1,1,bj,1)=yG(1,1,bi,1) |
|
./model/src/ini_curvilinear_grid.F |
144 |
INI_CURVILINEAR_GRID |
yG(sNx+1,1,bj,1)=yG(1,1,bi,1) |
|
./model/src/ini_curvilinear_grid.F |
146 |
INI_CURVILINEAR_GRID |
yG(sNx+1,1,bj,1)=yG(1,1,bi,1) |
|
./model/src/ini_curvilinear_grid.F |
158 |
INI_CURVILINEAR_GRID |
CALL EXCH_Z_3D_RS( yG, 1, myThid ) |
|
./model/src/ini_curvilinear_grid.F |
249 |
INI_CURVILINEAR_GRID |
CALL MNC_CW_RS_R('D',mncFn,0,0,'YG', yG, myThid) |
|
./model/src/ini_curvilinear_grid.F |
330 |
INI_CURVILINEAR_GRID |
CALL MDS_FACEF_READ_RS( fName, fp, 7, yG, bi, bj, myThid ) |
|
./model/src/ini_curvilinear_grid.F |
397 |
INI_CURVILINEAR_GRID |
CALL EXCH_Z_3D_RS( yG, 1, myThid ) |
|
./model/src/ini_curvilinear_grid.F |
443 |
INI_CURVILINEAR_GRID |
CALL PLOT_FIELD_XYRS( yG , 'Current yG ', 0, myThid ) |
|
./model/src/ini_curvilinear_grid.F |
73 |
INI_CURVILINEAR_GRID |
yG(i,j,bi,bj)=0. |
|
./model/src/ini_cylinder_grid.F |
144 |
INI_CYLINDER_GRID |
yG(i,j,bi,bj) = yGloc(i,j) |
|
./model/src/ini_grid.F |
129 |
INI_GRID |
CALL MON_PRINTSTATS_RS(1,yG,'YG',myThid) |
|
./model/src/ini_spherical_polar_grid.F |
148 |
INI_SPHERICAL_POLAR_GRID |
yG(i,j,bi,bj) = yGloc(i,j) |
|
./model/src/ini_spherical_polar_grid.F |
355 |
INI_SPHERICAL_POLAR_GRID |
CALL ROTATE_SPHERICAL_POLAR_GRID( xG, yG, myThid ) |
|
./model/src/rotate_spherical_polar_grid.F |
234 |
CALC_ANGLES |
& - ( yG(I,J,bi,bj) - yG(I,J+1,bi,bj) )*deg2rad |
|
./model/src/rotate_spherical_polar_grid.F |
241 |
CALC_ANGLES |
& + ( yG(I,J,bi,bj) - yG(I+1,J,bi,bj) )*deg2rad |
|
./model/src/write_grid.F |
163 |
WRITE_GRID |
CALL MNC_CW_RS_W('D',bfname,0,0,'YG',yG,myThid) |
|
./model/src/write_grid.F |
83 |
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))/ |
|
./model/inc/GRID.h |
421 |
NO PROCEDURE |
& xC,yC,rA,rAw,rAs,rAz,xG,yG, |
|
./model/inc/GRID.h |
463 |
NO PROCEDURE |
_RS yG (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/exf/exf_interp.F |
198 |
EXF_INTERP |
& yG(i,j,bi,bj) .lt. y_in(0) .or. |
|
./pkg/exf/exf_interp.F |
199 |
EXF_INTERP |
& yG(i,j,bi,bj) .ge. y_in(ny_in+1) ) then |
|
./pkg/exf/exf_interp.F |
203 |
EXF_INTERP |
print*,'xG,yG' ,xG(i,j,bi,bj),yG(i,j,bi,bj) |
|
./pkg/exf/exf_interp.F |
231 |
EXF_INTERP |
do while (yG(i,j,bi,bj) .lt. y_in(js)) |
|
./pkg/exf/exf_interp.F |
234 |
EXF_INTERP |
do while (yG(i,j,bi,bj) .ge. y_in(js+1)) |
|
./pkg/exf/exf_interp.F |
259 |
EXF_INTERP |
if (yG(i,j,bi,bj) .lt. y_in(s_ind(i,j))) then |
|
./pkg/exf/exf_interp.F |
282 |
EXF_INTERP |
if (yG(i,j,bi,bj) .ge. y_in(s_ind(i,j)+1)) then |
|
./pkg/exf/exf_interp.F |
316 |
EXF_INTERP |
& +ew_val(k)*lagran(k,yG(i,j,bi,bj),py_ind,sp) |
|
./pkg/exf/exf_interp.F |
328 |
EXF_INTERP |
& +ew_val1*lagran(1,yG(i,j,bi,bj),py_ind,sp) |
|
./pkg/exf/exf_interp.F |
329 |
EXF_INTERP |
& +ew_val2*lagran(2,yG(i,j,bi,bj),py_ind,sp) |
|
./pkg/exf/exf_interp.F |
356 |
EXF_INTERP |
& +ew_val(k)*lagran(k,yG(i,j,bi,bj),py_ind,sp) |
|
./pkg/exf/exf_interp.F |
396 |
EXF_INTERP |
& +ew_val1*lagran(1,yG(i,j,bi,bj),py_ind,sp) |
|
./pkg/exf/exf_interp.F |
397 |
EXF_INTERP |
& +ew_val2*lagran(2,yG(i,j,bi,bj),py_ind,sp) |
|
./pkg/exf/exf_interp.F |
398 |
EXF_INTERP |
& +ew_val3*lagran(3,yG(i,j,bi,bj),py_ind,sp) |
|
./pkg/exf/exf_interp.F |
399 |
EXF_INTERP |
& +ew_val4*lagran(4,yG(i,j,bi,bj),py_ind,sp) |
|
./pkg/exf/exf_interp.F |
51 |
EXF_INTERP |
I irecord, xG_in, yG, |
|
./pkg/exf/exf_interp.F |
81 |
EXF_INTERP |
_RS yG (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/exf/exf_set_uv.F |
160 |
EXF_SET_UV |
y1=yG(i,j,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
161 |
EXF_SET_UV |
y2=yG(i+1,j,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
162 |
EXF_SET_UV |
y3=yG(i,j+1,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
163 |
EXF_SET_UV |
y4=yG(i+1,j+1,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
240 |
EXF_SET_UV |
y1=yG(i,j,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
241 |
EXF_SET_UV |
y2=yG(i+1,j,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
242 |
EXF_SET_UV |
y3=yG(i,j+1,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
243 |
EXF_SET_UV |
y4=yG(i+1,j+1,bi,bj) |