Changeset 5270 for LMDZ6/trunk/libf/phylmd/iotd_fin.f90
- Timestamp:
- Oct 24, 2024, 1:55:38 PM (35 hours ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/phylmd/iotd_fin.f90
r5268 r5270 1 1 SUBROUTINE iotd_fin 2 USE netcdf, ONLY: nf90_close 2 3 IMPLICIT NONE 3 4 … … 12 13 ! 13 14 !======================================================================= 14 15 16 INCLUDE "netcdf.inc"17 15 INCLUDE "iotd.h" 18 16 integer ierr … … 21 19 ! ---------- 22 20 23 ierr= NF_close(nid)21 ierr=nf90_close(nid) 24 22 25 23 END
Note: See TracChangeset
for help on using the changeset viewer.