Ignore:
Timestamp:
Jul 20, 2024, 4:30:31 PM (3 months ago)
Author:
abarral
Message:

Remove all managed netcdf77 usage (excluding external: rrtm, ecrad)
Remove call to netcdf.inc
Replace USE lmdz_netcdf by USE netcdf
Replace lmdz_netcdf.F90 by lmdz_netcdf_format.F90

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/branches/Amaury_dev/tools/netcdf95/Attributes/nf95_get_missing.F90

    r5075 r5088  
    11module nf95_get_missing_m
    22
    3   use lmdz_netcdf, only: nf90_noerr
     3  use netcdf, only: nf90_noerr
    44  use nf95_get_att_m, only: nf95_get_att
    55
    … …  
    1818  subroutine nf95_get_missing_real(ncid, varid, missing)
    1919
    20     use lmdz_netcdf, only: NF90_FILL_REAL
     20    use netcdf, only: NF90_FILL_REAL
    2121    use typesizes, only: FourByteReal
    2222
    … …  
    4444  subroutine nf95_get_missing_dble(ncid, varid, missing)
    4545
    46     use lmdz_netcdf, only: NF90_FILL_double
     46    use netcdf, only: NF90_FILL_double
    4747    use typesizes, only: EightByteReal
    4848
    … …  
    7070  subroutine nf95_get_missing_short_int(ncid, varid, missing)
    7171
    72     use lmdz_netcdf, only: NF90_FILL_short
     72    use netcdf, only: NF90_FILL_short
    7373    use typesizes, only: TwoByteInt
    7474
    … …  
    9696  subroutine nf95_get_missing_int(ncid, varid, missing)
    9797
    98     use lmdz_netcdf, only: NF90_FILL_INT
     98    use netcdf, only: NF90_FILL_INT
    9999
    100100    integer, intent(in)::  ncid, varid
    … …  
    121121  subroutine nf95_get_missing_char(ncid, varid, missing)
    122122
    123     use lmdz_netcdf, only: NF90_FILL_char
     123    use netcdf, only: NF90_FILL_char
    124124
    125125    integer, intent(in)::  ncid, varid
Note: See TracChangeset for help on using the changeset viewer.