libsim Versione 7.2.1
|
◆ transform_get_val()
Method for returning the contents of the object.
Definizione alla linea 1011 del file grid_transform_class.F90. 1013 'grid_transform_levtype_levtype_init: autogenerating '//t2c(inused-1) &
1014 //'/'//t2c(iend-istart)//' output levels (f->h)')
1015 DO i = istart, iend - 1
1016 CALL init(this%output_level_auto(i-istart+1), &
1017 trans%vertint%input_levtype%level1, lev_in(i)%l2)
1018 ENDDO
1019 ELSE
1020 CALL l4f_category_log(this%category, l4f_error, &
1021 'grid_transform_levtype_levtype_init: automatic generation of output levels &
1022 &available only for hybrid levels')
1023 CALL raise_error()
1024 RETURN
1025 ENDIF
1026 ELSE IF (.NOT.c_e(trans%vertint%input_levtype%level2) .AND. &
1027 c_e(trans%vertint%output_levtype%level2)) THEN ! half -> full
1028 ALLOCATE(this%output_level_auto(inused-1))
|