[Dart-dev] DART/branches Revision: 11250
dart at ucar.edu
dart at ucar.edu
Wed Mar 8 16:03:29 MST 2017
hendric at ucar.edu
2017-03-08 16:03:29 -0700 (Wed, 08 Mar 2017)
65
for gnu compiler, character arrays must all be the same length.
Modified: DART/branches/rma_trunk/models/simple_advection/model_mod.f90
===================================================================
--- DART/branches/rma_trunk/models/simple_advection/model_mod.f90 2017-03-08 23:00:10 UTC (rev 11249)
+++ DART/branches/rma_trunk/models/simple_advection/model_mod.f90 2017-03-08 23:03:29 UTC (rev 11250)
@@ -6,7 +6,7 @@
module model_mod
-use types_mod, only : r8, PI, i8
+use types_mod, only : r8, PI, i4, i8
use time_manager_mod, only : time_type, set_time, get_time
@@ -218,7 +218,11 @@
! can read/write it.
if (template_file /= '') then
dom_id = add_domain(template_file, NVARS, &
- (/ 'concentration', 'mean_source', 'source', 'source_phase', 'wind' /))
+ (/ 'concentration', &
+ 'mean_source ', &
+ 'source ', &
+ 'source_phase ', &
+ 'wind ' /))
else
!>@todo FIXME : should not need a template file if initializing members from code
@@ -225,12 +229,16 @@
write(string1, *) 'template file is required for now'
call error_handler(E_ERR,'static_init_model',string1, source, revision, revdate)
- dom_id = add_domain(NVARS, (/ 'concentration', 'mean_source', 'source', 'source_phase', 'wind' /))
+ dom_id = add_domain(NVARS, (/ 'concentration', &
+ 'mean_source ', &
+ 'source ', &
+ 'source_phase ', &
+ 'wind ' /))
do var_id=1, NVARS
call add_dimension_to_variable(dom_id, var_id, 'time', 1)
call add_dimension_to_variable(dom_id, var_id, 'member', my_ens_size)
- call add_dimension_to_variable(dom_id, var_id, 'location', num_grid_points)
+ call add_dimension_to_variable(dom_id, var_id, 'location', int(num_grid_points, i4))
enddo
call finished_adding_domain(dom_id)
More information about the Dart-dev
mailing list