37 |
INTEGER NGENCOST |
INTEGER NGENCOST |
38 |
PARAMETER ( NGENCOST=20 ) |
PARAMETER ( NGENCOST=20 ) |
39 |
|
|
40 |
|
c Number of sshv4cost Cost terms: |
41 |
|
c ============================= |
42 |
|
INTEGER NSSHV4COST |
43 |
|
PARAMETER ( NSSHV4COST=5 ) |
44 |
|
|
45 |
c Number of days: (hard-coded to set up some vector dimensions |
c Number of days: (hard-coded to set up some vector dimensions |
46 |
c ============================= |
c ============================= |
47 |
c 17 years: 6210 |
c 17 years: 6210 |
357 |
& objf_tp, |
& objf_tp, |
358 |
& objf_ers, |
& objf_ers, |
359 |
& objf_gfo, |
& objf_gfo, |
360 |
|
& objf_sshv4cost, |
361 |
& objf_temp, |
& objf_temp, |
362 |
& objf_salt, |
& objf_salt, |
363 |
& objf_temp0, |
& objf_temp0, |
457 |
_RL objf_tp (nsx,nsy) |
_RL objf_tp (nsx,nsy) |
458 |
_RL objf_ers (nsx,nsy) |
_RL objf_ers (nsx,nsy) |
459 |
_RL objf_gfo (nsx,nsy) |
_RL objf_gfo (nsx,nsy) |
460 |
|
_RL objf_sshv4cost(NSSHV4COST,nsx,nsy) |
461 |
_RL objf_temp (nsx,nsy) |
_RL objf_temp (nsx,nsy) |
462 |
_RL objf_salt (nsx,nsy) |
_RL objf_salt (nsx,nsy) |
463 |
_RL objf_temp0(nsx,nsy) |
_RL objf_temp0(nsx,nsy) |
555 |
& num_tp, |
& num_tp, |
556 |
& num_ers, |
& num_ers, |
557 |
& num_gfo, |
& num_gfo, |
558 |
|
& num_sshv4cost, |
559 |
& num_temp, |
& num_temp, |
560 |
& num_salt, |
& num_salt, |
561 |
& num_temp0, |
& num_temp0, |
637 |
_RL num_tp (nsx,nsy) |
_RL num_tp (nsx,nsy) |
638 |
_RL num_ers (nsx,nsy) |
_RL num_ers (nsx,nsy) |
639 |
_RL num_gfo (nsx,nsy) |
_RL num_gfo (nsx,nsy) |
640 |
|
_RL num_sshv4cost(NSSHV4COST,nsx,nsy) |
641 |
_RL num_temp (nsx,nsy) |
_RL num_temp (nsx,nsy) |
642 |
_RL num_salt (nsx,nsy) |
_RL num_salt (nsx,nsy) |
643 |
_RL num_temp0(nsx,nsy) |
_RL num_temp0(nsx,nsy) |
716 |
& mult_tp, |
& mult_tp, |
717 |
& mult_ers, |
& mult_ers, |
718 |
& mult_gfo, |
& mult_gfo, |
719 |
|
& mult_sshv4cost, |
720 |
& mult_temp, |
& mult_temp, |
721 |
& mult_salt, |
& mult_salt, |
722 |
& mult_temp0, |
& mult_temp0, |
779 |
_RL mult_tp |
_RL mult_tp |
780 |
_RL mult_ers |
_RL mult_ers |
781 |
_RL mult_gfo |
_RL mult_gfo |
782 |
|
_RL mult_sshv4cost(NSSHV4COST) |
783 |
_RL mult_temp |
_RL mult_temp |
784 |
_RL mult_salt |
_RL mult_salt |
785 |
_RL mult_temp0 |
_RL mult_temp0 |
895 |
& tp_errfile, |
& tp_errfile, |
896 |
& ers_errfile, |
& ers_errfile, |
897 |
& gfo_errfile, |
& gfo_errfile, |
898 |
|
& sshv4cost_errfile, |
899 |
& ctdt_errfile, |
& ctdt_errfile, |
900 |
& ctds_errfile, |
& ctds_errfile, |
901 |
& drift_errfile, |
& drift_errfile, |
946 |
character*(MAX_LEN_FNAM) tp_errfile |
character*(MAX_LEN_FNAM) tp_errfile |
947 |
character*(MAX_LEN_FNAM) ers_errfile |
character*(MAX_LEN_FNAM) ers_errfile |
948 |
character*(MAX_LEN_FNAM) gfo_errfile |
character*(MAX_LEN_FNAM) gfo_errfile |
949 |
|
character*(MAX_LEN_FNAM) sshv4cost_errfile(NSSHV4COST) |
950 |
character*(MAX_LEN_FNAM) ctdt_errfile |
character*(MAX_LEN_FNAM) ctdt_errfile |
951 |
character*(MAX_LEN_FNAM) ctds_errfile |
character*(MAX_LEN_FNAM) ctds_errfile |
952 |
character*(MAX_LEN_FNAM) drift_errfile |
character*(MAX_LEN_FNAM) drift_errfile |
1025 |
& wedtauy,wedtauy2,wedtauyFld, |
& wedtauy,wedtauy2,wedtauyFld, |
1026 |
& wsst,wsss,wbp, |
& wsst,wsss,wbp, |
1027 |
& wtp,wers,wgfo, |
& wtp,wers,wgfo, |
1028 |
& wp, |
& wp,wsshv4, |
1029 |
& wctdt,wctds, |
& wctdt,wctds, |
1030 |
& wudrift,wvdrift, |
& wudrift,wvdrift, |
1031 |
& whfluxmm,wsfluxmm, |
& whfluxmm,wsfluxmm, |
1070 |
_RL wsss (1-olx:snx+olx,1-oly:sny+oly, nsx,nsy) |
_RL wsss (1-olx:snx+olx,1-oly:sny+oly, nsx,nsy) |
1071 |
_RL wbp (1-olx:snx+olx,1-oly:sny+oly, nsx,nsy) |
_RL wbp (1-olx:snx+olx,1-oly:sny+oly, nsx,nsy) |
1072 |
_RL wtp (1-olx:snx+olx,1-oly:sny+oly, nsx,nsy) |
_RL wtp (1-olx:snx+olx,1-oly:sny+oly, nsx,nsy) |
1073 |
|
_RL wsshv4 (1-olx:snx+olx,1-oly:sny+oly,NSSHV4COST,nsx,nsy) |
1074 |
_RL wers (1-olx:snx+olx,1-oly:sny+oly, nsx,nsy) |
_RL wers (1-olx:snx+olx,1-oly:sny+oly, nsx,nsy) |
1075 |
_RL wgfo (1-olx:snx+olx,1-oly:sny+oly, nsx,nsy) |
_RL wgfo (1-olx:snx+olx,1-oly:sny+oly, nsx,nsy) |
1076 |
_RL wp (1-olx:snx+olx,1-oly:sny+oly, nsx,nsy) |
_RL wp (1-olx:snx+olx,1-oly:sny+oly, nsx,nsy) |
1477 |
_RL ersslope |
_RL ersslope |
1478 |
_RL gfoslope |
_RL gfoslope |
1479 |
|
|
1480 |
|
cgf factor to convert sshv4cost_errfile in m |
1481 |
|
common /ecco_cost_errfactor/ |
1482 |
|
& sshv4cost_errfactor |
1483 |
|
_RL sshv4cost_errfactor(NSSHV4COST) |
1484 |
|
|
1485 |
#ifdef ALLOW_SSH_COST_CONTRIBUTION |
#ifdef ALLOW_SSH_COST_CONTRIBUTION |
1486 |
common /ecco_ssh_daymask_r/ |
common /ecco_ssh_daymask_r/ |
1487 |
& tpTimeMask, ersTimeMask, gfoTimeMask |
& tpTimeMask, ersTimeMask, gfoTimeMask |