/[MITgcm]/MITgcm/pkg/exf/exf_summary.F
ViewVC logotype

Diff of /MITgcm/pkg/exf/exf_summary.F

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

revision 1.1 by heimbach, Mon May 14 22:08:41 2001 UTC revision 1.2 by heimbach, Tue Nov 12 20:34:41 2002 UTC
# Line 149  c     and the corresponding file from wh Line 149  c     and the corresponding file from wh
149       &                    SQUEEZE_RIGHT , mythid)       &                    SQUEEZE_RIGHT , mythid)
150  #endif  #endif
151    
152    #ifdef ALLOW_RUNOFF
153          il = ilnblnk(runofffile)
154          call cal_TimeInterval( runoffperiod, 'secs', timeint, mythid )
155    
156          write(msgbuf,'(a)')
157         &' '
158          call print_message( msgbuf, standardmessageunit,
159         &                    SQUEEZE_RIGHT , mythid)
160          write(msgbuf,'(a,i9.8,i7.6,1x,a,a)')
161         &'   Runnoff starts at     ',
162         &    (runoffstartdate(i), i=1,2), dayofweek(runoffstartdate(4)),
163         &    '.'
164          call print_message( msgbuf, standardmessageunit,
165         &                    SQUEEZE_RIGHT , mythid)
166          write(msgbuf,'(a,i9.8,i7.6)')
167         &'   Runoff period is     ',
168         &    (timeint(i), i=1,2)
169          call print_message( msgbuf, standardmessageunit,
170         &                    SQUEEZE_RIGHT , mythid)
171          write(msgbuf,'(a)')
172         &'   Runoff is read from file:'
173          call print_message( msgbuf, standardmessageunit,
174         &                    SQUEEZE_RIGHT , mythid)
175          write(msgbuf,'(a,a,a)')
176         &'   >>  ',runofffile(1:il),'  <<'
177          call print_message( msgbuf, standardmessageunit,
178         &                    SQUEEZE_RIGHT , mythid)
179    #endif
180    
181  #ifdef ALLOW_BULKFORMULAE  #ifdef ALLOW_BULKFORMULAE
182    
183  #ifdef ALLOW_ATM_TEMP  #ifdef ALLOW_ATM_TEMP
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22