IF ( useRealFreshWaterFlux ) sIceLoadFac=recip_rhoConst
& exactConserv, linFSConserveTr, useRealFreshWaterFlux,
LOGICAL useRealFreshWaterFlux
& .AND. useRealFreshWaterFlux ) THEN
& useRealFreshWaterFlux .AND. usingPCoords ) THEN
& .AND. .NOT.useRealFreshWaterFlux ) THEN
IF ( useRealFreshWaterFlux .AND. useThSIce ) THEN
IF (rigidLid .AND. useRealFreshWaterFlux) THEN
IF ( useRealFreshWaterFlux .AND. exactConserv
IF ( useRealFreshWaterFlux .AND. .NOT.exactConserv
IF (useRealFreshWaterFlux .AND. .NOT.exactConserv
IF (useRealFreshWaterFlux
CALL WRITE_0D_L( useRealFreshWaterFlux, INDEX_NONE,
IF ( .NOT.useRealFreshWaterFlux .OR. selectAddFluid.EQ.-1
& .AND. useRealFreshWaterFlux )
IF ( useRealFreshWaterFlux ) THEN
& useRealFreshWaterFlux.AND.(nonlinFreeSurf.NE.0) ) THEN
IF ( useRealFreshWaterFlux.AND.(nonlinFreeSurf.GT.0)
IF ( useRealFreshWaterFlux .AND. .NOT.useThSIce ) THEN
IF ( useRealFreshWaterFlux )
IF ( SHELFICEconserve .AND. useRealFreshWaterFlux ) rFac = 0. _d 0
ELSEIF ( thSIceAdvScheme.LE.0 .AND. useRealFreshWaterFlux ) THEN
& selectAddFluid, useRealFreshWaterFlux, convertFW2Salt,
IF (useRealFreshWaterFlux) convertFW2Salt=-1
& .AND. fluidIsWater .AND. useRealFreshWaterFlux ) THEN
IF ( fluidIsWater.AND.useRealFreshWaterFlux ) facEmP=mass2rUnit
IF ( useRealFreshWaterFlux.AND.fluidIsWater ) THEN
useRealFreshWaterFlux = .FALSE.
IF (useRealFreshWaterFlux.AND.fluidIsWater) THEN