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

Last change on this file since 5447 was 5368, checked in by abarral, 3 weeks ago

(WIP) Turn implicit into explicit declarations
Turn 1dconv.h into a module to that end

  • Property svn:keywords set to Id
File size: 432 bytes
Line 
1
2!#ifdef CPP_1D
3!INCLUDE "../dyn3d/mod_const_mpi.F90"
4!INCLUDE "../dyn3d_common/control_mod.F90"
5!INCLUDE "../dyn3d_common/infotrac.F90"
6!INCLUDE "../dyn3d_common/disvert.F90"
7
8
9   PROGRAM lmdz1d
10
11   USE ioipsl, only: getin
12
13   INTEGER forcing_type
14
15   CALL getin('forcing_type',forcing_type)
16
17   IF (forcing_type==1000) THEN
18           CALL scm
19   ELSE
20           CALL old_lmdz1d
21   ENDIF
22
23   END
24
25
26#include "1DUTILS.h"
27
28!#endif
29
30
Note: See TracBrowser for help on using the repository browser.