Context Navigation

← Previous Change
Next Change →

rrtm

Timestamp:

Jul 19, 2024, 10:05:57 AM (5 months ago)

Author:

abarral

Message:

[continued & end] replace netcdf by lmdz_netcdf.F90 wrapper
"use netcdf" is now only used in lmdz_netcdf.F90 (except ecrad and obsolete/)
<include "netcdf.inc"> is now likewise only used in lmdz_netcdf.F90.

systematically specify explicitely <USE lmdz_netcdf, ONLY:> (probably left some missing, to correct later on)

Further replacement of nf_put_* by nf90_put_* (same for _get_)

[minor] replace deprecated boolean operators along the way

Location:

LMDZ6/trunk/libf/phylmd/rrtm

Files:

: 3 edited

read_rsun_rrtm.F90 (modified) (1 diff)
readaerosolstrato1_rrtm.F90 (modified) (1 diff)
readaerosolstrato2_rrtm.F90 (modified) (1 diff)

Legend:

: Unmodified
: Added
: Removed

LMDZ6/trunk/libf/phylmd/rrtm/read_rsun_rrtm.F90

r4489	r5075
8	8
9	9	USE netcdf95, ONLY: nf95_close, nf95_inq_varid, nf95_open, nf95_gw_var
10		USE netcdf, ONLY: nf90_get_var, nf90_noerr, nf90_nowrite
	10	USE lmdz_netcdf, ONLY: nf90_get_var, nf90_noerr, nf90_nowrite
11	11
12	12	USE phys_cal_mod, ONLY : days_elapsed, year_len

LMDZ6/trunk/libf/phylmd/rrtm/readaerosolstrato1_rrtm.F90

r4619	r5075
7	7	USE netcdf95, ONLY: nf95_close, nf95_gw_var, nf95_inq_dimid, &
8	8	nf95_inq_varid, nf95_open
9		USE netcdf, ONLY: nf90_get_var, nf90_noerr, nf90_nowrite
	9	USE lmdz_netcdf, ONLY: nf90_get_var, nf90_noerr, nf90_nowrite
10	10
11	11	USE phys_cal_mod, ONLY : mth_cur

LMDZ6/trunk/libf/phylmd/rrtm/readaerosolstrato2_rrtm.F90

r4619	r5075
6	6	USE netcdf95, ONLY: nf95_close, nf95_gw_var, nf95_inq_dimid, &
7	7	nf95_inq_varid, nf95_open
8		USE netcdf, ONLY: nf90_get_var, nf90_noerr, nf90_nowrite
	8	USE lmdz_netcdf, ONLY: nf90_get_var, nf90_noerr, nf90_nowrite
9	9
10	10	USE phys_cal_mod, ONLY : mth_cur

Note: See TracChangeset for help on using the changeset viewer.