/[MITgcm]/MITgcm/pkg/ecco/cost_hyd.F
ViewVC logotype

Diff of /MITgcm/pkg/ecco/cost_hyd.F

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

revision 1.13 by heimbach, Sat Oct 18 12:52:20 2008 UTC revision 1.14 by heimbach, Wed May 13 13:39:38 2009 UTC
# Line 60  c     == local variables == Line 60  c     == local variables ==
60  c     == end of interface ==  c     == end of interface ==
61    
62    
63  #ifdef ALLOW_SST_COST_CONTRIBUTION  #if (defined (ALLOW_SST_COST_CONTRIBUTION))
64        write(msgbuf,'(a)') 'ph-cost call cost_sst'        write(msgbuf,'(a)') 'ph-cost call cost_sst'
65        call print_message( msgbuf, standardmessageunit,        call print_message( msgbuf, standardmessageunit,
66       &     SQUEEZE_RIGHT , mythid)       &     SQUEEZE_RIGHT , mythid)
# Line 77  c     == end of interface == Line 77  c     == end of interface ==
77       &     maskC, wsst,       &     maskC, wsst,
78       &     spminloc, spmaxloc, spzeroloc,       &     spminloc, spmaxloc, spzeroloc,
79       &     objf_sst, num_sst,       &     objf_sst, num_sst,
80         &     myiter, mytime, mythid )
81    c
82    #elif ALLOW_DAILYSST_COST_CONTRIBUTION
83    c
84          write(msgbuf,'(a)') 'ph-cost call cost_sst'
85          call print_message( msgbuf, standardmessageunit,
86         &     SQUEEZE_RIGHT , mythid)
87          nnzbar = nnztbar
88          nnzobs = 1
89          nrecloc = ndaysrec
90          spminloc = -2.
91          spmaxloc = 40.
92          spzeroloc = 0.
93          localperiod = 0.
94          call cost_generic(
95         &     nnzbar, sstbarfile, sstbar, xx_sstbar_mean_dummy,
96         &     nnzobs, sstdatfile, sstdat, mult_sst,
97         &     nrecloc, modelstartdate, localperiod,
98         &     maskC, wsst,
99         &     spminloc, spmaxloc, spzeroloc,
100         &     objf_sst, num_sst,
101       &     myiter, mytime, mythid )       &     myiter, mytime, mythid )
102  cph      call cost_sst   ( myiter, mytime, mythid )  cph      call cost_sst   ( myiter, mytime, mythid )
103  #endif  #endif
Legend:
Removed from v.1.13  
changed lines
  Added in v.1.14
  ViewVC Help
Powered by ViewVC 1.1.22