988 CALL l4f_category_log(this%category, l4f_debug, &
989 'vertint: equal input and output level types '// &
990 t2c(trans%vertint%input_levtype%level1))
993 IF (
SIZE(lev_out) > 0)
THEN
994 ALLOCATE(mask_out(
SIZE(lev_out)), coord_out(
SIZE(lev_out)))
995 mask_out(:) = (lev_out(:)%level1 == trans%vertint%output_levtype%level1) .AND. &
996 (lev_out(:)%level2 == trans%vertint%output_levtype%level2)
997 CALL make_vert_coord(lev_out, mask_out, coord_out, dolog)
1000 IF (c_e(trans%vertint%input_levtype%level2) .AND. &
1001 .NOT.c_e(trans%vertint%output_levtype%level2))
THEN
1002 IF (trans%vertint%output_levtype%level1 == 105 .OR. &
1003 trans%vertint%output_levtype%level1 == 150)
THEN
1004 ALLOCATE(this%output_level_auto(inused-1))
1005 CALL l4f_category_log(this%category,l4f_info, &