source: lmdz_wrf/branches/LMDZ_WRFmeas/WRFV3/share/start_domain.F.v3.6.1 @ 1577

!WRF:MEDIATION_LAYER:ADT_BARRIER
!

SUBROUTINE start_domain ( grid , allowed_to_read )

   USE module_domain
   USE module_configure

   IMPLICIT NONE

   !  Input Arguments.
   TYPE (domain)          :: grid
   LOGICAL, INTENT(IN)    :: allowed_to_read
   !  Local data.
   INTEGER :: idum1, idum2

   INTERFACE
#if ((EM_CORE == 1) && (DA_CORE != 1))
#    include "start_domain_em.int"
#endif
#if (NMM_CORE == 1)
#    include "start_domain_nmm.int"
#endif
#if (DA_CORE != 1)
      SUBROUTINE calc_ts_locations( grid )
         USE module_domain
         TYPE (domain) :: grid
      END SUBROUTINE calc_ts_locations

#if WRFMEAS
! L. Fita, LMD. May 2014
      SUBROUTINE calc_lidar_locations( grid )
         USE module_domain
         TYPE (domain) :: grid
      END SUBROUTINE calc_lidar_locations
#endif

      SUBROUTINE calc_track_locations( grid )
         USE module_domain
         TYPE (domain) :: grid
      END SUBROUTINE calc_track_locations
#endif
   END INTERFACE

   CALL set_scalar_indices_from_config ( head_grid%id , idum1, idum2 )

#if ((EM_CORE == 1) && (DA_CORE != 1))
   CALL start_domain_em( grid, allowed_to_read  &
!
# include <actual_new_args.inc>
!
                         )
#endif
#if (NMM_CORE == 1) 
   CALL start_domain_nmm( grid, allowed_to_read   &
!
# include <actual_new_args.inc>
!
                         )
#endif
#if (COAMPS_CORE == 1)
   CALL start_domain_coamps( grid, allowed_to_read   &
!
# include <actual_new_args.inc>
!
                         )
#endif

#if (DA_CORE != 1)
   CALL calc_ts_locations( grid )
#if WRFMEAS
! L. Fita, LMD. May 2014
   CALL calc_lidar_locations( grid )
#endif
   CALL calc_track_locations( grid )
#endif

END SUBROUTINE start_domain