Changeset 2713 for LMDZ5/trunk/libf/phylmd/cosp/cosp_constants.F90

Timestamp:

Nov 24, 2016, 4:02:04 PM (8 years ago)

Author:

idelkadi

Message:

Mise a jour du simulateur COSP.
Passage de la version 1.4.0 a la version 1.4.1
(Version suggeree pour CFMIP3/CMIP6)

File:

• LMDZ5/trunk/libf/phylmd/cosp/cosp_constants.F90 (modified) (3 diffs)

LMDZ5/trunk/libf/phylmd/cosp/cosp_constants.F90

@@ -35 +35 @@
 #include "cosp_defs.h"
 MODULE MOD_COSP_CONSTANTS
-
-    use netcdf, only: nf90_fill_real
     IMPLICIT NONE
 
@@ -54 +52 @@
     ! Missing value
     real,parameter :: R_UNDEF = -1.0E30
-!    real,parameter :: R_UNDEF = nf90_fill_real
 
     ! Number of possible output variables
-    integer,parameter :: N_OUT_LIST = 63
-    integer,parameter :: N3D = 8
+    integer,parameter :: N_OUT_LIST = 65
+    integer,parameter :: N3D = 10
     integer,parameter :: N2D = 14
     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, &
                     -1.5,  1.5,  4.5,  7.5, 10.5, 13.5, 16.5, 19.5, 22.5, 25.5/)
-    real,parameter,dimension(2,LIDAR_NTEMP) :: LIDAR_PHASE_TEMP_BNDS=reshape(source=&
-                    (/-273.15,-90.,-90.,-87.,-87.,-84.,-84.,-81.,-81.,-78., &
+    real,parameter,dimension(2,LIDAR_NTEMP) :: LIDAR_PHASE_TEMP_BNDS=reshape(source=(/-273.15,-90.,-90.,-87.,-87.,-84.,-84.,-81.,-81.,-78., &
                    -78.,-75.,-75.,-72.,-72.,-69.,-69.,-66.,-66.,-63., &
                    -63.,-60.,-60.,-57.,-57.,-54.,-54.,-51.,-51.,-48., &