! $Id: lmdz1d.F90 5104 2024-07-23 15:57:06Z evignon $

PROGRAM lmdz1d
  USE ioipsl, ONLY: getin
  USE lmdz_scm, ONLY: scm
  USE lmdz_old_lmdz1d, ONLY: old_lmdz1d
  IMPLICIT NONE

  INTEGER forcing_type

  CALL getin('forcing_type', forcing_type)

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