/[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.11 by heimbach, Thu Jul 28 13:54:35 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_TR10_CONTROL  #ifdef ALLOW_PRECIP_CONTROL
292        else if ( grdchkvarindex .eq. 17 ) then        else if ( grdchkvarindex .eq. 17 ) then
293           il=ilnblnk( xx_tr1_file )           il=ilnblnk( xx_precip_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_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)  
297    
298           xx_comp = tmpfld3d( itilepos,jtilepos,layer,itile,jtile )           call active_read_xy_loc( fname, tmpfld2d, icvrec,
299         &                        doglobalread, ladinit, optimcycle,
300         &                        mythid, dummy)
301    
302  #endif /* ALLOW_TR10_CONTROL */           xx_comp = tmpfld2d( itilepos,jtilepos,itile,jtile )
303    
304    #endif /* ALLOW_PRECIP_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
393          else if ( grdchkvarindex .eq. 32 ) then
394             il=ilnblnk( xx_tr1_file )
395             write(fname(1:80),'(80a)') ' '
396             write(fname(1:80),'(3a,i10.10)')
397         &        yadmark, xx_tr1_file(1:il),'.',optimcycle
398            
399             call active_read_xyz_loc( fname, tmpfld3d, 1,
400         &                         doglobalread, ladinit, optimcycle,
401         &                         mythid, dummy)
402    
403             xx_comp = tmpfld3d( itilepos,jtilepos,layer,itile,jtile )
404    
405    #endif /* ALLOW_TR10_CONTROL */
406    
407        else        else
408  ce      --> this index does not exist yet.  ce      --> this index does not exist yet.
409        endif        endif
Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11
  ViewVC Help
Powered by ViewVC 1.1.22