!
! $Id: lmdz1d.F90 5272 2024-10-24 15:53:15Z abarral $
!
!#ifdef CPP_1D
!INCLUDE "../dyn3d/mod_const_mpi.F90"
!INCLUDE "../dyn3d_common/control_mod.F90"
!INCLUDE "../dyn3d_common/infotrac.F90"
!INCLUDE "../dyn3d_common/disvert.F90"


   PROGRAM lmdz1d

   USE ioipsl, only: getin

   INTEGER forcing_type

   CALL getin('forcing_type',forcing_type)

   IF (forcing_type==1000) THEN
           CALL scm
   ELSE
           CALL old_lmdz1d
   ENDIF

   END


#include "1DUTILS.h"
#include "1Dconv.h"

!#endif