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

Diff of /MITgcm/pkg/ecco/cost_ctdt.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, Wed Dec 3 23:08:40 2003 UTC
# Line 110  c--   Read state record from global file Line 110  c--   Read state record from global file
110    
111        if (optimcycle .ge. 0) then        if (optimcycle .ge. 0) then
112          ilu=ilnblnk( tbarfile )          ilu=ilnblnk( tbarfile )
113          write(fnametheta(1:80),'(2a,i10.10)') tbarfile(1:ilu),'.',          write(fnametheta(1:80),'(2a,i10.10)')
114       &                                   optimcycle       &       tbarfile(1:ilu), '.', optimcycle
       else  
         print*  
         print*,' cost_CTDT: optimcycle has a wrong value.'  
         print*,'                 optimcycle = ',optimcycle  
         print*  
         stop   '  ... stopped in cost_CTDT.'  
115        endif        endif
116                
117        fcthread_ctdt = 0. _d 0        fcthread_ctdt = 0. _d 0
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22