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

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

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

revision 1.1 by heimbach, Thu Oct 2 21:26:06 2003 UTC revision 1.2 by heimbach, Mon Nov 17 22:32:33 2003 UTC
# Line 40  c        END DO Line 40  c        END DO
40         END DO         END DO
41        END DO        END DO
42    
43        fc = objf_state_final(45,4,1,1)  cph      fc = objf_state_final(45,4,1,1)
44        _GLOBAL_SUM_R8( fc , myThid )  cph      _GLOBAL_SUM_R8( fc , myThid )
45        print *, 'fc for admtlm test at 83,33 : ', fc  cph      print *, 'fc for admtlm test at 83,33 : ', fc
46    
47  #endif  #endif
48                
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22