Merge pull request #463 from martynpclark/bugfix/writeGRUparams

Bugfix/write gru parameters
CH-Earth · May 28, 2021 · 7e1c0c3 · 7e1c0c3
2 parents f9d427d + 89f760a
commit 7e1c0c3
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/build/source/driver/summa_defineOutput.f90 b/build/source/driver/summa_defineOutput.f90
@@ -100,11 +100,11 @@ subroutine summa_defineOutputFiles(modelTimeStep, summa1_struc, err, message)
  ! *** define the name of the model output file
  ! *****************************************************************************
 
- ! define full name of output file 
+ ! define full name of output file
  if(modelTimeStep==1)then
   select case(newOutputFile)
    case(noNewFiles);          ! do nothing, just ensure validity of outputfile option
-   case(newFileEveryOct1);    
+   case(newFileEveryOct1);
    case default; err=20; message=trim(message)//'unable to identify the option to define new output files'; return
   end select
 
@@ -141,7 +141,7 @@ subroutine summa_defineOutputFiles(modelTimeStep, summa1_struc, err, message)
   end do  ! (looping through HRUs)
 
   ! write GRU parameters
-  call writeParm(integerMissing,bparStruct%gru(iGRU),bpar_meta,err,cmessage)
+  call writeParm(iGRU,bparStruct%gru(iGRU),bpar_meta,err,cmessage)
   if(err/=0)then; message=trim(message)//trim(cmessage); return; endif
 
  end do  ! (looping through GRUs)