992 IF (trans%vertint%output_levtype%level1 == 105 .OR. &
993 trans%vertint%output_levtype%level1 == 150)
THEN 994 ALLOCATE(this%output_level_auto(inused-1))
995 CALL l4f_category_log(this%category,l4f_info, &
996 'grid_transform_levtype_levtype_init: autogenerating '//
t2c(inused-1) &
997 //
'/'//
t2c(iend-istart)//
' output levels (f->h)')
998 DO i = istart, iend - 1
999 CALL init(this%output_level_auto(i-istart+1), &
1000 trans%vertint%input_levtype%level1, lev_in(i)%l2)
1003 CALL l4f_category_log(this%category, l4f_error, &
1004 'grid_transform_levtype_levtype_init: automatic generation of output levels & 1005 &available only for hybrid levels')
1009 ELSE IF (.NOT.
c_e(trans%vertint%input_levtype%level2) .AND. &
1010 c_e(trans%vertint%output_levtype%level2))
THEN 1011 ALLOCATE(this%output_level_auto(inused-1))
1012 IF (trans%vertint%output_levtype%level1 == 105 .OR. &
1013 trans%vertint%output_levtype%level1 == 150)
THEN 1014 CALL l4f_category_log(this%category,l4f_info, &
Functions that return a trimmed CHARACTER representation of the input variable.
Costruttori per le classi datetime e timedelta.