/[MITgcm]/MITgcm/pkg/cost/cost_salt0.F
ViewVC logotype

Diff of /MITgcm/pkg/cost/cost_salt0.F

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

revision 1.1.2.1 by heimbach, Thu Apr 4 10:58:59 2002 UTC revision 1.1.2.2 by heimbach, Wed Jul 16 16:38:58 2003 UTC
# Line 94  c--   Read state record from global file Line 94  c--   Read state record from global file
94    
95        if (optimcycle .ge. 0) then        if (optimcycle .ge. 0) then
96          ilfld = ilnblnk( xx_salt_file )          ilfld = ilnblnk( xx_salt_file )
97          write(fnamefld(1:80),'(2a,i10.10)') xx_salt_file(1:ilfld),'.',          write(fnamefld(1:80),'(2a,i10.10)')
98       &                                   optimcycle       &       xx_salt_file(1:ilfld),'.',optimcycle
       else  
         print*  
         print*,' cost_salt: optimcycle has a wrong value.'  
         print*,'                 optimcycle = ',optimcycle  
         print*  
         stop   '  ... stopped in cost_salt.'  
99        endif        endif
100    
101        fcthread = 0. _d 0        fcthread = 0. _d 0
102    
103        call active_read_xyz( fnamefld, tmpfld3d, irec, doglobalread,        call active_read_xyz_loc( fnamefld, tmpfld3d, irec, doglobalread,
104       &                       ladinit, optimcycle, mythid       &                       ladinit, optimcycle, mythid
105       &        , xx_salt_dummy )       &        , xx_salt_dummy )
106    
Legend:
Removed from v.1.1.2.1  
changed lines
  Added in v.1.1.2.2
  ViewVC Help
Powered by ViewVC 1.1.22