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 ((EM_CORE == 1) && (WRFPLUS == 1))
  22 #    include "../wrftladj/start_domain_em_tl.int"
  23 #    include "../wrftladj/start_domain_em_ad.int"
  24 #endif
  25 #if (DA_CORE != 1)
  26       SUBROUTINE calc_ts_locations( grid )
  27          USE module_domain
  28          TYPE (domain) :: grid
  29       END SUBROUTINE calc_ts_locations
  30
  31       SUBROUTINE calc_track_locations( grid )
  32          USE module_domain
  33          TYPE (domain) :: grid
  34       END SUBROUTINE calc_track_locations
  35 #endif
  36    END INTERFACE
  37
  38    CALL set_scalar_indices_from_config ( head_grid%id , idum1, idum2 )
  39
  40 #if ((EM_CORE == 1) && (DA_CORE != 1))
  41
  42 #if ( WRFPLUS == 1 )
  43    IF ( model_config_rec%dyn_opt .EQ. dyn_em_tl ) THEN
  44       CALL g_start_domain_em( grid, allowed_to_read  &
  45 !
  46 # include "actual_new_args.inc"
  47 !
  48                          )
  49    ELSE IF ( model_config_rec%dyn_opt .EQ. dyn_em_ad ) THEN
  50       CALL a_start_domain_em( grid, allowed_to_read  &
  51 !
  52 # include "actual_new_args.inc"
  53 !
  54                          )
  55    ELSE
  56 #endif
  57
  58       CALL start_domain_em( grid, allowed_to_read  &
  59 !
  60 # include "actual_new_args.inc"
  61 !
  62                          )
  63
  64 #if ( WRFPLUS == 1 )
  65    ENDIF
  66 #endif
  67
  68 #endif
  69
  70 #if (DA_CORE != 1)
  71    CALL calc_ts_locations( grid )
  72    CALL calc_track_locations( grid )
  73 #endif
  74
  75 END SUBROUTINE start_domain
  76