/[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.9 by heimbach, Fri Jul 18 21:10:16 2003 UTC revision 1.14 by heimbach, Wed Aug 31 00:03:44 2005 UTC
# Line 48  c     == routine arguments == Line 48  c     == routine arguments ==
48        _RL     xx_comp        _RL     xx_comp
49        integer mythid        integer mythid
50    
51  #ifdef ALLOW_GRADIENT_CHECK  #ifdef ALLOW_GRDCHK
52  c     == local variables ==  c     == local variables ==
53    
54        integer il        integer il
# 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)') ' '
# Line 389  c--   == end of interface == Line 389  c--   == end of interface ==
389    
390  #endif /* ALLOW_EFLUXP0_CONTROL */  #endif /* ALLOW_EFLUXP0_CONTROL */
391    
392    #ifdef ALLOW_PRECIP_CONTROL
393          else if ( grdchkvarindex .eq. 32 ) then
394             il=ilnblnk( xx_precip_file )
395             write(fname(1:80),'(80a)') ' '
396             write(fname(1:80),'(3a,i10.10)')
397         &        yadmark, xx_precip_file(1:il),'.',optimcycle
398    
399             call active_read_xy_loc( fname, tmpfld2d, icvrec,
400         &                        doglobalread, ladinit, optimcycle,
401         &                        mythid, dummy)
402    
403             xx_comp = tmpfld2d( itilepos,jtilepos,itile,jtile )
404    
405    #endif /* ALLOW_PRECIP_CONTROL */
406    
407    #ifdef ALLOW_SWFLUX_CONTROL
408          else if ( grdchkvarindex .eq. 33 ) then
409             il=ilnblnk( xx_swflux_file )
410             write(fname(1:80),'(80a)') ' '
411             write(fname(1:80),'(3a,i10.10)')
412         &        yadmark, xx_swflux_file(1:il),'.',optimcycle
413    
414             call active_read_xy_loc( fname, tmpfld2d, icvrec,
415         &                        doglobalread, ladinit, optimcycle,
416         &                        mythid, dummy)
417    
418             xx_comp = tmpfld2d( itilepos,jtilepos,itile,jtile )
419    
420    #endif /* ALLOW_SWFLUX_CONTROL */
421    
422    #ifdef ALLOW_SWDOWN_CONTROL
423          else if ( grdchkvarindex .eq. 34 ) then
424             il=ilnblnk( xx_swdown_file )
425             write(fname(1:80),'(80a)') ' '
426             write(fname(1:80),'(3a,i10.10)')
427         &        yadmark, xx_swdown_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_SWDOWN_CONTROL */
436    
437        else        else
438  ce      --> this index does not exist yet.  ce      --> this index does not exist yet.
439        endif        endif
440    
441  #endif /* ALLOW_GRADIENT_CHECK */  #endif /* ALLOW_GRDCHK */
442    
443        end        end
444    
Legend:
Removed from v.1.9  
changed lines
  Added in v.1.14
  ViewVC Help
Powered by ViewVC 1.1.22