Last change
on this file since 4160 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 asima $ |
---|
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.