Error when reading vertically integrated mass transport.

[arango]

In some computers, a segmentation violation occurred when reading the river vertically integrated mass transport (QbarG) in get_data.F:

     IF (LuvSrc(ng).or.LwSrc(ng)) THEN
       CALL get_ngfld (ng, iNLM, idRtra, SSF(ng)%ncid,                 &
    &                  1, SSF(ng), update(1),                          &
    &                  1, Nsrc(ng), 1, 2, 1, Nsrc(ng), 1,              &
    &                  SOURCES(ng) % QbarG(:,1))
       IF (exit_flag.ne.NoError) RETURN
     END IF

This was changed to remove (:,1) in QbarG:

     IF (LuvSrc(ng).or.LwSrc(ng)) THEN
       CALL get_ngfld (ng, iNLM, idRtra, SSF(ng)%ncid,                 &
    &                  1, SSF(ng), update(1),                          &
    &                  1, Nsrc(ng), 1, 2, 1, Nsrc(ng), 1,              &
    &                  SOURCES(ng) % QbarG)
       IF (exit_flag.ne.NoError) RETURN
     END IF

Similar changes are made to tl_get_data.F, rp_get_data.F and ad_get_data.F.

Many thanks to Teruhisa Okada for ​bringing this to my attention.