& land_calc_grT, land_calc_grW,
LOGICAL land_calc_grT
CALL WRITE_0D_L( land_calc_grT, INDEX_NONE,
ELSEIF ( land_calc_grT .OR. land_calc_grW ) THEN
& .NOT.( land_calc_grT .OR. land_calc_grW ) .OR.
land_calc_grT = .TRUE.
land_impl_grT = land_calc_grT .AND. land_impl_grT
IF ( land_calc_grT ) THEN
IF (land_calc_grT .AND. .NOT.land_impl_grT ) THEN
IF ( land_calc_grT .AND. .NOT.land_impl_grT ) THEN
IF (land_calc_grT) kFillW = 1