/[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.45 by gforget, Tue Feb 16 02:08:16 2010 UTC revision 1.46 by gforget, Tue Feb 16 23:33:37 2010 UTC
# Line 37  c     ============================= Line 37  c     =============================
37        INTEGER NSSHV4COST        INTEGER NSSHV4COST
38        PARAMETER ( NSSHV4COST=5 )        PARAMETER ( NSSHV4COST=5 )
39    
40    c     Number of User Cost terms:
41    c     =============================
42          INTEGER NUSERCOST
43          PARAMETER ( NUSERCOST=10 )
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 364  c     objf_ctdsclim - Salinity measureme Line 369  c     objf_ctdsclim - Salinity measureme
369  c     objf_xbt   - XBT temperature data  c     objf_xbt   - XBT temperature data
370  c     objf_argot - ARGO temperature profiles  c     objf_argot - ARGO temperature profiles
371  c     objf_argos - ARGO salt profiles  c     objf_argos - ARGO salt profiles
372    c     objf_usercost - user defined cost contribution
373  c     objf_scatxm - time-mean zonal SCAT  contribution  c     objf_scatxm - time-mean zonal SCAT  contribution
374  c     objf_scatym - time-mean meridional SCAT  contribution  c     objf_scatym - time-mean meridional SCAT  contribution
375  c     objf_scatx  - zonal SCAT  contribution  c     objf_scatx  - zonal SCAT  contribution
# Line 392  c                  function contribution Line 398  c                  function contribution
398       &     objf_temp0smoo, objf_salt0smoo,       &     objf_temp0smoo, objf_salt0smoo,
399       &     objf_sst, objf_tmi, objf_sss,       &     objf_sst, objf_tmi, objf_sss,
400       &     objf_bp,       &     objf_bp,
401         &     objf_usercost,
402       &     objf_ctdt,      objf_ctds,       &     objf_ctdt,      objf_ctds,
403       &     objf_ctdtclim,  objf_ctdsclim,       &     objf_ctdtclim,  objf_ctdsclim,
404       &     objf_xbt, objf_argot,     objf_argos,       &     objf_xbt, objf_argot,     objf_argos,
# Line 458  c                  function contribution Line 465  c                  function contribution
465        _RL  objf_ctdsclim (nsx,nsy)        _RL  objf_ctdsclim (nsx,nsy)
466        _RL  objf_xbt  (nsx,nsy)        _RL  objf_xbt  (nsx,nsy)
467        _RL  objf_argot(nsx,nsy)        _RL  objf_argot(nsx,nsy)
468          _RL  objf_usercost(NUSERCOST,nsx,nsy)
469        _RL  objf_argos(nsx,nsy)        _RL  objf_argos(nsx,nsy)
470        _RL  objf_drift(nsx,nsy)        _RL  objf_drift(nsx,nsy)
471        _RL  objf_tdrift(nsx,nsy)        _RL  objf_tdrift(nsx,nsy)
# Line 554  c                  function contribution Line 562  c                  function contribution
562       &                num_xbt,       &                num_xbt,
563       &                num_argot,       &                num_argot,
564       &                num_argos,       &                num_argos,
565         &                num_usercost,
566       &                num_drift,       &                num_drift,
567       &                num_tdrift,       &                num_tdrift,
568       &                num_sdrift,       &                num_sdrift,
# Line 635  c                  function contribution Line 644  c                  function contribution
644        _RL  num_xbt  (nsx,nsy)        _RL  num_xbt  (nsx,nsy)
645        _RL  num_argot(nsx,nsy)        _RL  num_argot(nsx,nsy)
646        _RL  num_argos(nsx,nsy)        _RL  num_argos(nsx,nsy)
647          _RL  num_usercost(NUSERCOST,nsx,nsy)
648        _RL  num_drift(nsx,nsy)        _RL  num_drift(nsx,nsy)
649        _RL  num_tdrift(nsx,nsy)        _RL  num_tdrift(nsx,nsy)
650        _RL  num_sdrift(nsx,nsy)        _RL  num_sdrift(nsx,nsy)
# Line 713  c                  function contribution Line 723  c                  function contribution
723       &                    mult_xbt,       &                    mult_xbt,
724       &                    mult_argot,       &                    mult_argot,
725       &                    mult_argos,       &                    mult_argos,
726         &                    mult_usercost,
727       &                    mult_drift,       &                    mult_drift,
728       &                    mult_tdrift,       &                    mult_tdrift,
729       &                    mult_sdrift,       &                    mult_sdrift,
# Line 775  c                  function contribution Line 786  c                  function contribution
786        _RL  mult_xbt        _RL  mult_xbt
787        _RL  mult_argot        _RL  mult_argot
788        _RL  mult_argos        _RL  mult_argos
789          _RL  mult_usercost(NUSERCOST)
790        _RL  mult_drift        _RL  mult_drift
791        _RL  mult_tdrift        _RL  mult_tdrift
792        _RL  mult_sdrift        _RL  mult_sdrift
# Line 905  c     velerrfile            - representa Line 917  c     velerrfile            - representa
917       &                kapredi_errfile,       &                kapredi_errfile,
918       &                diffkr_errfile,       &                diffkr_errfile,
919       &                bottomdrag_errfile,       &                bottomdrag_errfile,
920         &                usercost_errfile,
921       &                uwind_errfile,       &                uwind_errfile,
922       &                vwind_errfile       &                vwind_errfile
923        character*(MAX_LEN_FNAM) hflux_errfile        character*(MAX_LEN_FNAM) hflux_errfile
# Line 955  c     velerrfile            - representa Line 968  c     velerrfile            - representa
968        character*(MAX_LEN_FNAM) kapredi_errfile        character*(MAX_LEN_FNAM) kapredi_errfile
969        character*(MAX_LEN_FNAM) diffkr_errfile        character*(MAX_LEN_FNAM) diffkr_errfile
970        character*(MAX_LEN_FNAM) bottomdrag_errfile        character*(MAX_LEN_FNAM) bottomdrag_errfile
971          character*(MAX_LEN_FNAM) usercost_errfile(NUSERCOST)
972        character*(MAX_LEN_FNAM) uwind_errfile        character*(MAX_LEN_FNAM) uwind_errfile
973        character*(MAX_LEN_FNAM) vwind_errfile        character*(MAX_LEN_FNAM) vwind_errfile
974    
# Line 1304  c     driftfile     - reference data fil Line 1318  c     driftfile     - reference data fil
1318       &                     argosfile,       &                     argosfile,
1319       &                     udriftfile,       &                     udriftfile,
1320       &                     vdriftfile,       &                     vdriftfile,
1321         &                     usercost_datafile,
1322       &                     curmtrufile,       &                     curmtrufile,
1323       &                     curmtrvfile       &                     curmtrvfile
1324    
# Line 1327  c     driftfile     - reference data fil Line 1342  c     driftfile     - reference data fil
1342        character*(MAX_LEN_FNAM) argotfile        character*(MAX_LEN_FNAM) argotfile
1343        character*(MAX_LEN_FNAM) argosfile        character*(MAX_LEN_FNAM) argosfile
1344        character*(MAX_LEN_FNAM) argofile        character*(MAX_LEN_FNAM) argofile
1345          character*(MAX_LEN_FNAM) usercost_datafile(NUSERCOST)
1346        character*(MAX_LEN_FNAM) udriftfile        character*(MAX_LEN_FNAM) udriftfile
1347        character*(MAX_LEN_FNAM) vdriftfile        character*(MAX_LEN_FNAM) vdriftfile
1348        character*(MAX_LEN_FNAM) curmtrufile        character*(MAX_LEN_FNAM) curmtrufile
Legend:
Removed from v.1.45  
changed lines
  Added in v.1.46
  ViewVC Help
Powered by ViewVC 1.1.22