/[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.3 by heimbach, Thu May 30 22:47:26 2002 UTC revision 1.4 by heimbach, Sat Jul 13 02:55:58 2002 UTC
# Line 73  c--   == end of interface == Line 73  c--   == end of interface ==
73        dumiter      = 0        dumiter      = 0
74        dumtime      = 0. _d 0        dumtime      = 0. _d 0
75    
76        if      ( grdchkvarindex .eq. 1 ) then        if ( grdchkvarindex .eq. 0 ) then
77             STOP 'GRDCHK INDEX 0 NOT ALLOWED'
78    
79  #ifdef ALLOW_THETA0_CONTROL  #ifdef ALLOW_THETA0_CONTROL
80          else if ( grdchkvarindex .eq. 1 ) then
81           il=ilnblnk( xx_theta_file )           il=ilnblnk( xx_theta_file )
82           write(fname(1:80),'(80a)') ' '           write(fname(1:80),'(80a)') ' '
83           write(fname(1:80),'(3a,i10.10)')           write(fname(1:80),'(3a,i10.10)')
# Line 234  c--   == end of interface == Line 237  c--   == end of interface ==
237  #endif /* ALLOW_HFACC3D_CONTROL */  #endif /* ALLOW_HFACC3D_CONTROL */
238  #endif /* ALLOW_HFACC_CONTROL */  #endif /* ALLOW_HFACC_CONTROL */
239    
240    #ifdef ALLOW_EFLUXY0_CONTROL
241          else if ( grdchkvarindex .eq. 21 ) then
242             il=ilnblnk( xx_efluxy_file )
243             write(fname(1:80),'(80a)') ' '
244             write(fname(1:80),'(3a,i10.10)')
245         &        yadmark, xx_efluxy_file(1:il),'.',optimcycle
246    
247             call active_read_xyz( fname, tmpfld3d, 1,
248         &                         doglobalread, ladinit, optimcycle,
249         &                         mythid, dummy)
250    
251             xx_comp = tmpfld3d( itilepos,jtilepos,layer,itile,jtile )
252    
253    #endif /* ALLOW_THETA0_CONTROL */
254    
255    #ifdef ALLOW_EFLUXY0_CONTROL
256          else if ( grdchkvarindex .eq. 21 ) then
257             il=ilnblnk( xx_efluxy_file )
258             write(fname(1:80),'(80a)') ' '
259             write(fname(1:80),'(3a,i10.10)')
260         &        yadmark, xx_efluxy_file(1:il),'.',optimcycle
261    
262             call active_read_xyz( fname, tmpfld3d, 1,
263         &                         doglobalread, ladinit, optimcycle,
264         &                         mythid, dummy)
265    
266             xx_comp = tmpfld3d( itilepos,jtilepos,layer,itile,jtile )
267    
268    #endif /* ALLOW_EFLUXY0_CONTROL */
269    
270    #ifdef ALLOW_EFLUXP0_CONTROL
271          else if ( grdchkvarindex .eq. 22 ) then
272             il=ilnblnk( xx_efluxp_file )
273             write(fname(1:80),'(80a)') ' '
274             write(fname(1:80),'(3a,i10.10)')
275         &        yadmark, xx_efluxp_file(1:il),'.',optimcycle
276    
277             call active_read_xyz( fname, tmpfld3d, 1,
278         &                         doglobalread, ladinit, optimcycle,
279         &                         mythid, dummy)
280    
281             xx_comp = tmpfld3d( itilepos,jtilepos,layer,itile,jtile )
282    
283    #endif /* ALLOW_EFLUXP0_CONTROL */
284    
285        else        else
286  ce      --> this index does not exist yet.  ce      --> this index does not exist yet.
287        endif        endif
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22