share/wrf_bdyin.F

   1 SUBROUTINE wrf_bdyin ( fid , grid , config_flags , switch , ierr )
   2     USE module_domain
   3     USE module_state_description
   4     USE module_configure
   5     USE module_scalar_tables
   6     USE module_io
   7     USE module_io_wrf
   8     USE module_date_time
   9     USE module_bc_time_utilities
  10     USE module_utility
  11     IMPLICIT NONE
  12 #include "wrf_io_flags.h"
  13 #include "wrf_status_codes.h"
  14     TYPE(domain) :: grid
  15     TYPE(grid_config_rec_type),  INTENT(INOUT)    :: config_flags
  16     INTEGER, INTENT(IN) :: fid
  17     INTEGER, INTENT(IN) :: switch
  18     INTEGER, INTENT(INOUT) :: ierr
  19
  20     ! Local data
  21     INTEGER ids , ide , jds , jde , kds , kde , &
  22             ims , ime , jms , jme , kms , kme , &
  23             ips , ipe , jps , jpe , kps , kpe
  24
  25     INTEGER       itrace
  26     INTEGER       iname(9)
  27     INTEGER       iordering(3)
  28     INTEGER       icurrent_date(24)
  29     INTEGER       i,j,k
  30     INTEGER       icnt
  31     INTEGER       ndim
  32     INTEGER       ilen
  33     INTEGER , DIMENSION(3) :: domain_start , domain_end
  34     INTEGER , DIMENSION(3) :: memory_start , memory_end
  35     INTEGER , DIMENSION(3) :: patch_start , patch_end
  36     CHARACTER*256 errmess
  37     CHARACTER*40            :: this_datestr, next_datestr
  38     CHARACTER*9   NAMESTR
  39     INTEGER       IBDY, NAMELEN
  40     LOGICAL wrf_dm_on_monitor
  41     EXTERNAL wrf_dm_on_monitor
  42     CHARACTER*19  new_date
  43     CHARACTER*24  base_date
  44     INTEGER idt
  45     INTEGER :: ide_compare , jde_compare , kde_compare
  46     ierr = 0
  47
  48     CALL get_ijk_from_grid (  grid ,                        &
  49                               ids, ide, jds, jde, kds, kde,    &
  50                               ims, ime, jms, jme, kms, kme,    &
  51                               ips, ipe, jps, jpe, kps, kpe    )
  52
  53
  54 #include "wrf_bdyin.inc"
  55
  56     RETURN
  57     END