source: LMDZ6/trunk/libf/phylmd/dyn1d/lmdz1d.F90 @ 5331

Last change on this file since 5331 was 5272, checked in by abarral, 3 weeks ago

Turn paramet.h into a module
  • Property svn:keywords set to Id
File size: 462 bytes
RevLine 
[3442]1!
2! $Id: lmdz1d.F90 5272 2024-10-24 15:53:15Z abarral $
3!
[2239]4!#ifdef CPP_1D
[5271]5!INCLUDE "../dyn3d/mod_const_mpi.F90"
6!INCLUDE "../dyn3d_common/control_mod.F90"
7!INCLUDE "../dyn3d_common/infotrac.F90"
8!INCLUDE "../dyn3d_common/disvert.F90"
[2017]9
10
[3541]11   PROGRAM lmdz1d
[2019]12
[3541]13   USE ioipsl, only: getin
[2019]14
[3541]15   INTEGER forcing_type
[2019]16
[3541]17   CALL getin('forcing_type',forcing_type)
[2019]18
[3541]19   IF (forcing_type==1000) THEN
20           CALL scm
21   ELSE
22           CALL old_lmdz1d
23   ENDIF
[2019]24
[3541]25   END
[2019]26
27
[5272]28#include "1DUTILS.h"
29#include "1Dconv.h"
[2019]30
[2239]31!#endif
[2019]32
[2716]33
Note: See TracBrowser for help on using the repository browser.