/[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.3 by heimbach, Sat Dec 20 20:11:14 2003 UTC revision 1.4 by heimbach, Mon Oct 11 16:38:53 2004 UTC
# Line 81  c     == local variables == Line 81  c     == local variables ==
81        character*(MAX_LEN_MBUF) msgbuf        character*(MAX_LEN_MBUF) msgbuf
82    
83  #ifdef GENERIC_BAR_MONTH  #ifdef GENERIC_BAR_MONTH
84        integer mrec, nyears, iyear, tmpmon        integer mrec, nyears, iyear
85  #endif        #endif      
86  c     == external functions ==  c     == external functions ==
87    
# 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)')
# Line 132  c--   Read tiled data. Line 117  c--   Read tiled data.
117    
118  #ifdef GENERIC_BAR_MONTH  #ifdef GENERIC_BAR_MONTH
119  c--   Loop over month  c--   Loop over month
       if (nmonsrec.GT.12) then  
          tmpmon = 12  
       else  
          tmpmon = nmonsrec  
       endif  
120        do irec = 1,12        do irec = 1,12
121           nyears=int((nmonsrec-irec)/12)+1           nyears=int((nmonsrec-irec)/12)+1
122           if(nyears.gt.0) then           if(nyears.gt.0) then
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22