/[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.42 by mlosch, Thu Nov 12 13:56:12 2009 UTC revision 1.43 by heimbach, Sat Feb 6 02:43:03 2010 UTC
# Line 32  c     monrec  - number of averaged theta Line 32  c     monrec  - number of averaged theta
32        integer monrec        integer monrec
33        integer yearrec        integer yearrec
34    
 c     Number of Generic Cost terms:  
 c     =============================  
       INTEGER NGENCOST  
       PARAMETER ( NGENCOST=20 )  
   
35  c     Number of sshv4cost Cost terms:  c     Number of sshv4cost Cost terms:
36  c     =============================  c     =============================
37        INTEGER NSSHV4COST        INTEGER NSSHV4COST
# Line 48  c     17 years: 6210 Line 43  c     17 years: 6210
43        INTEGER maxNumDays        INTEGER maxNumDays
44        PARAMETER ( maxNumDays = 6210 )        PARAMETER ( maxNumDays = 6210 )
45    
46    c     Number of Generic Cost terms:
47    c     =============================
48          INTEGER NGENCOST
49          PARAMETER ( NGENCOST=4 )
50    
51    #ifdef ALLOW_GENCOST_CONTRIBUTION
52    c     objf_gencost - gencost user defined contribution
53          common /ecco_gencost_ctrl/
54         &       xx_genbar_dummy
55          _RL  xx_genbar_dummy(NGENCOST)
56    
57          common /ecco_gencost_r/
58         &       objf_gencost, num_gencost, mult_gencost,
59         &       gencost_barfld, gencost_modfld,
60         &       gencost_spmin, gencost_spmax, gencost_spzero
61          _RL  objf_gencost(nsx,nsy,NGENCOST)
62          _RL  num_gencost(nsx,nsy,NGENCOST)
63          _RL  mult_gencost(NGENCOST)
64          _RL  gencost_spmin(NGENCOST)
65          _RL  gencost_spmax(NGENCOST)
66          _RL  gencost_spzero(NGENCOST)
67          _RL  gencost_barfld(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy,NGENCOST)
68          _RL  gencost_modfld(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy,NGENCOST)
69    
70          common /ecco_gencost_i/
71         &       gencost_nrec
72          integer gencost_nrec(NGENCOST)
73    
74          common /ecco_gencost_c/
75         &       gencost_errfile,
76         &       gencost_datafile,
77         &       gencost_barfile,
78         &       gencost_avgperiod
79          character*(MAX_LEN_FNAM) gencost_errfile(NGENCOST)
80          character*(MAX_LEN_FNAM) gencost_datafile(NGENCOST)
81          character*(MAX_LEN_FNAM) gencost_barfile(NGENCOST)
82          character*(5)            gencost_avgperiod(NGENCOST)
83    
84    #endif /* ALLOW_GENCOST_CONTRIBUTION */
85    
86  c     Averaged Fields:  c     Averaged Fields:
87  c     ================  c     ================
88  c  c
# Line 223  cph#ifdef ALLOW_SEAICE_COST_AREASST Line 258  cph#ifdef ALLOW_SEAICE_COST_AREASST
258       &                    tauybarfile,       &                    tauybarfile,
259       &                    hfluxbarfile,       &                    hfluxbarfile,
260       &                    sfluxbarfile,       &                    sfluxbarfile,
261         &                    hfluxmeanbarfile,
262         &                    sfluxmeanbarfile,
263       &                    costTranspDataFile       &                    costTranspDataFile
264        character*(MAX_LEN_FNAM) tbarfile        character*(MAX_LEN_FNAM) tbarfile
265        character*(MAX_LEN_FNAM) sbarfile        character*(MAX_LEN_FNAM) sbarfile
# Line 236  cph#ifdef ALLOW_SEAICE_COST_AREASST Line 273  cph#ifdef ALLOW_SEAICE_COST_AREASST
273        character*(MAX_LEN_FNAM) tauybarfile        character*(MAX_LEN_FNAM) tauybarfile
274        character*(MAX_LEN_FNAM) hfluxbarfile        character*(MAX_LEN_FNAM) hfluxbarfile
275        character*(MAX_LEN_FNAM) sfluxbarfile        character*(MAX_LEN_FNAM) sfluxbarfile
276          character*(MAX_LEN_FNAM) hfluxmeanbarfile
277          character*(MAX_LEN_FNAM) sfluxmeanbarfile
278        character*(MAX_LEN_FNAM) costTranspDataFile        character*(MAX_LEN_FNAM) costTranspDataFile
279    
280  #ifdef ALLOW_TRANSPORT_COST_CONTRIBUTION  #ifdef ALLOW_TRANSPORT_COST_CONTRIBUTION
# Line 321  c     objf_ctdsclim - Salinity measureme Line 360  c     objf_ctdsclim - Salinity measureme
360  c     objf_xbt   - XBT temperature data  c     objf_xbt   - XBT temperature data
361  c     objf_argot - ARGO temperature profiles  c     objf_argot - ARGO temperature profiles
362  c     objf_argos - ARGO salt profiles  c     objf_argos - ARGO salt profiles
 c     objf_gencost - gencost user defined contribution  
363  c     objf_scatxm - time-mean zonal SCAT  contribution  c     objf_scatxm - time-mean zonal SCAT  contribution
364  c     objf_scatym - time-mean meridional SCAT  contribution  c     objf_scatym - time-mean meridional SCAT  contribution
365  c     objf_scatx  - zonal SCAT  contribution  c     objf_scatx  - zonal SCAT  contribution
# Line 343  c                  function contribution Line 381  c                  function contribution
381       &     objf_tauu,  objf_tauum,  objf_tauusmoo,       &     objf_tauu,  objf_tauum,  objf_tauusmoo,
382       &     objf_tauv,  objf_tauvm,  objf_tauvsmoo,       &     objf_tauv,  objf_tauvm,  objf_tauvsmoo,
383       &     objf_hmean,       &     objf_hmean,
384       &     objf_h,       &     objf_h, objf_tp, objf_ers, objf_gfo,
      &     objf_tp,  
      &     objf_ers,  
      &     objf_gfo,  
385       &     objf_sshv4cost,       &     objf_sshv4cost,
386       &     objf_temp,      objf_salt,       &     objf_temp,      objf_salt,
387       &     objf_temp0,     objf_salt0,       &     objf_temp0,     objf_salt0,
388       &     objf_temp0smoo, objf_salt0smoo,       &     objf_temp0smoo, objf_salt0smoo,
389       &     objf_sst,       &     objf_sst, objf_tmi, objf_sss,
      &     objf_tmi,  
      &     objf_sss,  
390       &     objf_bp,       &     objf_bp,
391       &     objf_ctdt,      objf_ctds,       &     objf_ctdt,      objf_ctds,
392       &     objf_ctdtclim,  objf_ctdsclim,       &     objf_ctdtclim,  objf_ctdsclim,
393       &     objf_xbt,       &     objf_xbt, objf_argot,     objf_argos,
      &     objf_argot,     objf_argos,  
      &     objf_gencost,  
394       &     objf_drift, objf_tdrift, objf_sdrift, objf_wdrift,       &     objf_drift, objf_tdrift, objf_sdrift, objf_wdrift,
395       &     objf_scatx, objf_scaty,  objf_scatxm, objf_scatym,       &     objf_scatx, objf_scaty,  objf_scatxm, objf_scatym,
396       &     objf_atemp,      objf_atempm,      objf_atempsmoo,       &     objf_atemp,      objf_atempm,      objf_atempsmoo,
# Line 386  c                  function contribution Line 417  c                  function contribution
417       &     objf_eddytau,       &     objf_eddytau,
418       &     objf_bottomdrag,       &     objf_bottomdrag,
419       &     objf_transp       &     objf_transp
420    
421        _RL  objf_hflux  (nsx,nsy)        _RL  objf_hflux  (nsx,nsy)
422        _RL  objf_hfluxm (nsx,nsy)        _RL  objf_hfluxm (nsx,nsy)
423        _RL  objf_hfluxmm        _RL  objf_hfluxmm
# Line 423  c                  function contribution Line 455  c                  function contribution
455        _RL  objf_xbt  (nsx,nsy)        _RL  objf_xbt  (nsx,nsy)
456        _RL  objf_argot(nsx,nsy)        _RL  objf_argot(nsx,nsy)
457        _RL  objf_argos(nsx,nsy)        _RL  objf_argos(nsx,nsy)
       _RL  objf_gencost(NGENCOST,nsx,nsy)  
458        _RL  objf_drift(nsx,nsy)        _RL  objf_drift(nsx,nsy)
459        _RL  objf_tdrift(nsx,nsy)        _RL  objf_tdrift(nsx,nsy)
460        _RL  objf_sdrift(nsx,nsy)        _RL  objf_sdrift(nsx,nsy)
# Line 519  c                  function contribution Line 550  c                  function contribution
550       &                num_xbt,       &                num_xbt,
551       &                num_argot,       &                num_argot,
552       &                num_argos,       &                num_argos,
      &                num_gencost,  
553       &                num_drift,       &                num_drift,
554       &                num_tdrift,       &                num_tdrift,
555       &                num_sdrift,       &                num_sdrift,
# Line 601  c                  function contribution Line 631  c                  function contribution
631        _RL  num_xbt  (nsx,nsy)        _RL  num_xbt  (nsx,nsy)
632        _RL  num_argot(nsx,nsy)        _RL  num_argot(nsx,nsy)
633        _RL  num_argos(nsx,nsy)        _RL  num_argos(nsx,nsy)
       _RL  num_gencost(NGENCOST,nsx,nsy)  
634        _RL  num_drift(nsx,nsy)        _RL  num_drift(nsx,nsy)
635        _RL  num_tdrift(nsx,nsy)        _RL  num_tdrift(nsx,nsy)
636        _RL  num_sdrift(nsx,nsy)        _RL  num_sdrift(nsx,nsy)
# Line 680  c                  function contribution Line 709  c                  function contribution
709       &                    mult_xbt,       &                    mult_xbt,
710       &                    mult_argot,       &                    mult_argot,
711       &                    mult_argos,       &                    mult_argos,
      &                    mult_gencost,  
712       &                    mult_drift,       &                    mult_drift,
713       &                    mult_tdrift,       &                    mult_tdrift,
714       &                    mult_sdrift,       &                    mult_sdrift,
# Line 743  c                  function contribution Line 771  c                  function contribution
771        _RL  mult_xbt        _RL  mult_xbt
772        _RL  mult_argot        _RL  mult_argot
773        _RL  mult_argos        _RL  mult_argos
       _RL  mult_gencost(NGENCOST)  
774        _RL  mult_drift        _RL  mult_drift
775        _RL  mult_tdrift        _RL  mult_tdrift
776        _RL  mult_sdrift        _RL  mult_sdrift
# Line 874  c     velerrfile            - representa Line 901  c     velerrfile            - representa
901       &                kapredi_errfile,       &                kapredi_errfile,
902       &                diffkr_errfile,       &                diffkr_errfile,
903       &                bottomdrag_errfile,       &                bottomdrag_errfile,
      &                gencost_errfile,  
904       &                uwind_errfile,       &                uwind_errfile,
905       &                vwind_errfile       &                vwind_errfile
906        character*(MAX_LEN_FNAM) hflux_errfile        character*(MAX_LEN_FNAM) hflux_errfile
# Line 925  c     velerrfile            - representa Line 951  c     velerrfile            - representa
951        character*(MAX_LEN_FNAM) kapredi_errfile        character*(MAX_LEN_FNAM) kapredi_errfile
952        character*(MAX_LEN_FNAM) diffkr_errfile        character*(MAX_LEN_FNAM) diffkr_errfile
953        character*(MAX_LEN_FNAM) bottomdrag_errfile        character*(MAX_LEN_FNAM) bottomdrag_errfile
       character*(MAX_LEN_FNAM) gencost_errfile(NGENCOST)  
954        character*(MAX_LEN_FNAM) uwind_errfile        character*(MAX_LEN_FNAM) uwind_errfile
955        character*(MAX_LEN_FNAM) vwind_errfile        character*(MAX_LEN_FNAM) vwind_errfile
956    
# Line 1170  c     vdriftdat  - drifters meridional v Line 1195  c     vdriftdat  - drifters meridional v
1195       &                     tdat,       &                     tdat,
1196       &                     scatxdat,       &                     scatxdat,
1197       &                     scatydat,       &                     scatydat,
      &                     sstdat,  
      &                     tmidat,  
      &                     sssdat,  
1198       &                     bpdat,       &                     bpdat,
1199       &                     sstmask,       &                     sstmask,
1200       &                     tmimask,       &                     tmimask,
# Line 1204  c     vdriftdat  - drifters meridional v Line 1226  c     vdriftdat  - drifters meridional v
1226        _RL tdat      (1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)        _RL tdat      (1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
1227        _RL scatxdat  (1-olx:snx+olx,1-oly:sny+oly,   nsx,nsy)        _RL scatxdat  (1-olx:snx+olx,1-oly:sny+oly,   nsx,nsy)
1228        _RL scatydat  (1-olx:snx+olx,1-oly:sny+oly,   nsx,nsy)        _RL scatydat  (1-olx:snx+olx,1-oly:sny+oly,   nsx,nsy)
       _RL sstdat    (1-olx:snx+olx,1-oly:sny+oly,   nsx,nsy)  
       _RL tmidat    (1-olx:snx+olx,1-oly:sny+oly,   nsx,nsy)  
       _RL sssdat    (1-olx:snx+olx,1-oly:sny+oly,   nsx,nsy)  
1229        _RL bpdat     (1-olx:snx+olx,1-oly:sny+oly,   nsx,nsy)        _RL bpdat     (1-olx:snx+olx,1-oly:sny+oly,   nsx,nsy)
1230        _RL tauxmask  (1-olx:snx+olx,1-oly:sny+oly,   nsx,nsy)        _RL tauxmask  (1-olx:snx+olx,1-oly:sny+oly,   nsx,nsy)
1231        _RL tauymask  (1-olx:snx+olx,1-oly:sny+oly,   nsx,nsy)        _RL tauymask  (1-olx:snx+olx,1-oly:sny+oly,   nsx,nsy)
# Line 1281  c     driftfile     - reference data fil Line 1300  c     driftfile     - reference data fil
1300       &                     argosfile,       &                     argosfile,
1301       &                     udriftfile,       &                     udriftfile,
1302       &                     vdriftfile,       &                     vdriftfile,
      &                     gencost_datafile,  
1303       &                     curmtrufile,       &                     curmtrufile,
1304       &                     curmtrvfile       &                     curmtrvfile
1305    
# Line 1305  c     driftfile     - reference data fil Line 1323  c     driftfile     - reference data fil
1323        character*(MAX_LEN_FNAM) argotfile        character*(MAX_LEN_FNAM) argotfile
1324        character*(MAX_LEN_FNAM) argosfile        character*(MAX_LEN_FNAM) argosfile
1325        character*(MAX_LEN_FNAM) argofile        character*(MAX_LEN_FNAM) argofile
       character*(MAX_LEN_FNAM) gencost_datafile(NGENCOST)  
1326        character*(MAX_LEN_FNAM) udriftfile        character*(MAX_LEN_FNAM) udriftfile
1327        character*(MAX_LEN_FNAM) vdriftfile        character*(MAX_LEN_FNAM) vdriftfile
1328        character*(MAX_LEN_FNAM) curmtrufile        character*(MAX_LEN_FNAM) curmtrufile
Legend:
Removed from v.1.42  
changed lines
  Added in v.1.43
  ViewVC Help
Powered by ViewVC 1.1.22