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

Diff of /MITgcm/pkg/ecco/cost_sss.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:08 2003 UTC revision 1.2 by heimbach, Wed Dec 3 23:08:40 2003 UTC
# Line 111  c--   Read tiled data. Line 111  c--   Read tiled data.
111          ilsalt = ilnblnk( sbarfile )          ilsalt = ilnblnk( sbarfile )
112          write(fnamesalt(1:80),'(2a,i10.10)')          write(fnamesalt(1:80),'(2a,i10.10)')
113       &    sbarfile(1:ilsalt),'.',optimcycle       &    sbarfile(1:ilsalt),'.',optimcycle
       else  
         print*  
         print*,' cost_sss: optimcycle has a wrong value.'  
         print*,'           optimcycle = ',optimcycle  
         print*  
         stop   '  ... stopped in cost_sss.'  
114        endif        endif
115    
116        fcthread_sss = 0. _d 0        fcthread_sss = 0. _d 0
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22