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

Last change on this file since 3801 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
RevLine 
[3442]1!
2! $Id: lmdz1d.F90 3541 2019-07-03 12:40:01Z lguez $
3!
[2239]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"
[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
28#include "1DUTILS.h"
29#include "1Dconv.h"
30
[2239]31!#endif
[2019]32
[2716]33
Note: See TracBrowser for help on using the repository browser.