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

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

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

revision 1.1 by heimbach, Thu Nov 6 22:10:08 2003 UTC revision 1.2 by heimbach, Wed Feb 15 20:01:51 2006 UTC
# Line 263  c     == end of interface == Line 263  c     == end of interface ==
263        endif        endif
264  #endif /* ALLOW_SSH_ERSANOM_COST_CONTRIBUTION */  #endif /* ALLOW_SSH_ERSANOM_COST_CONTRIBUTION */
265    
266    #ifdef ALLOW_SSH_GFOANOM_COST_CONTRIBUTION
267          if (using_gfo) then
268            il = ilnblnk(gfofile)
269            write(msgbuf,'(a,a)')
270         &  '  GFO data are read from:         ',gfofile(1:il)
271            call print_message( msgbuf, standardmessageunit,
272         &                      SQUEEZE_RIGHT , mythid)
273            write(msgbuf,'(a,i10,i8)')
274         &  '  GFO start date is:              ',
275         &                        gfostartdate(1),
276         &                        gfostartdate(2)
277            call print_message( msgbuf, standardmessageunit,
278         &                      SQUEEZE_RIGHT , mythid)
279            write(msgbuf,'(a,e18.11)')
280         &  '  GFO sampling period is:         ',
281         &                        gfoperiod
282            call print_message( msgbuf, standardmessageunit,
283         &                      SQUEEZE_RIGHT , mythid)
284          endif
285    #endif /* ALLOW_SSH_GFOANOM_COST_CONTRIBUTION */
286    
287        return        return
288        end        end
289    
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22