Add namelist section to error message 'timeav must be a integer multi…

…ple of dtav'

src/modbudget.f90

@@ -112,10 +112,10 @@ subroutine initbudget
     dt_lim = min(dt_lim,tnext)
 
     if (abs(timeav/dtav-nsamples)>1e-4) then
-      stop 'timeav must be a integer multiple of dtav'
+      stop 'NAMBUDGET: timeav must be a integer multiple of dtav'
     end if
     if (.not. ladaptive .and.abs( dtav/dtmax-nint(dtav/dtmax))>1e-4) then
-      stop 'dtav should be a integer multiple of dtmax'
+      stop 'NAMBUDGET: dtav should be a integer multiple of dtmax'
     end if
 
     !time averaged fields, resolved TKE

src/modgenstat.f90

@@ -234,7 +234,7 @@ subroutine initgenstat
     dt_lim = min(dt_lim,tnext)
 
     if (abs(timeav/dtav-nsamples)>1e-4) then
-      stop 'timeav must be a integer multiple of dtav'
+      stop 'NAMGENSTAT: timeav must be a integer multiple of dtav'
     end if
 
     allocate(umn(k1),vmn(k1),wmn(k1))

src/modlsmstat.f90

@@ -99,10 +99,10 @@ subroutine initlsmstat
     dt_lim = min(dt_lim,tnext)
 
     if (abs(timeav/dtav-nsamples)>1e-4) then
-      stop 'timeav must be a integer multiple of dtav'
+      stop 'NAMLSMSTAT: timeav must be a integer multiple of dtav'
     end if
     if (.not. ladaptive .and. abs(dtav/dtmax-nint(dtav/dtmax))>1e-4) then
-      stop 'dtav should be a integer multiple of dtmax'
+      stop 'NAMLSMSTAT: dtav should be a integer multiple of dtmax'
     end if
 
     if (isurf == 1) then

src/modquadrant.f90

@@ -116,10 +116,10 @@ subroutine initquadrant
     tnextwrite       = itimeav + btime
 
     if (abs(timeav/dtav-nint(timeav/dtav))>1e-4) then
-      stop 'timeav must be a integer multiple of dtav'
+      stop 'NAMquadrant: timeav must be a integer multiple of dtav'
     end if
     if (.not. ladaptive .and. abs(dtav/dtmax-nint(dtav/dtmax))>1e-4) then
-      stop 'dtav should be a integer multiple of dtmax'
+      stop 'NAMquadrant: dtav should be a integer multiple of dtmax'
     end if
 
     nvar   = 22 + 4 * nsv

src/modradfield.f90

@@ -82,11 +82,11 @@ subroutine initradfield
 
 
     if (abs(timeav/dtav-nsamples)>1e-4) then
-       stop 'radfield timeav must be a integer multiple of dtav'
+       stop 'NAMRADFIELD: timeav must be a integer multiple of dtav'
     end if
 
     if (.not. ladaptive .and. abs(dtav/dtmax-nint(dtav/dtmax))>1e-4) then
-       stop 'radfield dtav should be a integer multiple of dtmax'
+       stop 'NAMRADFIELD: dtav should be a integer multiple of dtmax'
     end if
 
     allocate(field_2D_mn(2-ih:i1+ih,2-jh:j1+jh,nvar))

src/modradstat.f90

@@ -124,10 +124,10 @@ subroutine initradstat
     dt_lim = min(dt_lim,tnext)
 
     if (abs(timeav/dtav-nsamples)>1e-4) then
-      stop 'timeav must be a integer multiple of dtav'
+      stop 'NAMRADSTAT: timeav must be a integer multiple of dtav'
     end if
     if (.not. ladaptive .and. abs(dtav/dtmax-nint(dtav/dtmax))>1e-4) then
-      stop 'dtav should be a integer multiple of dtmax'
+      stop 'NAMRADSTAT: dtav should be a integer multiple of dtmax'
     end if
 
     allocate(lwuav(k1))

src/modsampling.f90

@@ -146,10 +146,10 @@ subroutine initsampling
     tnextwrite = itimeav +btime
 
     if (abs(timeav/dtav-nint(timeav/dtav))>1e-4) then
-      stop 'timeav must be a integer multiple of dtav'
+      stop 'NAMSAMPLING: timeav must be a integer multiple of dtav'
     end if
     if (.not. ladaptive .and. abs(dtav/dtmax-nint(dtav/dtmax))>1e-4) then
-      stop 'dtav should be a integer multiple of dtmax'
+      stop 'NAMSAMPLING: dtav should be a integer multiple of dtmax'
     end if
 
     allocate( wfavl     (k1,isamptot),thlfavl  (k1,isamptot),thvfavl   (k1,isamptot), &

src/modsamptend.f90

@@ -114,14 +114,14 @@ subroutine initsamptend
 
 
     if (abs(timeav/dtav-nint(timeav/dtav))>1e-4) then
-      stop 'timeav must be a integer multiple of dtav'
+      stop 'modsamptend: timeav must be a integer multiple of dtav'
     end if
     if (.not. ladaptive .and. abs(dtav/dtmax-nint(dtav/dtmax))>1e-4) then
-      stop 'dtav should be a integer multiple of dtmax'
+      stop 'modsamptend: dtav should be a integer multiple of dtmax'
     end if
 
     if (ltenddec .and. .not. lprocblock) then
-      stop 'ltenddec is only intended to be used to complement processor-averaged budgets'
+      stop 'modsamptend: ltenddec is only intended to be used to complement processor-averaged budgets'
     end if
 
     if (lsamptendu) allocate (uptm(k1,nrfields,isamptot), upmn(k1,nrfields,isamptot), upav(k1,nrfields,isamptot), ust(k1,isamptot))

src/modvarbudget.f90

@@ -80,10 +80,10 @@ subroutine initvarbudget
     dt_lim = min(dt_lim,tnext)
 
     if (abs(timeav/dtav-nsamples)>1e-4) then
-      stop 'timeav must be a integer multiple of dtav'
+      stop 'NAMVARBUDGET: timeav must be a integer multiple of dtav'
     end if
     if (.not. ladaptive .and.abs( dtav/dtmax-nint(dtav/dtmax))>1e-4) then
-      stop 'dtav should be a integer multiple of dtmax'
+      stop 'NAMVARBUDGET: dtav should be a integer multiple of dtmax'
     end if
 
     allocate(thl2fav   (k1))