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

Diff of /MITgcm/pkg/ecco/cost_restore_averagesflags.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:07 2003 UTC revision 1.2 by heimbach, Fri Jul 7 22:53:36 2006 UTC
# Line 3  Line 3 
3    
4        subroutine cost_restore_averagesflags(        subroutine cost_restore_averagesflags(
5       &           lcostrestart, first, last,       &           lcostrestart, first, last,
6       &           sum1day, dayrec, sum1mon, monrec,       &           sum1day, dayrec, restartdaydate,
7       &           restartdaydate, restartmondate,       &           sum1mon, monrec, restartmondate,
8         &           sum1year,yearrec, restartyeardate,
9       &           mythid )       &           mythid )
10    
11  c     ==================================================================  c     ==================================================================
# Line 28  c     == routine arguments == Line 29  c     == routine arguments ==
29        integer dayrec        integer dayrec
30        integer sum1mon        integer sum1mon
31        integer monrec        integer monrec
32          integer sum1year
33          integer yearrec
34        _RL     restartdaydate(4)        _RL     restartdaydate(4)
35        _RL     restartmondate(4)        _RL     restartmondate(4)
36          _RL     restartyeardate(4)
37        integer mythid        integer mythid
38    
39    
40        IF (myProcId .eq. 0) THEN        IF (myProcId .eq. 0) THEN
41           _BEGIN_MASTER( mythid )           _BEGIN_MASTER( mythid )
42           open(unit=76,file='costaveragesflags')           open(unit=76,file='costaveragesflags')
43           read(76,*) sum1day, dayrec, sum1mon, monrec,           read(76,*)
44       &        restartdaydate, restartmondate       &        sum1day, dayrec, sum1mon, monrec, sum1year,yearrec,
45         &        restartdaydate, restartmondate, restartyeardate
46           close(76)           close(76)
47           _END_MASTER( mythid )           _END_MASTER( mythid )
48        ENDIF        ENDIF
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22