TYPE, PUBLIC :: FLD
REAL(wp) , ALLOCATABLE, DIMENSION(:,:,: ) :: fnow
REAL(wp) , ALLOCATABLE, DIMENSION(:,:,:,:) :: fdta
END TYPE FLD
TYPE(FLD), ALLOCATABLE, DIMENSION(:) :: sf_tsd
SUBROUTINE dta_tsd(a, b)
INTEGER :: a
INTEGER :: b
sf_tsd(1)%fnow(1,1,1) = sf_tsd(1)%fnow(1,1,1) - 0.20
END SUBROUTINE dta_tsd
欢迎光临 Fortran Coder (http://bbs.fcode.cn/) | Powered by Discuz! X3.2 |