GlacierPointExport Subroutine

private subroutine GlacierPointExport(time)

Export of point site data

Arguments

Type IntentOptional Attributes Name
type(DateTime), intent(in) :: time

Variables

Type Visibility Attributes Name Initial
integer(kind=short), public :: i

Source Code

SUBROUTINE GlacierPointExport &
!
( time )

IMPLICIT NONE

!Arguments with intent(in):
TYPE (DateTime), INTENT (IN) :: time

!local declarations:
INTEGER (KIND = short) :: i

!-------------------------end of declarations----------------------------------



!set current time
sitesICEWE % time = time 
    
!populate data
CALL AssignDataFromGrid ( icewe, sitesICEWE, scaleFactor = 1000. )
    
!write data
CALL WriteData ( sitesICEWE, fileUnitPointICEWE )
    
timePointExport = timePointExport + sitesICEWE % timeIncrement


RETURN
END SUBROUTINE GlacierPointExport