source: LMDZ5/trunk/libf/phymar/parrtm1d.F90 @ 3847

Last change on this file since 3847 was 2089, checked in by Laurent Fairhead, 10 years ago

Inclusion de la physique de MAR


Integration of MAR physics

File size: 1.1 KB
RevLine 
[2089]1MODULE PARRTM1D
2
3#include "tsmbkind.h"
4
5IMPLICIT NONE
6
7SAVE
8
9!     ------------------------------------------------------------------
10!     Parameters for 1-D radiation only computations from operational
11!      library routines
12!     991007  JJMorcrette
13!     ------------------------------------------------------------------
14
15INTEGER_M, PARAMETER :: JP_LON  = 13538
16INTEGER_M, PARAMETER :: JP_IDIA = 1
17INTEGER_M, PARAMETER :: JP_FDIA = JP_LON-JP_IDIA+1
18INTEGER_M, PARAMETER :: JP_TDIA = 1
19
20!-- standard tropical INTEGER_M, PARAMETER :: JP_LEV  = 64
21!-- ATEX              INTEGER_M, PARAMETER :: JP_LEV  = 83
22!-- BOMEX             INTEGER_M, PARAMETER :: JP_LEV  = 84
23!-- OPEN_CELLS        INTEGER_M, PARAMETER :: JP_LEV  = 63
24!-- GATE_A,B,C        INTEGER_M, PARAMETER :: JP_LEV  = 46
25
26INTEGER_M, PARAMETER :: JP_LEV  = 39
27
28INTEGER_M, PARAMETER :: JP_LW   = 6
29INTEGER_M, PARAMETER :: JP_SW   = 6
30INTEGER_M, PARAMETER :: JP_NUA  = 24
31INTEGER_M, PARAMETER :: JP_MODE = 1
32INTEGER_M, PARAMETER :: JP_AER  = 6
33INTEGER_M, PARAMETER :: JP_LEVP1= JP_LEV+1
34
35!     ------------------------------------------------------------------
36END MODULE PARRTM1D
Note: See TracBrowser for help on using the repository browser.