/[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.20 by jmc, Tue Oct 9 00:05:45 2007 UTC revision 1.23 by gforget, Wed Jun 11 19:31:41 2008 UTC
# Line 291  c--   == end of interface == Line 291  c--   == end of interface ==
291    
292  #endif /* ALLOW_KAPGM_CONTROL */  #endif /* ALLOW_KAPGM_CONTROL */
293    
294    #ifdef ALLOW_KAPREDI_CONTROL
295          else if ( grdchkvarindex .eq. 16 ) then
296             il=ilnblnk( xx_kapredi_file )
297             write(fname(1:80),'(80a)') ' '
298             write(fname(1:80),'(3a,i10.10)')
299         &        yadmark, xx_kapredi_file(1:il),'.',optimcycle
300    
301             call active_read_xyz( fname, tmpfld3d, 1,
302         &                         doglobalread, ladinit, optimcycle,
303         &                         mythid, dummy)
304    
305             xx_comp = tmpfld3d( itilepos,jtilepos,layer,itile,jtile )
306    
307    #endif /* ALLOW_KAPREDI_CONTROL */
308    
309  #ifdef ALLOW_TR10_CONTROL  #ifdef ALLOW_TR10_CONTROL
310        else if ( grdchkvarindex .eq. 17 ) then        else if ( grdchkvarindex .eq. 17 ) then
311           il=ilnblnk( xx_tr1_file )           il=ilnblnk( xx_tr1_file )
# Line 372  c--   == end of interface == Line 387  c--   == end of interface ==
387    
388  #endif /* ALLOW_EFLUXP0_CONTROL */  #endif /* ALLOW_EFLUXP0_CONTROL */
389    
390    #ifdef ALLOW_HFLUXM_CONTROL
391          else if ( grdchkvarindex .eq. 24 ) then
392             il=ilnblnk( xx_hfluxm_file )
393             write(fname(1:80),'(80a)') ' '
394             write(fname(1:80),'(3a,i10.10)')
395         &        yadmark, xx_hfluxm_file(1:il),'.',optimcycle
396             call active_read_xy( fname, tmpfld2d, icvrec,
397         &                        doglobalread, ladinit, optimcycle,
398         &                        mythid, dummy)
399             xx_comp = tmpfld2d( itilepos,jtilepos,itile,jtile )
400    #endif /* ALLOW_HFLUXM_CONTROL */
401    
402  #ifdef ALLOW_PRECIP_CONTROL  #ifdef ALLOW_PRECIP_CONTROL
403        else if ( grdchkvarindex .eq. 32 ) then        else if ( grdchkvarindex .eq. 32 ) then
404           il=ilnblnk( xx_precip_file )           il=ilnblnk( xx_precip_file )
# Line 517  c--   == end of interface == Line 544  c--   == end of interface ==
544           xx_comp = tmpfld2d( itilepos,jtilepos,itile,jtile )           xx_comp = tmpfld2d( itilepos,jtilepos,itile,jtile )
545  #endif /* ALLOW_SIHSNOW_CONTROL */  #endif /* ALLOW_SIHSNOW_CONTROL */
546    
547    #ifdef ALLOW_ETAN0_CONTROL
548          else if ( grdchkvarindex .eq. 29 ) then
549             il=ilnblnk( xx_etan_file )
550             write(fname(1:80),'(80a)') ' '
551             write(fname(1:80),'(3a,i10.10)')
552         &        yadmark, xx_etan_file(1:il),'.',optimcycle
553             call active_read_xy( fname, tmpfld2d, 1,
554         &                        doglobalread, ladinit, optimcycle,
555         &                        mythid, dummy)
556             xx_comp = tmpfld2d( itilepos,jtilepos,itile,jtile )
557    #endif /* ALLOW_ETAN0_CONTROL */
558    
559        else        else
560  ce      --> this index does not exist yet.  ce      --> this index does not exist yet.
561        endif        endif
Legend:
Removed from v.1.20  
changed lines
  Added in v.1.23
  ViewVC Help
Powered by ViewVC 1.1.22