This routine will get the observed dissipation profiles. The subroutine is called in the get_all_obs subroutine as part of the main integration loop. The spatial interpolation is done via the reading routine and the temporal interpolation is done in this routine.
use time use observations, only: init_saved_vars,read_profiles,epsprof IMPLICIT NONEINPUT PARAMETERS:
integer, intent(in) :: unit integer, intent(in) :: jul,secs integer, intent(in) :: nlev REALTYPE, intent(in) :: z(0:nlev)REVISION HISTORY:
Original author(s): Karsten Bolding