[Dart-dev] [3373] DART/trunk/models/MITgcm_ocean: removed unused bits ( as per the absoft compiler)

[nancy at ucar.edu]

An HTML attachment was scrubbed...
URL: http://mailman.ucar.edu/pipermail/dart-dev/attachments/20080521/74008a0f/attachment.html
-------------- next part --------------
Modified: DART/trunk/models/MITgcm_ocean/create_ocean_obs.f90
===================================================================
--- DART/trunk/models/MITgcm_ocean/create_ocean_obs.f90	2008-05-22 00:40:12 UTC (rev 3372)
+++ DART/trunk/models/MITgcm_ocean/create_ocean_obs.f90	2008-05-22 00:40:57 UTC (rev 3373)
@@ -37,7 +37,7 @@
 
 character(len = 129) :: output_name
 character(len = 8 ) :: obsdate
-integer :: iunit, io, ii, day1, kkk, kbeg, kend
+integer :: iunit, io, day1
 
 ! ----------------------------------------------------------------------
 ! Declare namelist parameters

Modified: DART/trunk/models/MITgcm_ocean/model_mod.f90
===================================================================
--- DART/trunk/models/MITgcm_ocean/model_mod.f90	2008-05-22 00:40:12 UTC (rev 3372)
+++ DART/trunk/models/MITgcm_ocean/model_mod.f90	2008-05-22 00:40:57 UTC (rev 3373)
@@ -2355,7 +2355,7 @@
 
 ! temp space to hold data while we are writing it
 real(r4) :: data_2d_array(Nx,Ny), data_3d_array(Nx,Ny,Nz)
-integer :: i, j, k, l, indx, timestepcount_out
+integer :: i, j, k, l, indx
 
 ! These must be a fixed number and in a fixed order.
 character(len=128)  :: prefixstring

Modified: DART/trunk/models/MITgcm_ocean/ocean_obs_mod.f90
===================================================================
--- DART/trunk/models/MITgcm_ocean/ocean_obs_mod.f90	2008-05-22 00:40:12 UTC (rev 3372)
+++ DART/trunk/models/MITgcm_ocean/ocean_obs_mod.f90	2008-05-22 00:40:57 UTC (rev 3373)
@@ -82,17 +82,15 @@
 integer :: startdate1, startdate2
 integer :: obs_num, calender_type, iskip
 integer :: obs_unit
-integer :: obs_prof, obs_kind, obs_kind_gen, which_vert, obstype
+integer :: obs_kind, obs_kind_gen, which_vert, obstype
 
-real (r8) :: obs_err, lon, lat, vloc, obs_value
-real (r8) :: aqc, var2, lon2c, lonc
+real (r8) :: lon, lat, vloc, obs_value
+real (r8) :: aqc, var2, lonc
 type(time_type) :: time, pre_time
 
 character(len = 8 ) :: obsdate
 character(len = 80) :: label
 character(len = 129) :: copy_meta_data, qc_meta_data
-character(len = 6 ) :: subset
-logical :: pass
 
 if ( .not. module_initialized ) call initialize_module