/[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.11 by heimbach, Thu Jul 28 13:54:35 2005 UTC revision 1.12 by heimbach, Thu Jul 28 19:53:33 2005 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_PRECIP_CONTROL  #ifdef ALLOW_TR10_CONTROL
292        else if ( grdchkvarindex .eq. 17 ) then        else if ( grdchkvarindex .eq. 17 ) then
293           il=ilnblnk( xx_precip_file )           il=ilnblnk( xx_tr1_file )
294           write(fname(1:80),'(80a)') ' '           write(fname(1:80),'(80a)') ' '
295           write(fname(1:80),'(3a,i10.10)')           write(fname(1:80),'(3a,i10.10)')
296       &        yadmark, xx_precip_file(1:il),'.',optimcycle       &        yadmark, xx_tr1_file(1:il),'.',optimcycle
297            
298           call active_read_xy_loc( fname, tmpfld2d, icvrec,           call active_read_xyz_loc( fname, tmpfld3d, 1,
299       &                        doglobalread, ladinit, optimcycle,       &                         doglobalread, ladinit, optimcycle,
300       &                        mythid, dummy)       &                         mythid, dummy)
301    
302           xx_comp = tmpfld2d( itilepos,jtilepos,itile,jtile )           xx_comp = tmpfld3d( itilepos,jtilepos,layer,itile,jtile )
303    
304  #endif /* ALLOW_PRECIP_CONTROL */  #endif /* ALLOW_TR10_CONTROL */
305    
306  #ifdef ALLOW_SST0_CONTROL  #ifdef ALLOW_SST0_CONTROL
307        else if ( grdchkvarindex .eq. 18 ) then        else if ( grdchkvarindex .eq. 18 ) then
# 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_TR10_CONTROL  #ifdef ALLOW_PRECIP_CONTROL
393        else if ( grdchkvarindex .eq. 32 ) then        else if ( grdchkvarindex .eq. 32 ) then
394           il=ilnblnk( xx_tr1_file )           il=ilnblnk( xx_precip_file )
395           write(fname(1:80),'(80a)') ' '           write(fname(1:80),'(80a)') ' '
396           write(fname(1:80),'(3a,i10.10)')           write(fname(1:80),'(3a,i10.10)')
397       &        yadmark, xx_tr1_file(1:il),'.',optimcycle       &        yadmark, xx_precip_file(1:il),'.',optimcycle
           
          call active_read_xyz_loc( fname, tmpfld3d, 1,  
      &                         doglobalread, ladinit, optimcycle,  
      &                         mythid, dummy)  
398    
399           xx_comp = tmpfld3d( itilepos,jtilepos,layer,itile,jtile )           call active_read_xy_loc( fname, tmpfld2d, icvrec,
400         &                        doglobalread, ladinit, optimcycle,
401         &                        mythid, dummy)
402    
403  #endif /* ALLOW_TR10_CONTROL */           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        else        else
423  ce      --> this index does not exist yet.  ce      --> this index does not exist yet.
Legend:
Removed from v.1.11  
changed lines
  Added in v.1.12
  ViewVC Help
Powered by ViewVC 1.1.22