/[MITgcm]/MITgcm/pkg/ecco/cost_gencost_all.F
ViewVC logotype

Diff of /MITgcm/pkg/ecco/cost_gencost_all.F

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

revision 1.10 by gforget, Sun Sep 30 20:33:55 2012 UTC revision 1.11 by gforget, Tue Oct 2 01:40:03 2012 UTC
# Line 53  c     == end of interface == Line 53  c     == end of interface ==
53    
54        do k = 1, NGENCOST        do k = 1, NGENCOST
55    
56           if ( (gencost_name(k).NE.'sshv4-mdt').AND.           if ( (using_gencost(k)).AND.( gencost_flag(k).EQ.1 ) ) then
      &        (gencost_name(k).NE.'sshv4-tp').AND.  
      &        (gencost_name(k).NE.'sshv4-ers').AND.  
      &        (gencost_name(k).NE.'sshv4-gfo').AND.  
      &        (gencost_name(k).NE.'sshv4-lsc').AND.  
      &        (gencost_name(k).NE.'sstv4-amsre').AND.  
      &        (gencost_name(k).NE.'sstv4-amsre-lsc') ) then  
57    
58           write(msgbuf,'(a,x,i2.2)') 'ph-cost gencost #', k           write(msgbuf,'(a,x,i2.2)') 'ph-cost gencost #', k
59           call print_message( msgbuf, standardmessageunit,           call print_message( msgbuf, standardmessageunit,
Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11
  ViewVC Help
Powered by ViewVC 1.1.22