hydro/CPL/WRF_cpl/wrf_drv_HYDRO.F

   1 !  Program Name:
   2 !  Author(s)/Contact(s):
   3 !  Abstract:
   4 !  History Log:
   5 !  <brief list of changes to this source file>
   6 !
   7 !  Usage:
   8 !  Parameters: <Specify typical arguments passed>
   9 !  Input Files:
  10 !        <list file names and briefly describe the data they include>
  11 !  Output Files:
  12 !        <list file names and briefly describe the information they include>
  13 !
  14 !  Condition codes:
  15 !        <list exit condition or error codes returned >
  16 !        If appropriate, descriptive troubleshooting instructions or
  17 !        likely causes for failures could be mentioned here with the
  18 !        appropriate error code
  19 !
  20 !  User controllable options: <if applicable>
  21
  22 !2345678
  23 !ywGW       subroutine wrf_drv_HYDRO(HYDRO_dt,grid, config_flags, its,ite,jts,jte)
  24        subroutine wrf_drv_HYDRO(HYDRO_dt,grid, its,ite,jts,jte)
  25           use module_wrf_HYDRO, only: wrf_cpl_HYDRO
  26           USE module_domain, ONLY : domain
  27           USE module_configure, ONLY : grid_config_rec_type
  28        implicit none
  29           integer:: its,ite,jts,jte
  30           real :: HYDRO_dt
  31           TYPE ( domain ), INTENT(INOUT) :: grid
  32 !ywGW          TYPE ( grid_config_rec_type ), INTENT(IN) :: config_flags
  33           TYPE ( grid_config_rec_type ) :: config_flags
  34 !         return
  35
  36           if(grid%num_nests .lt. 1) then
  37
  38 !ywGW             call wrf_cpl_HYDRO(HYDRO_dt, grid, config_flags, its,ite,jts,jte)
  39              call wrf_cpl_HYDRO(HYDRO_dt, grid, its,ite,jts,jte)
  40
  41           endif
  42        end subroutine wrf_drv_HYDRO
  43
  44
  45        subroutine wrf_drv_HYDRO_ini(grid,its,ite,jts,jte)
  46           use module_wrf_HYDRO, only: wrf_cpl_HYDRO
  47           USE module_domain, ONLY : domain
  48           implicit none
  49            integer:: its,ite,jts,jte
  50           TYPE ( domain ), INTENT(INOUT) :: grid
  51
  52           if(grid%num_nests .lt. 1) then
  53 !            call wrf_cpl_HYDRO_ini(grid,its,ite,jts,jte)
  54           endif
  55
  56        end subroutine wrf_drv_HYDRO_ini
  57