--- MITgcm/pkg/grdchk/grdchk_getadxx.F	2006/06/07 01:55:14	1.16
+++ MITgcm/pkg/grdchk/grdchk_getadxx.F	2006/10/27 05:16:54	1.17
@@ -1,4 +1,4 @@
-C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/pkg/grdchk/grdchk_getadxx.F,v 1.16 2006/06/07 01:55:14 heimbach Exp $
+C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/pkg/grdchk/grdchk_getadxx.F,v 1.17 2006/10/27 05:16:54 heimbach Exp $
 
 #include "CTRL_CPPOPTIONS.h"
 
@@ -88,9 +88,7 @@
          call active_read_xyz_loc( fname, tmpfld3d, 1,
      &                         doglobalread, ladinit, optimcycle,
      &                         mythid, dummy)
-
          xx_comp = tmpfld3d( itilepos,jtilepos,layer,itile,jtile )
-
 #endif /* ALLOW_THETA0_CONTROL */
 
 #ifdef ALLOW_SALT0_CONTROL
@@ -99,11 +97,9 @@
          write(fname(1:80),'(80a)') ' '
          write(fname(1:80),'(3a,i10.10)')
      &        yadmark, xx_salt_file(1:il),'.',optimcycle
-         
          call active_read_xyz_loc( fname, tmpfld3d, 1,
      &                         doglobalread, ladinit, optimcycle,
      &                         mythid, dummy)
-
          xx_comp = tmpfld3d( itilepos,jtilepos,layer,itile,jtile )
 
 #endif /* ALLOW_SALT0_CONTROL */
@@ -114,13 +110,10 @@
          write(fname(1:80),'(80a)') ' '
          write(fname(1:80),'(3a,i10.10)')
      &        yadmark, xx_hflux_file(1:il),'.',optimcycle
-
          call active_read_xy_loc( fname, tmpfld2d, icvrec,
      &                        doglobalread, ladinit, optimcycle,
      &                        mythid, dummy)
-
          xx_comp = tmpfld2d( itilepos,jtilepos,itile,jtile )
-
 #endif /* ALLOW_HFLUX_CONTROL */
 
 #ifdef ALLOW_SFLUX_CONTROL
@@ -129,13 +122,10 @@
          write(fname(1:80),'(80a)') ' '
          write(fname(1:80),'(3a,i10.10)')
      &        yadmark, xx_sflux_file(1:il),'.',optimcycle
-
          call active_read_xy_loc( fname, tmpfld2d, icvrec,
      &                        doglobalread, ladinit, optimcycle,
      &                        mythid, dummy)
-
          xx_comp = tmpfld2d( itilepos,jtilepos,itile,jtile )
-
 #endif /* ALLOW_SFLUX_CONTROL */
 
 #ifdef ALLOW_USTRESS_CONTROL
@@ -144,13 +134,10 @@
          write(fname(1:80),'(80a)') ' '
          write(fname(1:80),'(3a,i10.10)')
      &        yadmark, xx_tauu_file(1:il),'.',optimcycle
-
          call active_read_xy_loc( fname, tmpfld2d, icvrec,
      &                        doglobalread, ladinit, optimcycle,
      &                        mythid, dummy)
-
          xx_comp = tmpfld2d( itilepos,jtilepos,itile,jtile )
-
 #endif /* ALLOW_USTRESS_CONTROL */
 
 #ifdef ALLOW_VSTRESS_CONTROL
@@ -159,13 +146,10 @@
          write(fname(1:80),'(80a)') ' '
          write(fname(1:80),'(3a,i10.10)')
      &        yadmark, xx_tauv_file(1:il),'.',optimcycle
-
          call active_read_xy_loc( fname, tmpfld2d, icvrec,
      &                        doglobalread, ladinit, optimcycle,
      &                        mythid, dummy)
-
          xx_comp = tmpfld2d( itilepos,jtilepos,itile,jtile )
-
 #endif /* ALLOW_VSTRESS_CONTROL */
 
 #ifdef ALLOW_ATEMP_CONTROL
@@ -174,13 +158,10 @@
          write(fname(1:80),'(80a)') ' '
          write(fname(1:80),'(3a,i10.10)')
      &        yadmark, xx_atemp_file(1:il),'.',optimcycle
-
          call active_read_xy_loc( fname, tmpfld2d, icvrec,
      &                        doglobalread, ladinit, optimcycle,
      &                        mythid, dummy)
-
          xx_comp = tmpfld2d( itilepos,jtilepos,itile,jtile )
-
 #endif /* ALLOW_ATEMP_CONTROL */
 
 #ifdef ALLOW_AQH_CONTROL
@@ -189,13 +170,10 @@
          write(fname(1:80),'(80a)') ' '
          write(fname(1:80),'(3a,i10.10)')
      &        yadmark, xx_aqh_file(1:il),'.',optimcycle
-
          call active_read_xy_loc( fname, tmpfld2d, icvrec,
      &                        doglobalread, ladinit, optimcycle,
      &                        mythid, dummy)
-
          xx_comp = tmpfld2d( itilepos,jtilepos,itile,jtile )
-
 #endif /* ALLOW_AQH_CONTROL */
 
 #ifdef ALLOW_UWIND_CONTROL
@@ -204,13 +182,10 @@
          write(fname(1:80),'(80a)') ' '
          write(fname(1:80),'(3a,i10.10)')
      &        yadmark, xx_uwind_file(1:il),'.',optimcycle
-
          call active_read_xy_loc( fname, tmpfld2d, icvrec,
      &                        doglobalread, ladinit, optimcycle,
      &                        mythid, dummy)
-
          xx_comp = tmpfld2d( itilepos,jtilepos,itile,jtile )
-
 #endif /* ALLOW_UWIND_CONTROL */
 
 #ifdef ALLOW_VWIND_CONTROL
@@ -219,13 +194,10 @@
          write(fname(1:80),'(80a)') ' '
          write(fname(1:80),'(3a,i10.10)')
      &        yadmark, xx_vwind_file(1:il),'.',optimcycle
-
          call active_read_xy_loc( fname, tmpfld2d, icvrec,
      &                        doglobalread, ladinit, optimcycle,
      &                        mythid, dummy)
-
          xx_comp = tmpfld2d( itilepos,jtilepos,itile,jtile )
-
 #endif /* ALLOW_VWIND_CONTROL */
 
 #ifdef ALLOW_OBCSN_CONTROL
@@ -339,13 +311,10 @@
          write(fname(1:80),'(80a)') ' '
          write(fname(1:80),'(3a,i10.10)')
      &        yadmark, xx_sst_file(1:il),'.',optimcycle
-
          call active_read_xy_loc( fname, tmpfld2d, icvrec,
      &                        doglobalread, ladinit, optimcycle,
      &                        mythid, dummy)
-
          xx_comp = tmpfld2d( itilepos,jtilepos,itile,jtile )
-
 #endif /* ALLOW_SST0_CONTROL */
 
 #if (defined (ALLOW_SSS_CONTROL) || defined (ALLOW_SSS0_CONTROL))
@@ -354,13 +323,10 @@
          write(fname(1:80),'(80a)') ' '
          write(fname(1:80),'(3a,i10.10)')
      &        yadmark, xx_sss_file(1:il),'.',optimcycle
-
          call active_read_xy_loc( fname, tmpfld2d, icvrec,
      &                        doglobalread, ladinit, optimcycle,
      &                        mythid, dummy)
-
          xx_comp = tmpfld2d( itilepos,jtilepos,itile,jtile )
-
 #endif /* ALLOW_SSS0_CONTROL */
 
 #ifdef ALLOW_DEPTH_CONTROL
@@ -369,13 +335,10 @@
          write(fname(1:80),'(80a)') ' '
          write(fname(1:80),'(3a,i10.10)')
      &        yadmark, xx_depth_file(1:il),'.',optimcycle
-
          call active_read_xy_loc( fname, tmpfld2d, icvrec,
      &                        doglobalread, ladinit, optimcycle,
      &                        mythid, dummy)
-
          xx_comp = tmpfld2d( itilepos,jtilepos,itile,jtile )
-
 #endif /* ALLOW_DEPTH_CONTROL */
 
 #ifdef ALLOW_EFLUXY0_CONTROL
@@ -414,13 +377,10 @@
          write(fname(1:80),'(80a)') ' '
          write(fname(1:80),'(3a,i10.10)')
      &        yadmark, xx_precip_file(1:il),'.',optimcycle
-
          call active_read_xy_loc( fname, tmpfld2d, icvrec,
      &                        doglobalread, ladinit, optimcycle,
      &                        mythid, dummy)
-
          xx_comp = tmpfld2d( itilepos,jtilepos,itile,jtile )
-
 #endif /* ALLOW_PRECIP_CONTROL */
 
 #ifdef ALLOW_SWFLUX_CONTROL
@@ -429,13 +389,10 @@
          write(fname(1:80),'(80a)') ' '
          write(fname(1:80),'(3a,i10.10)')
      &        yadmark, xx_swflux_file(1:il),'.',optimcycle
-
          call active_read_xy_loc( fname, tmpfld2d, icvrec,
      &                        doglobalread, ladinit, optimcycle,
      &                        mythid, dummy)
-
          xx_comp = tmpfld2d( itilepos,jtilepos,itile,jtile )
-
 #endif /* ALLOW_SWFLUX_CONTROL */
 
 #ifdef ALLOW_SWDOWN_CONTROL
@@ -444,14 +401,84 @@
          write(fname(1:80),'(80a)') ' '
          write(fname(1:80),'(3a,i10.10)')
      &        yadmark, xx_swdown_file(1:il),'.',optimcycle
+         call active_read_xy_loc( fname, tmpfld2d, icvrec,
+     &                        doglobalread, ladinit, optimcycle,
+     &                        mythid, dummy)
+         xx_comp = tmpfld2d( itilepos,jtilepos,itile,jtile )
+#endif /* ALLOW_SWDOWN_CONTROL */
 
+#ifdef ALLOW_LWFLUX_CONTROL
+      else if ( grdchkvarindex .eq. 35 ) then
+         il=ilnblnk( xx_lwflux_file )
+         write(fname(1:80),'(80a)') ' '
+         write(fname(1:80),'(3a,i10.10)')
+     &        yadmark, xx_lwflux_file(1:il),'.',optimcycle
          call active_read_xy_loc( fname, tmpfld2d, icvrec,
      &                        doglobalread, ladinit, optimcycle,
      &                        mythid, dummy)
+         xx_comp = tmpfld2d( itilepos,jtilepos,itile,jtile )
+#endif /* ALLOW_LWFLUX_CONTROL */
 
+#ifdef ALLOW_LWDOWN_CONTROL
+      else if ( grdchkvarindex .eq. 36 ) then
+         il=ilnblnk( xx_lwdown_file )
+         write(fname(1:80),'(80a)') ' '
+         write(fname(1:80),'(3a,i10.10)')
+     &        yadmark, xx_lwdown_file(1:il),'.',optimcycle
+         call active_read_xy_loc( fname, tmpfld2d, icvrec,
+     &                        doglobalread, ladinit, optimcycle,
+     &                        mythid, dummy)
          xx_comp = tmpfld2d( itilepos,jtilepos,itile,jtile )
+#endif /* ALLOW_LWDOWN_CONTROL */
 
-#endif /* ALLOW_SWDOWN_CONTROL */
+#ifdef ALLOW_EVAP_CONTROL
+      else if ( grdchkvarindex .eq. 37 ) then
+         il=ilnblnk( xx_evap_file )
+         write(fname(1:80),'(80a)') ' '
+         write(fname(1:80),'(3a,i10.10)')
+     &        yadmark, xx_evap_file(1:il),'.',optimcycle
+         call active_read_xy_loc( fname, tmpfld2d, icvrec,
+     &                        doglobalread, ladinit, optimcycle,
+     &                        mythid, dummy)
+         xx_comp = tmpfld2d( itilepos,jtilepos,itile,jtile )
+#endif /* ALLOW_EVAP_CONTROL */
+
+#ifdef ALLOW_SNOWPRECIP_CONTROL
+      else if ( grdchkvarindex .eq. 38 ) then
+         il=ilnblnk( xx_snowprecip_file )
+         write(fname(1:80),'(80a)') ' '
+         write(fname(1:80),'(3a,i10.10)')
+     &        yadmark, xx_snowprecip_file(1:il),'.',optimcycle
+         call active_read_xy_loc( fname, tmpfld2d, icvrec,
+     &                        doglobalread, ladinit, optimcycle,
+     &                        mythid, dummy)
+         xx_comp = tmpfld2d( itilepos,jtilepos,itile,jtile )
+#endif /* ALLOW_SNOWPRECIP_CONTROL */
+
+#ifdef ALLOW_APRESSURE_CONTROL
+      else if ( grdchkvarindex .eq. 39 ) then
+         il=ilnblnk( xx_apressure_file )
+         write(fname(1:80),'(80a)') ' '
+         write(fname(1:80),'(3a,i10.10)')
+     &        yadmark, xx_apressure_file(1:il),'.',optimcycle
+
+         call active_read_xy_loc( fname, tmpfld2d, icvrec,
+     &                        doglobalread, ladinit, optimcycle,
+     &                        mythid, dummy)
+         xx_comp = tmpfld2d( itilepos,jtilepos,itile,jtile )
+#endif /* ALLOW_APRESSURE_CONTROL */
+
+#ifdef ALLOW_RUNOFF_CONTROL
+      else if ( grdchkvarindex .eq. 40 ) then
+         il=ilnblnk( xx_runoff_file )
+         write(fname(1:80),'(80a)') ' '
+         write(fname(1:80),'(3a,i10.10)')
+     &        yadmark, xx_runoff_file(1:il),'.',optimcycle
+         call active_read_xy_loc( fname, tmpfld2d, icvrec,
+     &                        doglobalread, ladinit, optimcycle,
+     &                        mythid, dummy)
+         xx_comp = tmpfld2d( itilepos,jtilepos,itile,jtile )
+#endif /* ALLOW_RUNOFF_CONTROL */
 
       else
 ce      --> this index does not exist yet.