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

Last change on this file since 5456 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
RevLine 
[5368]1
[2239]2!#ifdef CPP_1D
[5271]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"
[2017]7
8
[3541]9   PROGRAM lmdz1d
[2019]10
[3541]11   USE ioipsl, only: getin
[2019]12
[3541]13   INTEGER forcing_type
[2019]14
[3541]15   CALL getin('forcing_type',forcing_type)
[2019]16
[3541]17   IF (forcing_type==1000) THEN
18           CALL scm
19   ELSE
20           CALL old_lmdz1d
21   ENDIF
[2019]22
[3541]23   END
[2019]24
25
[5272]26#include "1DUTILS.h"
[2019]27
[2239]28!#endif
[2019]29
[2716]30
Note: See TracBrowser for help on using the repository browser.