/[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.1 by heimbach, Thu Sep 1 05:34:30 2005 UTC revision 1.2 by heimbach, Thu Jun 15 17:01:09 2006 UTC
# Line 86  c     == end of interface == Line 86  c     == end of interface ==
86       &             / deltaTClock )       &             / deltaTClock )
87    
88  cph(  cph(
89  c      print *, 'ph-ice B ', myiter, theta(18,24,1,1,1),        print *, 'ph-ice B ', myiter, theta(4,4,1,1,1),
90  c     &     area(18,24,1,1,1), heff(18,24,1,1,1)       &     area(4,4,1,1,1), heff(4,4,1,1,1)
91  cph)  cph)
92           if ( cost_ice_flag .eq. 1 ) then           if ( cost_ice_flag .eq. 1 ) then
93  c     sea-ice volume  c     sea-ice volume
# Line 212  c     assumed that measurements are AREA Line 212  c     assumed that measurements are AREA
212           endif           endif
213        endif        endif
214    
215    cph(
216          print *, 'ph-ice C ', myiter, objf_ice(1,1)
217    cph)
218    
219  #endif /* ALLOW_COST_ICE */  #endif /* ALLOW_COST_ICE */
220    
221        end        end
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22