source:
LMDZ6/trunk/libf/phylmd/dyn1d/lmdz1d.F90
@
5004
Last change on this file since 5004 was 4603, checked in by , 14 months ago | |
---|---|
|
|
File size: 466 bytes |
Rev | Line | |
---|---|---|
[3442] | 1 | ! |
2 | ! $Id: lmdz1d.F90 4603 2023-07-03 17:42:11Z dcugnet $ | |
3 | ! | |
[2239] | 4 | !#ifdef CPP_1D |
[4603] | 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 | ||
[4603] | 28 | #include "1DUTILS.h" |
29 | #include "1Dconv.h" | |
[2019] | 30 | |
[2239] | 31 | !#endif |
[2019] | 32 | |
[2716] | 33 |
Note: See TracBrowser
for help on using the repository browser.