/[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.6 by heimbach, Sat Mar 13 23:12:48 2010 UTC revision 1.7 by gforget, Tue Sep 7 21:20:39 2010 UTC
# Line 52  c     == end of interface == Line 52  c     == end of interface ==
52    
53        do k = 1, NGENCOST        do k = 1, NGENCOST
54    
55             if ( (gencost_name(k).NE.'sshv4-mdt').AND.
56         &        (gencost_name(k).NE.'sshv4-tp').AND.
57         &        (gencost_name(k).NE.'sshv4-ers').AND.
58         &        (gencost_name(k).NE.'sshv4-gfo').AND.
59         &        (gencost_name(k).NE.'sshv4-lsc').AND.
60         &        (gencost_name(k).NE.'sstv4-amsre').AND.
61         &        (gencost_name(k).NE.'sstv4-amsre-lsc') ) then
62    
63           write(msgbuf,'(a,x,i2.2)') 'ph-cost gencost #', k           write(msgbuf,'(a,x,i2.2)') 'ph-cost gencost #', k
64           call print_message( msgbuf, standardmessageunit,           call print_message( msgbuf, standardmessageunit,
65       &        SQUEEZE_RIGHT , mythid)       &        SQUEEZE_RIGHT , mythid)
# Line 69  c     == end of interface == Line 77  c     == end of interface ==
77       &        objf_gencost(1,1,k), num_gencost(1,1,k),       &        objf_gencost(1,1,k), num_gencost(1,1,k),
78       &        myiter, mytime, mythid )       &        myiter, mytime, mythid )
79    
80             endif
81    
82        end do        end do
83    
84    # if (defined(ALLOW_GENCOST_SSHV4))
85          call cost_gencost_sshv4( myiter, mytime, mythid )
86    #endif /* ALLOW_GENCOST_SSHV4 */
87    
88    # if (defined(ALLOW_GENCOST_SSTV4))
89          call cost_gencost_sstv4( myiter, mytime, mythid )
90    #endif /* ALLOW_GENCOST_SSTV4 */
91    
92  #endif /* ALLOW_GENCOST_CONTRIBUTION */  #endif /* ALLOW_GENCOST_CONTRIBUTION */
93    
94        end        end
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.22