/[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.10 by heimbach, Mon Oct 27 22:32:55 2003 UTC revision 1.15 by heimbach, Fri May 12 02:17:03 2006 UTC
# Line 288  c--   == end of interface == Line 288  c--   == end of interface ==
288    
289  #endif /* ALLOW_OBCSE_CONTROL */  #endif /* ALLOW_OBCSE_CONTROL */
290    
291    #ifdef ALLOW_DIFFKR_CONTROL
292          else if ( grdchkvarindex .eq. 15 ) then
293             il=ilnblnk( xx_diffkr_file )
294             write(fname(1:80),'(80a)') ' '
295             write(fname(1:80),'(3a,i10.10)')
296         &        yadmark, xx_diffkr_file(1:il),'.',optimcycle
297    
298             call active_read_xyz_loc( fname, tmpfld3d, 1,
299         &                         doglobalread, ladinit, optimcycle,
300         &                         mythid, dummy)
301    
302             xx_comp = tmpfld3d( itilepos,jtilepos,layer,itile,jtile )
303    
304    #endif /* ALLOW_DIFFKR_CONTROL */
305    
306    #ifdef ALLOW_KAPGM_CONTROL
307          else if ( grdchkvarindex .eq. 16 ) then
308             il=ilnblnk( xx_kapgm_file )
309             write(fname(1:80),'(80a)') ' '
310             write(fname(1:80),'(3a,i10.10)')
311         &        yadmark, xx_kapgm_file(1:il),'.',optimcycle
312    
313             call active_read_xyz_loc( fname, tmpfld3d, 1,
314         &                         doglobalread, ladinit, optimcycle,
315         &                         mythid, dummy)
316    
317             xx_comp = tmpfld3d( itilepos,jtilepos,layer,itile,jtile )
318    
319    #endif /* ALLOW_KAPGM_CONTROL */
320    
321  #ifdef ALLOW_TR10_CONTROL  #ifdef ALLOW_TR10_CONTROL
322        else if ( grdchkvarindex .eq. 17 ) then        else if ( grdchkvarindex .eq. 17 ) then
323           il=ilnblnk( xx_tr1_file )           il=ilnblnk( xx_tr1_file )
# Line 303  c--   == end of interface == Line 333  c--   == end of interface ==
333    
334  #endif /* ALLOW_TR10_CONTROL */  #endif /* ALLOW_TR10_CONTROL */
335    
336  #ifdef ALLOW_SST0_CONTROL  #if (defined (ALLOW_SST_CONTROL) || defined (ALLOW_SST0_CONTROL))
337        else if ( grdchkvarindex .eq. 18 ) then        else if ( grdchkvarindex .eq. 18 ) then
338           il=ilnblnk( xx_sst_file )           il=ilnblnk( xx_sst_file )
339           write(fname(1:80),'(80a)') ' '           write(fname(1:80),'(80a)') ' '
# Line 318  c--   == end of interface == Line 348  c--   == end of interface ==
348    
349  #endif /* ALLOW_SST0_CONTROL */  #endif /* ALLOW_SST0_CONTROL */
350    
351  #ifdef ALLOW_SSS0_CONTROL  #if (defined (ALLOW_SSS_CONTROL) || defined (ALLOW_SSS0_CONTROL))
352        else if ( grdchkvarindex .eq. 19 ) then        else if ( grdchkvarindex .eq. 19 ) then
353           il=ilnblnk( xx_sss_file )           il=ilnblnk( xx_sss_file )
354           write(fname(1:80),'(80a)') ' '           write(fname(1:80),'(80a)') ' '
# Line 389  c--   == end of interface == Line 419  c--   == end of interface ==
419    
420  #endif /* ALLOW_EFLUXP0_CONTROL */  #endif /* ALLOW_EFLUXP0_CONTROL */
421    
422    #ifdef ALLOW_PRECIP_CONTROL
423          else if ( grdchkvarindex .eq. 32 ) then
424             il=ilnblnk( xx_precip_file )
425             write(fname(1:80),'(80a)') ' '
426             write(fname(1:80),'(3a,i10.10)')
427         &        yadmark, xx_precip_file(1:il),'.',optimcycle
428    
429             call active_read_xy_loc( fname, tmpfld2d, icvrec,
430         &                        doglobalread, ladinit, optimcycle,
431         &                        mythid, dummy)
432    
433             xx_comp = tmpfld2d( itilepos,jtilepos,itile,jtile )
434    
435    #endif /* ALLOW_PRECIP_CONTROL */
436    
437    #ifdef ALLOW_SWFLUX_CONTROL
438          else if ( grdchkvarindex .eq. 33 ) then
439             il=ilnblnk( xx_swflux_file )
440             write(fname(1:80),'(80a)') ' '
441             write(fname(1:80),'(3a,i10.10)')
442         &        yadmark, xx_swflux_file(1:il),'.',optimcycle
443    
444             call active_read_xy_loc( fname, tmpfld2d, icvrec,
445         &                        doglobalread, ladinit, optimcycle,
446         &                        mythid, dummy)
447    
448             xx_comp = tmpfld2d( itilepos,jtilepos,itile,jtile )
449    
450    #endif /* ALLOW_SWFLUX_CONTROL */
451    
452    #ifdef ALLOW_SWDOWN_CONTROL
453          else if ( grdchkvarindex .eq. 34 ) then
454             il=ilnblnk( xx_swdown_file )
455             write(fname(1:80),'(80a)') ' '
456             write(fname(1:80),'(3a,i10.10)')
457         &        yadmark, xx_swdown_file(1:il),'.',optimcycle
458    
459             call active_read_xy_loc( fname, tmpfld2d, icvrec,
460         &                        doglobalread, ladinit, optimcycle,
461         &                        mythid, dummy)
462    
463             xx_comp = tmpfld2d( itilepos,jtilepos,itile,jtile )
464    
465    #endif /* ALLOW_SWDOWN_CONTROL */
466    
467        else        else
468  ce      --> this index does not exist yet.  ce      --> this index does not exist yet.
469        endif        endif
Legend:
Removed from v.1.10  
changed lines
  Added in v.1.15
  ViewVC Help
Powered by ViewVC 1.1.22