[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