source: LMDZ6/branches/Amaury_dev/libf/phylmd/dyn1d/lmdz1d.F90 @ 5411

Last change on this file since 5411 was 5104, checked in by abarral, 5 months ago

Replace 1DUTILS.h by module lmdz_1dutils.f90
Replace 1DConv.h by module lmdz_old_1dconv.f90 (it's only used by old_* files)
Convert *.F in DUST to *.f90
  • Property svn:keywords set to Id
File size: 286 bytes
RevLine 
[3442]1! $Id: lmdz1d.F90 5104 2024-07-23 15:57:06Z evignon $
[5099]2
[5103]3PROGRAM lmdz1d
4  USE ioipsl, ONLY: getin
[5104]5  USE lmdz_scm, ONLY: scm
6  USE lmdz_old_lmdz1d, ONLY: old_lmdz1d
[5103]7  IMPLICIT NONE
[2019]8
[5103]9  INTEGER forcing_type
[2019]10
[5103]11  CALL getin('forcing_type', forcing_type)
[2019]12
[5103]13  IF (forcing_type==1000) THEN
14    CALL scm
15  ELSE
16    CALL old_lmdz1d
17  ENDIF
18END
[2019]19
20
21
Note: See TracBrowser for help on using the repository browser.