wrfv2_fire/share/start_domain.F

   1 !WRF:MEDIATION_LAYER:ADT_BARRIER
   2 !
   3
   4 SUBROUTINE start_domain ( grid , allowed_to_read )
   5
   6    USE module_domain
   7    USE module_configure
   8
   9    IMPLICIT NONE
  10
  11    !  Input Arguments.
  12    TYPE (domain)          :: grid
  13    LOGICAL, INTENT(IN)    :: allowed_to_read
  14    !  Local data.
  15    INTEGER :: idum1, idum2
  16
  17    INTERFACE
  18 #if ((EM_CORE == 1) && (DA_CORE != 1))
  19 #    include "start_domain_em.int"
  20 #endif
  21 #if (NMM_CORE == 1)
  22 #    include "start_domain_nmm.int"
  23 #endif
  24 #if (DA_CORE != 1)
  25       SUBROUTINE calc_ts_locations( grid )
  26          USE module_domain
  27          TYPE (domain) :: grid
  28       END SUBROUTINE calc_ts_locations
  29 #endif
  30    END INTERFACE
  31
  32    CALL set_scalar_indices_from_config ( head_grid%id , idum1, idum2 )
  33
  34 #if ((EM_CORE == 1) && (DA_CORE != 1))
  35    CALL start_domain_em( grid, allowed_to_read  &
  36 !
  37 # include <actual_new_args.inc>
  38 !
  39                          )
  40 #endif
  41 #if (NMM_CORE == 1)
  42    CALL start_domain_nmm( grid, allowed_to_read   &
  43 !
  44 # include <actual_new_args.inc>
  45 !
  46                          )
  47 #endif
  48 #if (COAMPS_CORE == 1)
  49    CALL start_domain_coamps( grid, allowed_to_read   &
  50 !
  51 # include <actual_new_args.inc>
  52 !
  53                          )
  54 #endif
  55
  56 #if (DA_CORE != 1)
  57    CALL calc_ts_locations( grid )
  58 #endif
  59
  60 END SUBROUTINE start_domain
  61