@@ -222,7 +222,8 @@ contains
222
222
call this%PSyDataBaseType%PreStart(module_name, region_name, &
223
223
num_pre_vars, num_post_vars)
224
224
if (this%verbosity >= 1) then
225
- write(stderr,*) "Opening ", trim(module_name//"-"//region_name//".nc")
225
+ write(stderr,*) "Opening ", trim(module_name) // "-" // &
226
+ trim(region_name) // ".nc"
226
227
endif
227
228
228
229
@@ -275,8 +276,8 @@ contains
275
276
276
277
call this%PSyDataBaseType%PreEndDeclaration()
277
278
if (this%verbosity >= 1) then
278
- write(stderr,*) "Ending definition ", this%module_name // &
279
- "-"//this%region_name//".nc"
279
+ write(stderr,*) "Ending definition ", trim( this%module_name) // &
280
+ "-"//trim( this%region_name) //".nc"
280
281
endif
281
282
retval = CheckError(nf90_enddef(this%ncid))
282
283
@@ -297,8 +298,8 @@ contains
297
298
298
299
integer :: retval
299
300
if (this%verbosity >= 1) then
300
- write(stderr,*) "Closing ", this%module_name// "-" //&
301
- this%region_name// ".nc"
301
+ write(stderr,*) "Closing ", trim( this%module_name) // "-" // &
302
+ trim( this%region_name) // ".nc"
302
303
endif
303
304
retval = CheckError(nf90_close(this%ncid))
304
305
call this%PSyDataBaseType%PostEnd()
0 commit comments