|
◆ to_char_dat()
character(len=80) function to_char_dat |
( |
type(vol7d_var), intent(in) |
this, |
|
|
integer |
idat, |
|
|
real |
rdat, |
|
|
double precision |
ddat, |
|
|
integer(kind=int_b) |
bdat, |
|
|
character(len=*) |
cdat |
|
) |
| |
- Parametri
-
rdat | real |
ddat | double precision |
idat | integer |
bdat | byte |
cdat | character |
Definizione alla linea 947 del file vol7d_class.F90.
948 nanavarattri, nanavarattrb, nanavarattrc, ini) 950 ndativari, ndativarb, ndativarc, ini) 952 ndatiattri, ndatiattrb, ndatiattrc, ini) 954 ndativarattri, ndativarattrb, ndativarattrc, ini) 956 END SUBROUTINE vol7d_alloc 959 FUNCTION vol7d_check_alloc_ana(this) 960 TYPE(vol7d), INTENT(in) :: this 961 LOGICAL :: vol7d_check_alloc_ana 963 vol7d_check_alloc_ana = ASSOCIATED(this%ana) .AND. ASSOCIATED(this%network 965 END FUNCTION vol7d_check_alloc_ana 967 SUBROUTINE vol7d_force_alloc_ana(this, ini) 968 TYPE(vol7d), INTENT(inout) :: this 969 LOGICAL, INTENT(in), OPTIONAL :: ini 972 IF (.NOT. ASSOCIATED(this%ana)) CALL vol7d_alloc(this, nana=1, ini=ini) 973 IF (.NOT. ASSOCIATED(this%network)) CALL vol7d_alloc(this, nnetwork=1, ini 975 END SUBROUTINE vol7d_force_alloc_ana 978 FUNCTION vol7d_check_alloc_dati(this) 979 TYPE(vol7d), INTENT(in) :: this 980 LOGICAL :: vol7d_check_alloc_dati 982 vol7d_check_alloc_dati = vol7d_check_alloc_ana(this) .AND. & 983 ASSOCIATED(this%time) .AND. ASSOCIATED(this%level) .AND. & 984 ASSOCIATED(this%timerange) 986 END FUNCTION vol7d_check_alloc_dati 988 SUBROUTINE vol7d_force_alloc_dati(this, ini) 989 TYPE(vol7d), INTENT(inout) :: this
|