/[MITgcm]/MITgcm/pkg/cost/cost_final_restore.F
ViewVC logotype

Diff of /MITgcm/pkg/cost/cost_final_restore.F

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

revision 1.4 by jmc, Mon Oct 8 23:59:21 2007 UTC revision 1.5 by heimbach, Mon Apr 26 20:28:37 2010 UTC
# Line 41  c     == local variables == Line 41  c     == local variables ==
41  c     == end of interface ==  c     == end of interface ==
42    
43  c--   Each process has calculated the global part for itself.  c--   Each process has calculated the global part for itself.
44        IF (myProcId .eq. 0) THEN  cph      IF (myProcId .eq. 0) THEN
45           _BEGIN_MASTER( mythid )           _BEGIN_MASTER( mythid )
46  c  c
47             inquire(file='divided.ctrl',exist=exst)             inquire(file='divided.ctrl',exist=exst)
# Line 63  c Line 63  c
63             endif             endif
64  c  c
65           _END_MASTER( mythid )           _END_MASTER( mythid )
66        ENDIF  cph      ENDIF
67        _BARRIER        _BARRIER
68    
69  #endif  #endif
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22