Changeset 4192 for LMDZ6/branches/LMDZ_ECRad/libf/phylmd/rrtm/read_rsun_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/read_rsun_rrtm.F90 (modified) (1 diff)

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

@@ -27 +27 @@
 ! Local variables
   INTEGER :: ncid, dimid, varid, ncerr, nbday
-  REAL, POINTER :: wlen(:), time(:)
+  REAL, ALLOCATABLE :: wlen(:), time(:)
   REAL, ALLOCATABLE, SAVE, DIMENSION(:,:) :: SSI_FRAC
 !$OMP THREADPRIVATE(SSI_FRAC)