! $Id: lmdz1d.F90 5103 2024-07-23 13:29:36Z abarral $

!#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
  IMPLICIT NONE

  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"