timedep Subroutine

public subroutine timedep()

Arguments

None

Calls

proc~~timedep~~CallsGraph proc~timedep timedep proc~timedeplw timedeplw proc~timedep->proc~timedeplw proc~timedepnudge timedepnudge proc~timedep->proc~timedepnudge proc~timedepsurf timedepsurf proc~timedep->proc~timedepsurf proc~timedepsw timedepsw proc~timedep->proc~timedepsw

Called by

proc~~timedep~~CalledByGraph proc~timedep timedep proc~inittimedep inittimedep proc~inittimedep->proc~timedep program~dalesurban DALESURBAN program~dalesurban->proc~timedep program~dalesurban->proc~inittimedep

Source Code

  subroutine timedep

!-----------------------------------------------------------------|
!                                                                 |
!*** *timedep*  calculates ls forcings and surface forcings       |
!               case as a funtion of timee                        |
!                                                                 |
!      Roel Neggers    K.N.M.I.     01/05/2001                    |
!                                                                 |
!                                                                 |
!    calls                                                        |
!    * timedepz                                                   |
!      calculation of large scale advection, radiation and        |
!      surface fluxes by interpolation between prescribed         |
!      values at certain times                                    |
!                                                                 |
!    * timedepsurf                                                |
!      calculation  surface fluxes by interpolation               |
!      between prescribed values at certain times                 |
!                                                                 |
!                                                                 |
!-----------------------------------------------------------------|
    implicit none

    if (.not. ltimedep) return

    call timedepsurf
    call timedepnudge
    call timedeplw
    call timedepsw

  end subroutine timedep