Changeset 4534

Timestamp:

May 12, 2023, 10:33:31 PM (12 months ago)

Author:

lguez

Message:

Use netcdf95 constant

File:

• LMDZ6/trunk/libf/phylmd/ecrad/setup_aerosol_optics_lmdz_m.F90 (modified) (2 diffs)

LMDZ6/trunk/libf/phylmd/ecrad/setup_aerosol_optics_lmdz_m.F90

@@ -29 +29 @@
     use netcdf95, only: nf95_open, nf95_inq_grp_full_ncid, nf95_close, &
          nf95_inq_dimid, nf95_inq_varid, nf95_inquire_dimension, &
-         nf95_get_var, nf95_gw_var
-    use netcdf, only: nf90_nowrite
+         nf95_get_var, nf95_gw_var, nf95_nowrite
 
     type(aerosol_optics_type), intent(out):: ao
@@ -44 +43 @@
     ao%use_hydrophilic = .true.
     ao%use_monochromatic = .true.
-    print*,'file_name= ',file_name
-    call nf95_open(file_name, nf90_nowrite, ncid)
+    call nf95_open(file_name, nf95_nowrite, ncid)
     call nf95_inq_grp_full_ncid(ncid, "Hydrophilic", grpid)
     call nf95_inq_dimid(grpid, "hur", dimid)