Ignore:
Timestamp:
Jul 20, 2024, 4:30:31 PM (6 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

Location:
LMDZ6/branches/Amaury_dev/tools/netcdf95/Attributes
Files:
5 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/branches/Amaury_dev/tools/netcdf95/Attributes/nf95_copy_att.f90

    r5075 r5088  
    88  subroutine nf95_copy_att(ncid_in, varid_in, name, ncid_out, varid_out, ncerr)
    99
    10     use lmdz_netcdf, only: nf90_copy_att
     10    use netcdf, only: nf90_copy_att
    1111
    1212    use nf95_abort_m, only: nf95_abort

  • LMDZ6/branches/Amaury_dev/tools/netcdf95/Attributes/nf95_get_att.f90

    r5075 r5088  
    22
    33  use nf95_abort_m, only: nf95_abort
    4   use lmdz_netcdf, only: nf90_get_att, nf90_noerr
     4  use netcdf, only: nf90_get_att, nf90_noerr
    55  use nf95_inquire_attribute_m, only: nf95_inquire_attribute
    66  use nf95_constants, only: nf95_noerr

  • 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

  • LMDZ6/branches/Amaury_dev/tools/netcdf95/Attributes/nf95_inquire_attribute.f90

    r5075 r5088  
    1010
    1111    use nf95_abort_m, only: nf95_abort
    12     use lmdz_netcdf, only: nf90_inquire_attribute
     12    use netcdf, only: nf90_inquire_attribute
    1313    use nf95_constants, only: nf95_noerr
    1414

  • LMDZ6/branches/Amaury_dev/tools/netcdf95/Attributes/nf95_put_att.f90

    r5075 r5088  
    11module nf95_put_att_m
    22
    3   use lmdz_netcdf, only: nf90_put_att
     3  use netcdf, only: nf90_put_att
    44  use nf95_abort_m, only: nf95_abort
    55  use nf95_constants, only: nf95_noerr
Note: See TracChangeset for help on using the changeset viewer.