| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/seaice_get_forcing.F |
154 |
SEAICE_GET_FORCING |
WRITE(fName,'(A,I4.4)') atempFile(1:iEnd), CurrentYear |
|
./pkg/seaice/seaice_get_forcing.F |
160 |
SEAICE_GET_FORCING |
WRITE(fName,'(A,I4.4)') aqhFile(1:iEnd), CurrentYear |
|
./pkg/seaice/seaice_get_forcing.F |
166 |
SEAICE_GET_FORCING |
WRITE(fName,'(A,I4.4)') lwdownFile(1:iEnd), CurrentYear |
|
./pkg/seaice/seaice_get_forcing.F |
172 |
SEAICE_GET_FORCING |
WRITE(fName,'(A,I4.4)') swdownFile(1:iEnd), CurrentYear |
|
./pkg/seaice/seaice_get_forcing.F |
178 |
SEAICE_GET_FORCING |
WRITE(fName,'(A,I4.4)') precipFile(1:iEnd), CurrentYear |
|
./pkg/seaice/seaice_get_forcing.F |
184 |
SEAICE_GET_FORCING |
WRITE(fName,'(A,I4.4)') evapFile(1:iEnd), CurrentYear |
|
./pkg/seaice/seaice_get_forcing.F |
190 |
SEAICE_GET_FORCING |
WRITE(fName,'(A,I4.4)') runoffFile(1:iEnd), CurrentYear |
|
./pkg/seaice/seaice_get_forcing.F |
282 |
SEAICE_GET_FORCING |
WRITE(fName,'(A,I4.4)') atempFile(1:iEnd), CurrentYear |
|
./pkg/seaice/seaice_get_forcing.F |
291 |
SEAICE_GET_FORCING |
WRITE(fName,'(A,I4.4)') aqhFile(1:iEnd), CurrentYear |
|
./pkg/seaice/seaice_get_forcing.F |
300 |
SEAICE_GET_FORCING |
WRITE(fName,'(A,I4.4)') lwdownFile(1:iEnd), CurrentYear |
|
./pkg/seaice/seaice_get_forcing.F |
309 |
SEAICE_GET_FORCING |
WRITE(fName,'(A,I4.4)') swdownFile(1:iEnd), CurrentYear |
|
./pkg/seaice/seaice_get_forcing.F |
318 |
SEAICE_GET_FORCING |
WRITE(fName,'(A,I4.4)') precipFile(1:iEnd), CurrentYear |
|
./pkg/seaice/seaice_get_forcing.F |
327 |
SEAICE_GET_FORCING |
WRITE(fName,'(A,I4.4)') evapFile(1:iEnd), CurrentYear |
|
./pkg/seaice/seaice_get_forcing.F |
336 |
SEAICE_GET_FORCING |
WRITE(fName,'(A,I4.4)') runoffFile(1:iEnd), CurrentYear |
|
./pkg/seaice/seaice_get_forcing.F |
51 |
SEAICE_GET_FORCING |
INTEGER CurrentYear, CurrentYear2 |
|
./pkg/seaice/seaice_get_forcing.F |
69 |
SEAICE_GET_FORCING |
CurrentYear = year |
|
./pkg/seaice/seaice_get_forcing.F |
74 |
SEAICE_GET_FORCING |
if( CurrentYear.ge.2000 ) then |
|
./pkg/seaice/seaice_get_forcing.F |
75 |
SEAICE_GET_FORCING |
CurrentYear2 = CurrentYear-2000 |
|
./pkg/seaice/seaice_get_forcing.F |
77 |
SEAICE_GET_FORCING |
CurrentYear2 = CurrentYear-1900 |
|
./pkg/seaice/seaice_get_forcing.F |
81 |
SEAICE_GET_FORCING |
IF( CurrentYear.gt. EndingYear .or. |