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

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

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

revision 1.2 by heimbach, Wed Dec 3 23:08:40 2003 UTC revision 1.4 by heimbach, Mon Oct 11 16:38:53 2004 UTC
# Line 107  c--   Read tiled data. Line 107  c--   Read tiled data.
107    
108  #ifdef ALLOW_CTDSCLIM_COST_CONTRIBUTION  #ifdef ALLOW_CTDSCLIM_COST_CONTRIBUTION
109    
 #ifdef ECCO_VERBOSE  
       _BEGIN_MASTER( mythid )  
         write(msgbuf,'(a)') ' '  
         call print_message( msgbuf, standardmessageunit,  
      &                      SQUEEZE_RIGHT , mythid)  
         write(msgbuf,'(a,i8.8)')  
      &    ' cost_Ctdsclim: number of records to process = ',nmonsrec  
         call print_message( msgbuf, standardmessageunit,  
      &                      SQUEEZE_RIGHT , mythid)  
         write(msgbuf,'(a)') ' '  
         call print_message( msgbuf, standardmessageunit,  
      &                      SQUEEZE_RIGHT , mythid)  
       _END_MASTER( mythid )  
 #endif  
   
110        if (optimcycle .ge. 0) then        if (optimcycle .ge. 0) then
111          ilctdsclim = ilnblnk( sbarfile )          ilctdsclim = ilnblnk( sbarfile )
112          write(fnamesalt(1:80),'(2a,i10.10)')          write(fnamesalt(1:80),'(2a,i10.10)')
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22