Communicate ssnow%wbliq to workers

This is required so that the initialisation of ssnow%wbliq via
load_parameters is propagated to the worker processes.

Author: SeanBryan51

src/offline/cable_mpicommon.F90

@@ -29,7 +29,7 @@ MODULE cable_mpicommon
 
   ! base number of input fields: must correspond to CALLS to 
   ! MPI_address (field ) in *_mpimaster/ *_mpiworker
-  INTEGER, PARAMETER :: nparam = 340
+  INTEGER, PARAMETER :: nparam = 341
 
   ! MPI: extra params sent only if nsoilparmnew is true
   INTEGER, PARAMETER :: nsoilnew = 1

src/offline/cable_mpimaster.F90

@@ -1885,6 +1885,12 @@ SUBROUTINE master_cable_params (comm,met,air,ssnow,veg,bgc,soil,canopy,&
             &                             types(bidx), ierr)
        blen(bidx) = 1
 
+       bidx = bidx + 1
+       CALL MPI_Get_address (ssnow%wbliq(off,1), displs(bidx), ierr)
+       CALL MPI_Type_create_hvector (ms, r2len, r2stride, MPI_BYTE, &
+            &                             types(bidx), ierr)
+       blen(bidx) = 1
+
        ! additional  for sli
        bidx = bidx + 1
        CALL MPI_Get_address (ssnow%S(off,1), displs(bidx), ierr)

src/offline/cable_mpiworker.F90

@@ -1147,6 +1147,10 @@ SUBROUTINE worker_cable_params (comm,met,air,ssnow,veg,bgc,soil,canopy,&
     CALL MPI_Get_address (ssnow%wblf, displs(bidx), ierr)
     blen(bidx) = ms * r2len
 
+    bidx = bidx + 1
+    CALL MPI_Get_address (ssnow%wbliq, displs(bidx), ierr)
+    blen(bidx) = ms * r2len
+
     ! additional  for sli
     bidx = bidx + 1
     CALL MPI_Get_address (ssnow%S, displs(bidx), ierr)