/[MITgcm]/MITgcm/pkg/ecco/ecco_cost.h
ViewVC logotype

Diff of /MITgcm/pkg/ecco/ecco_cost.h

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.40 by gforget, Mon Oct 26 00:41:23 2009 UTC revision 1.41 by gforget, Tue Nov 3 03:32:25 2009 UTC
# Line 37  c     ============================= Line 37  c     =============================
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
# Line 352  c                  function contribution Line 357  c                  function contribution
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,
# Line 451  c                  function contribution Line 457  c                  function contribution
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)
# Line 548  c                  function contribution Line 555  c                  function contribution
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,
# Line 629  c                  function contribution Line 637  c                  function contribution
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)
# Line 707  c                  function contribution Line 716  c                  function contribution
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,
# Line 769  c                  function contribution Line 779  c                  function contribution
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
# Line 884  c     velerrfile            - representa Line 895  c     velerrfile            - representa
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,
# Line 934  c     velerrfile            - representa Line 946  c     velerrfile            - representa
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
# Line 1012  c     wvdrift    - weight for mean merid Line 1025  c     wvdrift    - weight for mean merid
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,
# Line 1057  c     wvdrift    - weight for mean merid Line 1070  c     wvdrift    - weight for mean merid
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)
# Line 1463  c     sshperiod      - sampling interval Line 1477  c     sshperiod      - sampling interval
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
Legend:
Removed from v.1.40  
changed lines
  Added in v.1.41
  ViewVC Help
Powered by ViewVC 1.1.22