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

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

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

revision 1.1 by heimbach, Thu Nov 6 22:10:07 2003 UTC revision 1.2 by heimbach, Mon Oct 11 16:38:53 2004 UTC
# Line 20  c     started: from cost_drift Line 20  c     started: from cost_drift
20  c  c
21  c     Armin Koehl  akoehl@ucsd.edu  26-Feb-2002  c     Armin Koehl  akoehl@ucsd.edu  26-Feb-2002
22  c  c
 c     heimbach@mit.edu 17-Jun-2003 SIO merge:  
 c             changed 1e12*cosphi(i,j,bi,bj) factor to  
 c                     2.5e11*cosphi(i,j,bi,bj)  
 c  
23  c     ==================================================================  c     ==================================================================
24  c     SUBROUTINE cost_Driftw  c     SUBROUTINE cost_Driftw
25  c     ==================================================================  c     ==================================================================
# Line 96  c--   Read tiled data. Line 92  c--   Read tiled data.
92    
93  #ifdef ALLOW_DRIFTW_COST_CONTRIBUTION  #ifdef ALLOW_DRIFTW_COST_CONTRIBUTION
94    
 #ifdef ECCO_VERBOSE  
       _BEGIN_MASTER( mythid )  
         write(msgbuf,'(a)') ' '  
         call print_message( msgbuf, standardmessageunit,  
      &                      SQUEEZE_RIGHT , mythid)  
         write(msgbuf,'(a,i8.8)')  
      &    ' cost_driftw: 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  
   
95        if (optimcycle .ge. 0) then        if (optimcycle .ge. 0) then
96          ilw = ilnblnk( wbarfile )          ilw = ilnblnk( wbarfile )
97          write(fnamew(1:80),'(2a,i10.10)')          write(fnamew(1:80),'(2a,i10.10)')
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22