Ignore:
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.

Location:
LMDZ6/branches/LMDZ_ECRad/libf/phylmd/rrtm
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • LMDZ6/branches/LMDZ_ECRad/libf/phylmd/rrtm/read_rsun_rrtm.F90

    r2803 r4192  
    2727! Local variables
    2828  INTEGER :: ncid, dimid, varid, ncerr, nbday
    29   REAL, POINTER :: wlen(:), time(:)
     29  REAL, ALLOCATABLE :: wlen(:), time(:)
    3030  REAL, ALLOCATABLE, SAVE, DIMENSION(:,:) :: SSI_FRAC
    3131!$OMP THREADPRIVATE(SSI_FRAC)
  • LMDZ6/branches/LMDZ_ECRad/libf/phylmd/rrtm/readaerosolstrato1_rrtm.F90

    r3438 r4192  
    3232    INTEGER n_lev   ! number of levels in the input data
    3333    INTEGER n_month ! number of months in the input data
    34     REAL, POINTER:: latitude(:)
    35     REAL, POINTER:: longitude(:)
    36     REAL, POINTER:: time(:)
    37     REAL, POINTER:: lev(:)
     34    REAL, ALLOCATABLE:: latitude(:)
     35    REAL, ALLOCATABLE:: longitude(:)
     36    REAL, ALLOCATABLE:: time(:)
     37    REAL, ALLOCATABLE:: lev(:)
    3838    INTEGER k, band, wave, i
    3939    INTEGER, SAVE :: mth_pre=1
  • LMDZ6/branches/LMDZ_ECRad/libf/phylmd/rrtm/readaerosolstrato2_rrtm.F90

    r3480 r4192  
    4040    INTEGER n_month ! number of months in the input data
    4141    INTEGER n_wav   ! number of wavelengths in the input data
    42     REAL, POINTER:: latitude(:)
    43     REAL, POINTER:: time(:)
    44     REAL, POINTER:: lev(:)
    45     REAL, POINTER:: wav(:)
     42    REAL, ALLOCATABLE:: latitude(:)
     43    REAL, ALLOCATABLE:: time(:)
     44    REAL, ALLOCATABLE:: lev(:)
     45    REAL, ALLOCATABLE:: wav(:)
    4646    INTEGER i,k,wave,band
    4747    INTEGER, SAVE :: mth_pre=1
Note: See TracChangeset for help on using the changeset viewer.