!
! part of the module_lmd_driver program
! that is (number of domains)-dependent
!


SELECT CASE (id)

       CASE(1)
       CALL meso_physiq (ngrid,nlayer,nq,                              &
               firstcall,lastcall,wday_ini,pday,ptime,ptimestep,       &
               pplev,pplay,pphi,pu, pv, pt, pq, pw,                    &
#ifdef NEWPHYS
               wtnom, &
#endif
               pdu, pdv, pdt, pdq, pdpsrf, tracerdyn,          &
               wtsurf,wtsoil,wemis,wq2,wqsurf,wco2ice,                 &
#ifdef NEWPHYS
               wisoil, wdsoil, &
#endif
               wecri_phys_sec,                &
               output_tab2d, output_tab3d, flag_LES)

       CASE(2)
       CALL d2_meso_physiq (ngrid,nlayer,nq,                           &
               firstcall,lastcall,wday_ini,pday,ptime,ptimestep,       &
               pplev,pplay,pphi,pu, pv, pt, pq, pw,                    &
#ifdef NEWPHYS
               wtnom, &
#endif
               pdu, pdv, pdt, pdq, pdpsrf, tracerdyn,          &
               wtsurf,wtsoil,wemis,wq2,wqsurf,wco2ice,                 &
#ifdef NEWPHYS
               wisoil, wdsoil, &
#endif
               wecri_phys_sec,                &
               output_tab2d, output_tab3d, flag_LES)

!       CASE(3:)
!       print *, '** Mars ** Not supported ...'
!       stop
!
END SELECT