35 |
c Number of Generic Cost terms: |
c Number of Generic Cost terms: |
36 |
c ============================= |
c ============================= |
37 |
INTEGER NGENCOST |
INTEGER NGENCOST |
38 |
PARAMETER ( NGENCOST=10 ) |
PARAMETER ( NGENCOST=20 ) |
39 |
|
|
40 |
c Number of days: (hard-coded to set up some vector dimensions |
c Number of days: (hard-coded to set up some vector dimensions |
41 |
c ============================= |
c ============================= |
895 |
& salt0errfile, |
& salt0errfile, |
896 |
& temp0errfile, |
& temp0errfile, |
897 |
& vel0errfile, |
& vel0errfile, |
898 |
|
& ssterrfile, |
899 |
|
& ssserrfile, |
900 |
& atemp_errfile, |
& atemp_errfile, |
901 |
& aqh_errfile, |
& aqh_errfile, |
902 |
& precip_errfile, |
& precip_errfile, |
944 |
character*(MAX_LEN_FNAM) salt0errfile |
character*(MAX_LEN_FNAM) salt0errfile |
945 |
character*(MAX_LEN_FNAM) temp0errfile |
character*(MAX_LEN_FNAM) temp0errfile |
946 |
character*(MAX_LEN_FNAM) vel0errfile |
character*(MAX_LEN_FNAM) vel0errfile |
947 |
|
character*(MAX_LEN_FNAM) ssterrfile |
948 |
|
character*(MAX_LEN_FNAM) ssserrfile |
949 |
character*(MAX_LEN_FNAM) atemp_errfile |
character*(MAX_LEN_FNAM) atemp_errfile |
950 |
character*(MAX_LEN_FNAM) aqh_errfile |
character*(MAX_LEN_FNAM) aqh_errfile |
951 |
character*(MAX_LEN_FNAM) precip_errfile |
character*(MAX_LEN_FNAM) precip_errfile |