Changeset 5291 for LMDZ6/trunk/libf/phylmd/iotd_fin.f90
- Timestamp:
- Oct 28, 2024, 4:44:39 PM (5 hours ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/phylmd/iotd_fin.f90
r5270 r5291 1 SUBROUTINE iotd_fin 2 USE netcdf, ONLY: nf90_close 3 IMPLICIT NONE 1 SUBROUTINE iotd_fin 2 USE iotd_mod_h, ONLY: nid 3 USE netcdf, ONLY: nf90_close 4 IMPLICIT NONE 4 5 5 !======================================================================= 6 ! 7 ! Auteur: F. Hourdin 8 ! ------- 9 ! 10 ! Objet: 11 ! ------ 12 ! Light interface for netcdf outputs. can be used outside LMDZ 13 ! 14 !======================================================================= 15 INCLUDE "iotd.h" 16 integer ierr 6 !======================================================================= 7 ! 8 ! Auteur: F. Hourdin 9 ! ------- 10 ! 11 ! Objet: 12 ! ------ 13 ! Light interface for netcdf outputs. can be used outside LMDZ 14 ! 15 !======================================================================= 16 integer ierr 17 17 18 ! Arguments:19 ! ----------18 ! Arguments: 19 ! ---------- 20 20 21 ierr=nf90_close(nid) 22 23 END 21 ierr = nf90_close(nid) 22 END
Note: See TracChangeset
for help on using the changeset viewer.