/[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.3 by heimbach, Fri Aug 5 18:40:24 2005 UTC revision 1.4 by jmc, Mon Oct 8 23:59:21 2007 UTC
# Line 1  Line 1 
1  C $Header$  C $Header$
2    C $Name$
3    
4  #include "COST_CPPOPTIONS.h"  #include "COST_CPPOPTIONS.h"
5    
# Line 55  c Line 56  c
56             if ( idivbeg .EQ. 0 ) then             if ( idivbeg .EQ. 0 ) then
57                lastdiva = .TRUE.                lastdiva = .TRUE.
58                open(unit=76,file='costfinal')                open(unit=76,file='costfinal')
59                read(76,*) fc                        read(76,*) fc
60                close(76)                close(76)
61             else             else
62                lastdiva = .FALSE.                lastdiva = .FALSE.
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22