source: LMDZ6/branches/LMDZ-COSP/libf/phylmd/dyn1d/lmdz1d.F90 @ 3847

Last change on this file since 3847 was 3541, checked in by fhourdin, 5 years ago

Gros nettoyage en cours sur le 1D.
Le nouveau lmdz1d.F90 est une coquille vide qui choisit entre
old_lmdz1d.F90 (l'ancien lmdz1d.F90) et scm.F90 (le nouveau au format standard).
Plusieur fichiers sont renommés old_truc, le truc étant au format standard,
nettoyé des anciens formats.
Le 1DUTILS.h est lui même séparé entre des routines génériques venant remplacer
notamment des routines de dyn3d (la vocation d'origine de 1DUTILS.h) et
les routiles de lecture spécifiques mises dans old_1DUTILS.h
On perdra un peu de l'utilister de svn au moment de cette grosse bascule.
Mais les old_ sont faits pour ne plus bouger, et les versions standard
sont en pleine évolution.
Fredho

  • Property svn:keywords set to Id
File size: 466 bytes
Line 
1!
2! $Id: lmdz1d.F90 3541 2019-07-03 12:40:01Z fairhead $
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.