source: LMDZ6/trunk/libf/phylmd/iotd_fin.f90 @ 5451

Last change on this file since 5451 was 5390, checked in by yann meurdesoif, 3 weeks ago
  • Remove UTF8 character that inihibit fortran parsing with GPU morphosis
  • Add missing END SUBROUTINE instead of simple END, that inhibit correct parsing with regulat expression parser (quick and dirty parsing)

YM

File size: 491 bytes
Line 
1SUBROUTINE iotd_fin
2  USE iotd_mod_h, ONLY: nid
3  USE netcdf, ONLY: nf90_close
4  IMPLICIT NONE
5
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
18  !   Arguments:
19  !   ----------
20
21  ierr = nf90_close(nid)
22END SUBROUTINE iotd_fin
Note: See TracBrowser for help on using the repository browser.