| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/update_ocean_exports.F |
184 |
GETSICE |
integer i,j,n,nn,iyear,iyearbc,nd,ndby3,imbc,jmbc |
|
./pkg/fizhi/update_ocean_exports.F |
205 |
GETSICE |
iyear = nymdmod/10000 |
|
./pkg/fizhi/update_ocean_exports.F |
211 |
GETSICE |
. WRITE(sicedata,'(A,I4)')'sice19232.weekly.y',iyear |
|
./pkg/fizhi/update_ocean_exports.F |
213 |
GETSICE |
. WRITE(sicedata,'(A,I4)')'sice612102.weekly.y',iyear |
|
./pkg/fizhi/update_ocean_exports.F |
233 |
GETSICE |
if( iyear.ne.iyearbc ) then |
|
./pkg/fizhi/update_ocean_exports.F |
261 |
GETSICE |
if (.not.error .and. iyear.ne.iyearbc .and. iyearbc.ne.0) then |
|
./pkg/fizhi/update_ocean_exports.F |
264 |
GETSICE |
write(6,*)'Requested Year: ', iyear |
|
./pkg/fizhi/update_ocean_exports.F |
445 |
GETSST |
integer i,j,n,nn,iyear,iyearbc,nd,ndby3,imbc,jmbc |
|
./pkg/fizhi/update_ocean_exports.F |
466 |
GETSST |
iyear = nymdmod/10000 |
|
./pkg/fizhi/update_ocean_exports.F |
472 |
GETSST |
. WRITE(sstdata,'(A,I4)')'sst19232.weekly.y',iyear |
|
./pkg/fizhi/update_ocean_exports.F |
474 |
GETSST |
. WRITE(sstdata,'(A,I4)')'sst612102.weekly.y',iyear |
|
./pkg/fizhi/update_ocean_exports.F |
493 |
GETSST |
if( iyear.ne.iyearbc ) then |
|
./pkg/fizhi/update_ocean_exports.F |
521 |
GETSST |
if (.not.error .and. iyear.ne.iyearbc .and. iyearbc.ne.0) then |
|
./pkg/fizhi/update_ocean_exports.F |
524 |
GETSST |
write(6,*)'Requested Year: ', iyear |
|
./pkg/cal/cal_monthsforyear.F |
119 |
CAL_MONTHSFORYEAR |
if ( iyear .eq. 1 ) then |
|
./pkg/cal/cal_monthsforyear.F |
122 |
CAL_MONTHSFORYEAR |
else if ( ( iyear .gt. 1 ) .and. |
|
./pkg/cal/cal_monthsforyear.F |
123 |
CAL_MONTHSFORYEAR |
& ( iyear .lt. numyears ) ) then |
|
./pkg/cal/cal_monthsforyear.F |
126 |
CAL_MONTHSFORYEAR |
& (iyear - 2)*nmonthyear + 1 |
|
./pkg/cal/cal_monthsforyear.F |
128 |
CAL_MONTHSFORYEAR |
& (iyear - 2)*nmonthyear + nmonthyear |
|
./pkg/cal/cal_monthsforyear.F |
129 |
CAL_MONTHSFORYEAR |
else if ( iyear .eq. numyears ) then |
|
./pkg/cal/cal_monthsforyear.F |
42 |
CAL_MONTHSFORYEAR |
integer iyear |
|
./pkg/cal/cal_monthsforyear.F |
79 |
CAL_MONTHSFORYEAR |
if ( iyear .eq. 1 ) then |
|
./pkg/cal/cal_monthsforyear.F |
7 |
CAL_MONTHSFORYEAR |
I iyear, |
|
./pkg/ecco/cost_bp_read.F |
106 |
COST_BP_READ |
iyear = mody + INT((modm-1+irec-1)/12) |
|
./pkg/ecco/cost_bp_read.F |
111 |
COST_BP_READ |
& localobsfile(1:il), '_', iyear |
|
./pkg/ecco/cost_bp_read.F |
72 |
COST_BP_READ |
integer iyear, imonth |
|
./pkg/ecco/cost_genread.F |
60 |
COST_GENREAD |
integer iyear, imon |
|
./pkg/ecco/cost_genread.F |
71 |
COST_GENREAD |
do iyear=1,nyearsINT |
|
./pkg/ecco/cost_genread.F |
72 |
COST_GENREAD |
imon=irec+(iyear-1)*preproc_i(1) |