& land_impl_grT, land_calc_snow,
LOGICAL land_impl_grT
IF ( land_nLev.NE.2 .AND. land_impl_grT ) THEN
CALL WRITE_0D_L( land_impl_grT, INDEX_NONE,
land_impl_grT = .TRUE.
land_impl_grT = land_calc_grT .AND. land_impl_grT
IF ( land_impl_grT ) THEN
IF (land_calc_grT .AND. .NOT.land_impl_grT ) THEN
IF ( .NOT.land_impl_grT ) THEN
IF ( land_calc_grT .AND. .NOT.land_impl_grT ) THEN
IF ( useLand .AND. land_impl_grT ) THEN