private subroutine DischargePointExport(time)
Export of point site data
Arguments
| Type |
Intent | Optional | Attributes |
|
Name |
|
|
type(DateTime),
|
intent(in) |
|
|
:: |
time |
|
Variables
| Type |
Visibility | Attributes |
|
Name |
| Initial | |
|
integer(kind=short),
|
public |
|
:: |
i |
|
|
|
Source Code
SUBROUTINE DischargePointExport &
!
( time )
IMPLICIT NONE
!Arguments with intent(in):
TYPE (DateTime), INTENT (IN) :: time
!local declarations:
INTEGER (KIND = short) :: i
!-------------------------end of declarations----------------------------------
!set current time
sitesDischarge % time = time
!populate data
!CALL AssignDataFromGrid (Qin, sitesDischarge )
!debug
CALL AssignDataFromGrid (Qout, sitesDischarge )
!write data
CALL WriteData (sitesDischarge, fileUnitPointDischarge)
RETURN
END SUBROUTINE DischargePointExport
