Computation continued with bed model 2
Not found variable TRANS_MASS. In file rescue_gaia.f:
IF(TROUVE(NVAR_MTRANS+1).EQ.1) THEN
! Updating mtransfer with what was read in file
MTRANSFER%ADR(I)%P%R=TRANS_MASS(I,1:NPOIN)
CHECK_MTRANS=CHECK_MTRANS+1
WRITE(LU,*)'MASS TRANSFER READ FROM PREVIOUS FILE'
ENDIF
Replace with:
IF(TROUVE(NVAR_MTRANS+I).EQ.1) THEN
! Updating mtransfer with what was read in file
TRANS_MASS(I,1:NPOIN)=MTRANSFER%ADR(I)%P%R
CHECK_MTRANS=CHECK_MTRANS+1
WRITE(LU,*)'MASS TRANSFER READ FROM PREVIOUS FILE'
ENDIF