Ignore:
Timestamp:
Oct 24, 2024, 1:55:38 PM (35 hours ago)
Author:
abarral
Message:

Replace F77 netcdf library by F90 netcdf library

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/trunk/libf/phylmd/iotd_fin.f90

    r5268 r5270  
    11      SUBROUTINE iotd_fin
     2      USE netcdf, ONLY: nf90_close
    23      IMPLICIT NONE
    34
    … …  
    1213!
    1314!=======================================================================
    14 
    15 
    16       INCLUDE "netcdf.inc"
    1715      INCLUDE "iotd.h"
    1816      integer ierr
    … …  
    2119!   ----------
    2220
    23       ierr=NF_close(nid)
     21      ierr=nf90_close(nid)
    2422
    2523      END
Note: See TracChangeset for help on using the changeset viewer.