[Dart-dev] DART/branches Revision: 10901

[dart at ucar.edu]

thoar at ucar.edu
2017-01-13 16:01:55 -0700 (Fri, 13 Jan 2017)
59
Using intent(in) attribute and removing hardcoded length.




Modified: DART/branches/rma_fixed_filenames/models/template/model_mod.f90
===================================================================
--- DART/branches/rma_fixed_filenames/models/template/model_mod.f90	2017-01-13 22:52:14 UTC (rev 10900)
+++ DART/branches/rma_fixed_filenames/models/template/model_mod.f90	2017-01-13 23:01:55 UTC (rev 10901)
@@ -511,7 +511,7 @@
 !> Stolen from pop model_mod.f90 restart_to_sv
 function read_model_time(filename)
 
-character(len=1024) :: filename
+character(len=*), intent(in) :: filename
 type(time_type) :: read_model_time
 
 read_model_time = set_time_missing()