/[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.25 by gforget, Fri Aug 17 21:36:40 2007 UTC revision 1.26 by gforget, Fri Sep 7 22:41:14 2007 UTC
# Line 30  c     monrec  - number of averaged theta Line 30  c     monrec  - number of averaged theta
30        integer monrec        integer monrec
31        integer yearrec        integer yearrec
32    
33    c     Number of Generic Cost terms:
34    c     =============================
35          INTEGER NGENCOST
36          PARAMETER ( NGENCOST=10 )
37    
38  c     Averaged Fields:  c     Averaged Fields:
39  c     ================  c     ================
# Line 273  c     objf_ctdsclim - Salinity measureme Line 277  c     objf_ctdsclim - Salinity measureme
277  c     objf_xbt   - XBT temperature data  c     objf_xbt   - XBT temperature data
278  c     objf_argot - ARGO temperature profiles  c     objf_argot - ARGO temperature profiles
279  c     objf_argos - ARGO salt profiles  c     objf_argos - ARGO salt profiles
280    c     objf_gencost - gencost user defined contribution
281  c     objf_scatxm - time-mean zonal SCAT  contribution  c     objf_scatxm - time-mean zonal SCAT  contribution
282  c     objf_scatym - time-mean meridional SCAT  contribution  c     objf_scatym - time-mean meridional SCAT  contribution
283  c     objf_scatx  - zonal SCAT  contribution  c     objf_scatx  - zonal SCAT  contribution
# Line 323  c                  function contribution Line 328  c                  function contribution
328       &                objf_xbt,       &                objf_xbt,
329       &                objf_argot,       &                objf_argot,
330       &                objf_argos,       &                objf_argos,
331         &                objf_gencost,
332       &                objf_drift,       &                objf_drift,
333       &                objf_tdrift,       &                objf_tdrift,
334       &                objf_sdrift,       &                objf_sdrift,
# Line 418  c                  function contribution Line 424  c                  function contribution
424        _RL  objf_xbt  (nsx,nsy)        _RL  objf_xbt  (nsx,nsy)
425        _RL  objf_argot(nsx,nsy)        _RL  objf_argot(nsx,nsy)
426        _RL  objf_argos(nsx,nsy)        _RL  objf_argos(nsx,nsy)
427          _RL  objf_gencost(NGENCOST,nsx,nsy)
428        _RL  objf_drift(nsx,nsy)        _RL  objf_drift(nsx,nsy)
429        _RL  objf_tdrift(nsx,nsy)        _RL  objf_tdrift(nsx,nsy)
430        _RL  objf_sdrift(nsx,nsy)        _RL  objf_sdrift(nsx,nsy)
# Line 509  c                  function contribution Line 516  c                  function contribution
516       &                num_xbt,       &                num_xbt,
517       &                num_argot,       &                num_argot,
518       &                num_argos,       &                num_argos,
519         &                num_gencost,
520       &                num_drift,       &                num_drift,
521       &                num_tdrift,       &                num_tdrift,
522       &                num_sdrift,       &                num_sdrift,
# Line 586  c                  function contribution Line 594  c                  function contribution
594        _RL  num_xbt  (nsx,nsy)        _RL  num_xbt  (nsx,nsy)
595        _RL  num_argot(nsx,nsy)        _RL  num_argot(nsx,nsy)
596        _RL  num_argos(nsx,nsy)        _RL  num_argos(nsx,nsy)
597          _RL  num_gencost(NGENCOST,nsx,nsy)
598        _RL  num_drift(nsx,nsy)        _RL  num_drift(nsx,nsy)
599        _RL  num_tdrift(nsx,nsy)        _RL  num_tdrift(nsx,nsy)
600        _RL  num_sdrift(nsx,nsy)        _RL  num_sdrift(nsx,nsy)
# Line 660  c                  function contribution Line 669  c                  function contribution
669       &                    mult_xbt,       &                    mult_xbt,
670       &                    mult_argot,       &                    mult_argot,
671       &                    mult_argos,       &                    mult_argos,
672         &                    mult_gencost,
673       &                    mult_drift,       &                    mult_drift,
674       &                    mult_tdrift,       &                    mult_tdrift,
675       &                    mult_sdrift,       &                    mult_sdrift,
# Line 718  c                  function contribution Line 728  c                  function contribution
728        _RL  mult_xbt        _RL  mult_xbt
729        _RL  mult_argot        _RL  mult_argot
730        _RL  mult_argos        _RL  mult_argos
731          _RL  mult_gencost(NGENCOST)
732        _RL  mult_drift        _RL  mult_drift
733        _RL  mult_tdrift        _RL  mult_tdrift
734        _RL  mult_sdrift        _RL  mult_sdrift
# Line 841  c     velerrfile            - representa Line 852  c     velerrfile            - representa
852       &                kapgm_errfile,       &                kapgm_errfile,
853       &                diffkr_errfile,       &                diffkr_errfile,
854       &                bottomdrag_errfile,       &                bottomdrag_errfile,
855         &                gencost_errfile,
856       &                uwind_errfile,       &                uwind_errfile,
857       &                vwind_errfile       &                vwind_errfile
858        character*(MAX_LEN_FNAM) hflux_errfile        character*(MAX_LEN_FNAM) hflux_errfile
# Line 886  c     velerrfile            - representa Line 898  c     velerrfile            - representa
898        character*(MAX_LEN_FNAM) kapgm_errfile        character*(MAX_LEN_FNAM) kapgm_errfile
899        character*(MAX_LEN_FNAM) diffkr_errfile        character*(MAX_LEN_FNAM) diffkr_errfile
900        character*(MAX_LEN_FNAM) bottomdrag_errfile        character*(MAX_LEN_FNAM) bottomdrag_errfile
901          character*(MAX_LEN_FNAM) gencost_errfile(NGENCOST)
902        character*(MAX_LEN_FNAM) uwind_errfile        character*(MAX_LEN_FNAM) uwind_errfile
903        character*(MAX_LEN_FNAM) vwind_errfile        character*(MAX_LEN_FNAM) vwind_errfile
904    
# Line 1228  c     driftfile     - reference data fil Line 1241  c     driftfile     - reference data fil
1241       &                     argosfile,       &                     argosfile,
1242       &                     udriftfile,       &                     udriftfile,
1243       &                     vdriftfile,       &                     vdriftfile,
1244         &                     gencost_datafile,
1245       &                     curmtrufile,       &                     curmtrufile,
1246       &                     curmtrvfile       &                     curmtrvfile
1247    
# Line 1250  c     driftfile     - reference data fil Line 1264  c     driftfile     - reference data fil
1264        character*(MAX_LEN_FNAM) argotfile        character*(MAX_LEN_FNAM) argotfile
1265        character*(MAX_LEN_FNAM) argosfile        character*(MAX_LEN_FNAM) argosfile
1266        character*(MAX_LEN_FNAM) argofile        character*(MAX_LEN_FNAM) argofile
1267          character*(MAX_LEN_FNAM) gencost_datafile(NGENCOST)
1268        character*(MAX_LEN_FNAM) udriftfile        character*(MAX_LEN_FNAM) udriftfile
1269        character*(MAX_LEN_FNAM) vdriftfile              character*(MAX_LEN_FNAM) vdriftfile      
1270        character*(MAX_LEN_FNAM) curmtrufile        character*(MAX_LEN_FNAM) curmtrufile
Legend:
Removed from v.1.25  
changed lines
  Added in v.1.26
  ViewVC Help
Powered by ViewVC 1.1.22