Changeset 4192 for LMDZ6/branches/LMDZ_ECRad/libf/phylmd/rrtm/readaerosolstrato2_rrtm.F90

Timestamp:

Jul 1, 2022, 3:27:03 PM (2 years ago)

Author:

lguez

Message:

Change pointer to allocatable

Change pointer attribute to allocatable for actual arguments of
nf95_gw_var. Following update of NetCDF95.

File:

• LMDZ6/branches/LMDZ_ECRad/libf/phylmd/rrtm/readaerosolstrato2_rrtm.F90 (modified) (1 diff)

LMDZ6/branches/LMDZ_ECRad/libf/phylmd/rrtm/readaerosolstrato2_rrtm.F90

@@ -40 +40 @@
     INTEGER n_month ! number of months in the input data
     INTEGER n_wav   ! number of wavelengths in the input data
-    REAL, POINTER:: latitude(:)
-    REAL, POINTER:: time(:)
-    REAL, POINTER:: lev(:)
-    REAL, POINTER:: wav(:)
+    REAL, ALLOCATABLE:: latitude(:)
+    REAL, ALLOCATABLE:: time(:)
+    REAL, ALLOCATABLE:: lev(:)
+    REAL, ALLOCATABLE:: wav(:)
     INTEGER i,k,wave,band
     INTEGER, SAVE :: mth_pre=1