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

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

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

revision 1.9 by heimbach, Tue Feb 5 12:49:10 2008 UTC revision 1.10 by heimbach, Sat Oct 18 12:42:30 2008 UTC
# Line 54  c     == local variables == Line 54  c     == local variables ==
54        character*(128) fnamepsbar        character*(128) fnamepsbar
55        character*(128) fnametbar        character*(128) fnametbar
56        character*(128) fnamesbar        character*(128) fnamesbar
57          character*(128) fnamesstbar
58        character*(128) fnameubar        character*(128) fnameubar
59        character*(128) fnamevbar        character*(128) fnamevbar
60        character*(128) fnamewbar        character*(128) fnamewbar
# Line 66  c Line 67  c
67        character*(128) adfnamepsbar        character*(128) adfnamepsbar
68        character*(128) adfnametbar        character*(128) adfnametbar
69        character*(128) adfnamesbar        character*(128) adfnamesbar
70          character*(128) adfnamesstbar
71        character*(128) adfnameubar        character*(128) adfnameubar
72        character*(128) adfnamevbar        character*(128) adfnamevbar
73        character*(128) adfnamewbar        character*(128) adfnamewbar
# Line 195  c     &                        optimcycl Line 197  c     &                        optimcycl
197  #endif  #endif
198  #endif  #endif
199    
200    #ifdef ALLOW_SEAICE_COST_AREASST
201    c--   Save tbar on file.
202          ilt=ilnblnk( sstbarfile )
203          write(fnamesstbar,'(2a,i10.10)')
204         &     sstbarfile(1:ilt), '.', optimcycle
205          write(adfnamesstbar,'(3a,i10.10)')
206         &     yadprefix, sstbarfile(1:ilt), '.', optimcycle
207          do irec = 1,ndaysrec
208    c        call active_write_xy( fnamesstbar, tmpfld2d, irec,
209    c     &                        optimcycle, mythid, xx_sstbar_mean_dummy )
210    #ifndef ALLOW_TANGENTLINEAR_RUN
211             call active_write_xy( adfnamesstbar, tmpfld2d, irec,
212         &                        optimcycle, mythid, xx_sstbar_mean_dummy )
213    #endif
214           enddo
215    #endif
216    
217  #if (defined (ALLOW_SALT_COST_CONTRIBUTION) || \  #if (defined (ALLOW_SALT_COST_CONTRIBUTION) || \
218       defined (ALLOW_CTDS_COST_CONTRIBUTION) || \       defined (ALLOW_CTDS_COST_CONTRIBUTION) || \
219       defined (ALLOW_CTDSCLIM_COST_CONTRIBUTION) || \       defined (ALLOW_CTDSCLIM_COST_CONTRIBUTION) || \
Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10
  ViewVC Help
Powered by ViewVC 1.1.22