/[MITgcm]/MITgcm/pkg/grdchk/grdchk_getadxx.F
ViewVC logotype

Diff of /MITgcm/pkg/grdchk/grdchk_getadxx.F

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

revision 1.13 by heimbach, Sat Aug 6 11:02:01 2005 UTC revision 1.14 by heimbach, Wed Aug 31 00:03:44 2005 UTC
# Line 303  c--   == end of interface == Line 303  c--   == end of interface ==
303    
304  #endif /* ALLOW_TR10_CONTROL */  #endif /* ALLOW_TR10_CONTROL */
305    
306  #ifdef ALLOW_SST0_CONTROL  #if (defined (ALLOW_SST_CONTROL) || defined (ALLOW_SST0_CONTROL))
307        else if ( grdchkvarindex .eq. 18 ) then        else if ( grdchkvarindex .eq. 18 ) then
308           il=ilnblnk( xx_sst_file )           il=ilnblnk( xx_sst_file )
309           write(fname(1:80),'(80a)') ' '           write(fname(1:80),'(80a)') ' '
# Line 318  c--   == end of interface == Line 318  c--   == end of interface ==
318    
319  #endif /* ALLOW_SST0_CONTROL */  #endif /* ALLOW_SST0_CONTROL */
320    
321  #ifdef ALLOW_SSS0_CONTROL  #if (defined (ALLOW_SSS_CONTROL) || defined (ALLOW_SSS0_CONTROL))
322        else if ( grdchkvarindex .eq. 19 ) then        else if ( grdchkvarindex .eq. 19 ) then
323           il=ilnblnk( xx_sss_file )           il=ilnblnk( xx_sss_file )
324           write(fname(1:80),'(80a)') ' '           write(fname(1:80),'(80a)') ' '
Legend:
Removed from v.1.13  
changed lines
  Added in v.1.14
  ViewVC Help
Powered by ViewVC 1.1.22