/[MITgcm]/MITgcm/pkg/ctrl/ctrl_map_forcing.F
ViewVC logotype

Diff of /MITgcm/pkg/ctrl/ctrl_map_forcing.F

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

revision 1.6 by heimbach, Fri Jul 18 21:10:16 2003 UTC revision 1.7 by heimbach, Tue Nov 16 05:42:12 2004 UTC
# Line 150  c--   hflux0. Line 150  c--   hflux0.
150        enddo        enddo
151  #endif  #endif
152    
153  #ifdef ALLOW_SSS0_CONTROL  #ifdef ALLOW_SSS_CONTROL
154  c--   sss0.  c--   sss0.
155        il=ilnblnk( xx_sss_file )        il=ilnblnk( xx_sss_file )
156        write(fnamesss(1:80),'(2a,i10.10)')        write(fnamesss(1:80),'(2a,i10.10)')
# Line 169  c--   sss0. Line 169  c--   sss0.
169        enddo        enddo
170  #endif  #endif
171    
172  #ifdef ALLOW_SST0_CONTROL  #ifdef ALLOW_SST_CONTROL
173  c--   sst0.  c--   sst0.
174        il=ilnblnk( xx_sst_file )        il=ilnblnk( xx_sst_file )
175        write(fnamesst(1:80),'(2a,i10.10)')        write(fnamesst(1:80),'(2a,i10.10)')
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.22