get_vel_profile


INTERFACE:

    subroutine get_vel_profile(unit,jul,secs,nlev,z)
DESCRIPTION:

This routine is responsible for providing sane values to `observed' velocity profiles. The subroutine is called in the get_all_obs subroutine as part of the main integration loop. In case of observations from file the temporal interpolation is done in this routine.


USES:

    use time
    use observations, only: init_saved_vars,read_profiles,uprof,vprof
    IMPLICIT NONE
INPUT 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
    $Log: get_vel_profile.F90,v $
    Revision 1.7  2010-09-17 12:53:50  jorn
    extensive code clean-up to ensure proper initialization and clean-up of all variables
    Revision 1.6  2007-09-11 13:24:32  jorn
    added stop after fatal error reading profile
    Revision 1.5  2006-11-27 09:25:18  kbk
    use logical var init_saved_vars to initialise saved variables
    Revision 1.4  2005/06/27 13:44:07  kbk
    modified + removed traling blanks
    Revision 1.3  2003/03/28 09:20:35  kbk
    added new copyright to files
    Revision 1.2  2003/03/10 08:51:57  gotm
    Improved documentation and cleaned up code
    Revision 1.1.1.1  2001/02/12 15:55:58  gotm
    initial import into CVS



Karsten Bolding 2012-01-24