LOGICAL useLand
& useGMRedi, useOBCS, useAIM, useLand,
ELSEIF ( useLand .AND.
IF ( useLand .AND. land_impl_grT ) THEN
IF (useLand) THEN
CALL WRITE_0D_L( useLand, INDEX_NONE,
IF (useLand) CALL PACKAGES_CHECK_ERROR('LAND', myThid)
IF ( seqFlag.EQ.0 .AND. useLand ) THEN
IF (useLand) CALL LAND_INITIALISE( myThid )
useLand =.FALSE.
& useLand,
IF ( useLand ) THEN