/[MITgcm]/MITgcm/pkg/seaice/cost_ice_test.F
ViewVC logotype

Diff of /MITgcm/pkg/seaice/cost_ice_test.F

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

revision 1.3 by heimbach, Fri Dec 15 18:02:17 2006 UTC revision 1.4 by jmc, Tue Oct 9 00:10:13 2007 UTC
# Line 1  Line 1 
1  C $Header$  C $Header$
2    C $Name$
3    
4  #include "SEAICE_OPTIONS.h"  #include "SEAICE_OPTIONS.h"
5    
# Line 81  c     == external functions == Line 82  c     == external functions ==
82  c     == end of interface ==  c     == end of interface ==
83    
84        if ( myTime .GT. (endTime - lastinterval) ) then        if ( myTime .GT. (endTime - lastinterval) ) then
85           tempVar = 1. /           tempVar = 1. /
86       &             ( ( 1. + min(endTime-startTime,lastinterval) )       &             ( ( 1. + min(endTime-startTime,lastinterval) )
87       &             / deltaTClock )       &             / deltaTClock )
88    
89  cph(  cph(
90        print *, 'ph-ice B ', myiter, theta(4,4,1,1,1),        print *, 'ph-ice B ', myiter, theta(4,4,1,1,1),
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22