[Dart-dev] DART/branches Revision: 12094
dart at ucar.edu
dart at ucar.edu
Fri Nov 10 14:51:34 MST 2017
thoar at ucar.edu
2017-11-10 14:51:34 -0700 (Fri, 10 Nov 2017)
56
fat-fingered a line continuation character ... fixing.
Modified: DART/branches/coamps/models/coamps_nest/coamps_netcdf_mod.f90
===================================================================
--- DART/branches/coamps/models/coamps_nest/coamps_netcdf_mod.f90 2017-11-10 21:48:51 UTC (rev 12093)
+++ DART/branches/coamps/models/coamps_nest/coamps_netcdf_mod.f90 2017-11-10 21:51:34 UTC (rev 12094)
@@ -506,7 +506,7 @@
call nc_check(nf90_enddef(ncFileID), routine//': nf_enddef')
fill_coords: do ii=1,ncoord_total-2
- write(msgstring,*) 'nf90_put_var ',ii,get_coord_var_id(coords(ii)), \
+ write(msgstring,*) 'nf90_put_var ',ii,get_coord_var_id(coords(ii)), &
trim(get_coord_var_name(coords(ii)))
call nc_check(nf90_put_var(ncFileID, get_coord_var_id(coords(ii)), &
(/ (real(jj-1,kind=r8)+get_coord_stagger(coords(ii)), &
More information about the Dart-dev
mailing list