| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_clockstuff.F |
1137 |
TIME2FREQ2 |
integer year, month, day, sec |
|
./pkg/fizhi/fizhi_clockstuff.F |
401 |
GET_TIME |
year = year + 1 |
|
./pkg/fizhi/fizhi_clockstuff.F |
912 |
ASTRO |
integer year, day, sec, month, iday, idayp1 |
|
./verification/fizhi-cs-aqualev20/code/fizhi_clockstuff.F |
1139 |
TIME2FREQ2 |
integer year, month, day, sec |
|
./verification/fizhi-cs-aqualev20/code/fizhi_clockstuff.F |
401 |
GET_TIME |
year = year + 1 |
|
./verification/fizhi-cs-aqualev20/code/fizhi_clockstuff.F |
914 |
ASTRO |
integer year, day, sec, month, iday, idayp1 |
|
./verification/global1x1_tot/code_taueddy/cfc_atmos.F |
30 |
CFC_ATMOS |
_RL year(100) |
|
./verification/global1x1_tot/code_taueddy/cfc_atmos.F |
64 |
CFC_ATMOS |
READ(Iunit,*) year(it),ACFC11(it,1),ACFC12(it,1), |
|
./pkg/cfc/cfc_atmos.F |
30 |
CFC_ATMOS |
_RL year(100) |
|
./pkg/cfc/cfc_atmos.F |
64 |
CFC_ATMOS |
READ(Iunit,*) year(it),ACFC11(it,1),ACFC12(it,1), |
|
./pkg/chronos/chronos.F |
337 |
GET_TIME |
year = year + 1 |
|
./pkg/chronos/chronos.F |
735 |
ASTRO |
integer year, day, sec, month, iday, idayp1 |
|
./pkg/cal/cal_isleap.F |
43 |
NO PROCEDURE |
integer year |
|
./pkg/cal/cal_isleap.F |
49 |
NO PROCEDURE |
if ( mod(year,4) .ne. 0 ) then |
|
./pkg/cal/cal_isleap.F |
53 |
NO PROCEDURE |
if ( (mod(year,100) .eq. 0) .and. |
|
./pkg/cal/cal_isleap.F |
54 |
NO PROCEDURE |
& (mod(year,400) .ne. 0) ) then |
|
./pkg/cal/cal_isleap.F |
59 |
NO PROCEDURE |
if ( mod(year,4) .ne. 0 ) then |
|
./pkg/cal/cal_isleap.F |
7 |
NO PROCEDURE |
I year, |
|
./pkg/seaice/seaice_get_forcing.F |
50 |
SEAICE_GET_FORCING |
_RL year, seconds, YearTime, four |
|
./pkg/seaice/seaice_get_forcing.F |
59 |
SEAICE_GET_FORCING |
do year = StartingYear, EndingYear |
|
./pkg/seaice/seaice_get_forcing.F |
61 |
SEAICE_GET_FORCING |
if( mod(year,four) .eq. 0. ) then |
|
./pkg/seaice/seaice_get_forcing.F |
69 |
SEAICE_GET_FORCING |
CurrentYear = year |