source: LMDZ6/branches/Ocean_skin/libf/phylmd/dyn1d/lmdz1d.F90 @ 4096

Last change on this file since 4096 was 3605, checked in by lguez, 5 years ago

Merge revisions 3427:3600 of trunk into branch Ocean_skin

  • Property svn:keywords set to Id
File size: 466 bytes
Line 
1!
2! $Id: lmdz1d.F90 3605 2019-11-21 15:43:45Z lguez $
3!
4!#ifdef CPP_1D
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"
9
10
11   PROGRAM lmdz1d
12
13   USE ioipsl, only: getin
14
15   INTEGER forcing_type
16
17   CALL getin('forcing_type',forcing_type)
18
19   IF (forcing_type==1000) THEN
20           CALL scm
21   ELSE
22           CALL old_lmdz1d
23   ENDIF
24
25   END
26
27
28#include "1DUTILS.h"
29#include "1Dconv.h"
30
31!#endif
32
33
Note: See TracBrowser for help on using the repository browser.