/[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.34 by heimbach, Fri Feb 20 15:27:50 2009 UTC revision 1.35 by heimbach, Fri Mar 13 01:58:37 2009 UTC
# Line 37  c     ============================= Line 37  c     =============================
37        INTEGER NGENCOST        INTEGER NGENCOST
38        PARAMETER ( NGENCOST=10 )        PARAMETER ( NGENCOST=10 )
39    
40      c     Number of days: (hard-coded to set up some vector dimensions
41    c     =============================
42          INTEGER maxNumDays
43          PARAMETER ( maxNumDays = 5844 )
44    
45  c     Averaged Fields:  c     Averaged Fields:
46  c     ================  c     ================
47  c  c
# Line 227  c             intantaneous field. Line 232  c             intantaneous field.
232        character*(MAX_LEN_FNAM) costTranspDataFile        character*(MAX_LEN_FNAM) costTranspDataFile
233    
234  #ifdef ALLOW_TRANSPORT_COST_CONTRIBUTION  #ifdef ALLOW_TRANSPORT_COST_CONTRIBUTION
       INTEGER maxNumDays  
       PARAMETER ( maxNumDays = 5844 )  
235        common /averages_transp_r/        common /averages_transp_r/
236       &                     transpbar       &                     transpbar
237       &                   , transpobs       &                   , transpobs
# Line 1452  c     sshperiod      - sampling interval Line 1455  c     sshperiod      - sampling interval
1455        _RL ersslope        _RL ersslope
1456        _RL gfoslope        _RL gfoslope
1457    
1458    #ifdef ALLOW_SSH_COST_CONTRIBUTION
1459          common /ecco_ssh_daymask_r/
1460         &       tpTimeMask, ersTimeMask, gfoTimeMask
1461          _RL tpTimeMask(maxNumDays)
1462          _RL ersTimeMask(maxNumDays)
1463          _RL gfoTimeMask(maxNumDays)
1464    #endif
1465    
1466          common /ecco_ssh_daymask_c/
1467         &       tpTimeMaskFile, ersTimeMaskFile, gfoTimeMaskFile
1468          character*(MAX_LEN_FNAM) tpTimeMaskFile
1469          character*(MAX_LEN_FNAM) ersTimeMaskFile
1470          character*(MAX_LEN_FNAM) gfoTimeMaskFile
1471    
1472  c     ==================================================================  c     ==================================================================
1473  c     END OF HEADER COST  c     END OF HEADER COST
1474  c     ==================================================================  c     ==================================================================
Legend:
Removed from v.1.34  
changed lines
  Added in v.1.35
  ViewVC Help
Powered by ViewVC 1.1.22