| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/SEAICE_PARAMS.h |
100 |
NO PROCEDURE |
& lwdownFile, swdownFile, precipFile, evapFile, runoffFile, |
|
./pkg/seaice/SEAICE_PARAMS.h |
95 |
NO PROCEDURE |
CHARACTER*(MAX_LEN_FNAM) precipFile |
|
./pkg/seaice/seaice_readparms.F |
167 |
SEAICE_READPARMS |
precipFile = ' ' |
|
./pkg/seaice/seaice_readparms.F |
63 |
SEAICE_READPARMS |
& swdownFile, precipFile, evapFile, runoffFile, HeffFile, |
|
./pkg/seaice/seaice_get_forcing.F |
176 |
SEAICE_GET_FORCING |
IF ( precipFile .NE. ' ' ) THEN |
|
./pkg/seaice/seaice_get_forcing.F |
177 |
SEAICE_GET_FORCING |
iEnd = ILNBLNK( precipFile ) - 4 |
|
./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 |
316 |
SEAICE_GET_FORCING |
IF ( precipFile .NE. ' ' ) THEN |
|
./pkg/seaice/seaice_get_forcing.F |
317 |
SEAICE_GET_FORCING |
iEnd = ILNBLNK( precipFile ) - 4 |
|
./pkg/seaice/seaice_get_forcing.F |
318 |
SEAICE_GET_FORCING |
WRITE(fName,'(A,I4.4)') precipFile(1:iEnd), CurrentYear |