IF ( fluidIsAir ) THEN
CALL WRITE_0D_L( fluidIsAir, INDEX_NONE,
fluidIsAir = .FALSE.
fluidIsAir = .TRUE.
& fluidIsAir, fluidIsWater,
LOGICAL fluidIsAir
IF (fluidIsAir) conv_th2Heat =
IF (fluidIsAir) vT_Heat = vT_Heat