[Dart-dev] DART/branches Revision: 13020

[dart at ucar.edu]

thoar at ucar.edu
2019-03-18 17:26:12 -0600 (Mon, 18 Mar 2019)
74
Removed the 'use netcdf' line from modules/programs that do not need it.




Modified: DART/branches/recam/assimilation_code/modules/io/state_vector_io_mod.f90
===================================================================
--- DART/branches/recam/assimilation_code/modules/io/state_vector_io_mod.f90	2019-03-18 23:23:34 UTC (rev 13019)
+++ DART/branches/recam/assimilation_code/modules/io/state_vector_io_mod.f90	2019-03-18 23:26:12 UTC (rev 13020)
@@ -68,16 +68,14 @@
 
 use state_structure_mod,  only : get_num_domains
 
-use netcdf
 
-
 implicit none
 
 ! version controlled file description for error handling, do not edit
-character(len=256), parameter :: source   = &
+character(len=*), parameter :: source   = &
    "$URL$"
-character(len=32 ), parameter :: revision = "$Revision$"
-character(len=128), parameter :: revdate  = "$Date$"
+character(len=*), parameter :: revision = "$Revision$"
+character(len=*), parameter :: revdate  = "$Date$"
 
 private
 

Modified: DART/branches/recam/assimilation_code/programs/fill_inflation_restart/fill_inflation_restart.f90
===================================================================
--- DART/branches/recam/assimilation_code/programs/fill_inflation_restart/fill_inflation_restart.f90	2019-03-18 23:23:34 UTC (rev 13019)
+++ DART/branches/recam/assimilation_code/programs/fill_inflation_restart/fill_inflation_restart.f90	2019-03-18 23:26:12 UTC (rev 13020)
@@ -45,8 +45,6 @@
 
 use     mpi_utilities_mod, only : initialize_mpi_utilities, finalize_mpi_utilities
 
-use netcdf
-
 implicit none
 
 ! version controlled file description for error handling, do not edit

Modified: DART/branches/recam/developer_tests/io/test_cf_conventions.f90
===================================================================
--- DART/branches/recam/developer_tests/io/test_cf_conventions.f90	2019-03-18 23:23:34 UTC (rev 13019)
+++ DART/branches/recam/developer_tests/io/test_cf_conventions.f90	2019-03-18 23:26:12 UTC (rev 13020)
@@ -65,6 +65,7 @@
 ! initialize the dart libs
 call initialize_module()
 
+!>@todo FIXME ... add variable E when scale/offset are supported
 domid = add_domain(test_file(1), num_vars=4, var_names=(/'A', 'B', 'C', 'D'/))
 
 if (verbose) then

Modified: DART/branches/recam/developer_tests/io/test_read_write_time.f90
===================================================================
--- DART/branches/recam/developer_tests/io/test_read_write_time.f90	2019-03-18 23:23:34 UTC (rev 13019)
+++ DART/branches/recam/developer_tests/io/test_read_write_time.f90	2019-03-18 23:26:12 UTC (rev 13020)
@@ -4,7 +4,7 @@
 !
 ! $Id: test_read_write_time.f90 13006 2019-03-06 23:28:13Z thoar at ucar.edu $
 
-!> @todo  FIXME - not done yet.
+!>@todo  FIXME - add more tests ... wrong calendars, etc.
 
 program test_read_write_time
 
@@ -13,8 +13,8 @@
                                  find_namelist_in_file, check_namelist_read,   &
                                  do_nml_file, do_nml_term, nmlfileunit, to_upper, &
                                  initialize_utilities, finalize_utilities
-! FIXME - add specific routines
-use netcdf_utilities_mod  
+
+use netcdf_utilities_mod, only : nc_open_file_readwrite, nc_close_file
 use     dart_time_io_mod, only : read_model_time, write_model_time
 use     time_manager_mod, only : time_type, set_calendar_type, get_calendar_type, &
                                  set_time, print_time, operator(+)
@@ -22,10 +22,10 @@
 implicit none
 
 ! version controlled file description for error handling, do not edit
-character(len=256), parameter :: source   = &
+character(len=*), parameter :: source   = &
    "$URL: https://svn-dares-dart.cgd.ucar.edu/DART/branches/recam/developer_tests/io/test_read_write_time.f90 $"
-character(len=32 ), parameter :: revision = "$Revision: 13006 $"
-character(len=128), parameter :: revdate  = "$Date: 2019-03-06 16:28:13 -0700 (Wed, 06 Mar 2019) $"
+character(len=*), parameter :: revision = "$Revision: 13006 $"
+character(len=*), parameter :: revdate  = "$Date: 2019-03-06 16:28:13 -0700 (Wed, 06 Mar 2019) $"
 
 character(len=512) :: msgstring
 

Modified: DART/branches/recam/models/MITgcm_ocean/model_mod.f90
===================================================================
--- DART/branches/recam/models/MITgcm_ocean/model_mod.f90	2019-03-18 23:23:34 UTC (rev 13019)
+++ DART/branches/recam/models/MITgcm_ocean/model_mod.f90	2019-03-18 23:26:12 UTC (rev 13020)
@@ -28,6 +28,7 @@
 use mpi_utilities_mod, only: my_task_id
 use random_seq_mod,   only : random_seq_type, init_random_seq, random_gaussian
 
+use netcdf