LMDZ
parrint.F90
Go to the documentation of this file.
1 MODULE parrint
2 
3 
4 #include "tsmbkind.h"
5 
6 IMPLICIT NONE
7 
8 SAVE
9 
10 
11 ! PARAMETERS REQUIRED FOR RADIATION INTERPOLATION
12 
13 integer_m, PARAMETER :: jpradcw=2
14 integer_m, PARAMETER :: jpradce=2
15 integer_m, PARAMETER :: jpradct=jpradcw+jpradce
16 integer_m, PARAMETER :: jpradfw=1
17 integer_m, PARAMETER :: jpradfe=1
18 END MODULE parrint
integer(kind=jpim), parameter jpradfw
Definition: parrint.F90:14
integer(kind=jpim), parameter jpradct
Definition: parrint.F90:13
integer(kind=jpim), parameter jpradce
Definition: parrint.F90:12
integer(kind=jpim), parameter jpradcw
Definition: parrint.F90:11
integer(kind=jpim), parameter jpradfe
Definition: parrint.F90:15