Changeset 2713 for LMDZ5/trunk/libf/phylmd/cosp/cosp_constants.F90
- Timestamp:
- Nov 24, 2016, 4:02:04 PM (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ5/trunk/libf/phylmd/cosp/cosp_constants.F90
r2571 r2713 35 35 #include "cosp_defs.h" 36 36 MODULE MOD_COSP_CONSTANTS 37 38 use netcdf, only: nf90_fill_real39 37 IMPLICIT NONE 40 38 … … 54 52 ! Missing value 55 53 real,parameter :: R_UNDEF = -1.0E30 56 ! real,parameter :: R_UNDEF = nf90_fill_real57 54 58 55 ! Number of possible output variables 59 integer,parameter :: N_OUT_LIST = 6 360 integer,parameter :: N3D = 856 integer,parameter :: N_OUT_LIST = 65 57 integer,parameter :: N3D = 10 61 58 integer,parameter :: N2D = 14 62 59 integer,parameter :: N1D = 40 … … 108 105 -31.5,-28.5,-25.5,-22.5,-19.5,-16.5,-13.5,-10.5, -7.5, -4.5, & 109 106 -1.5, 1.5, 4.5, 7.5, 10.5, 13.5, 16.5, 19.5, 22.5, 25.5/) 110 real,parameter,dimension(2,LIDAR_NTEMP) :: LIDAR_PHASE_TEMP_BNDS=reshape(source=& 111 (/-273.15,-90.,-90.,-87.,-87.,-84.,-84.,-81.,-81.,-78., & 107 real,parameter,dimension(2,LIDAR_NTEMP) :: LIDAR_PHASE_TEMP_BNDS=reshape(source=(/-273.15,-90.,-90.,-87.,-87.,-84.,-84.,-81.,-81.,-78., & 112 108 -78.,-75.,-75.,-72.,-72.,-69.,-69.,-66.,-66.,-63., & 113 109 -63.,-60.,-60.,-57.,-57.,-54.,-54.,-51.,-51.,-48., &
Note: See TracChangeset
for help on using the changeset viewer.