revised a print statement

GEOS-ESM · Jan 15, 2025 · 1cf7112 · 1cf7112
1 parent 788c65f
commit 1cf7112
Showing 1 changed file with 1 addition and 2 deletions.
diff --git a/gridcomps/History/Sampler/MAPL_TrajectoryMod_smod.F90 b/gridcomps/History/Sampler/MAPL_TrajectoryMod_smod.F90
@@ -504,8 +504,7 @@
             do k=1, this%nobs_type
                if (this%obs(k)%nobs_epoch > 0) then
                   filename=trim(this%obs(k)%name)//trim(filename_suffix)
-                  call lgr%debug('%a %a', &
-                       "Sampling to new file : ",trim(filename))
+                  write(6,'(1x,a,2x,a)')  "Sampling to new file :",trim(filename)
                   call this%obs(k)%file_handle%create(trim(filename),_RC)
                   call this%obs(k)%file_handle%write(this%obs(k)%metadata,_RC)
                end if