Ignore:
Timestamp:
Jul 19, 2024, 6:40:44 PM (2 months ago)
Author:
Laurent Fairhead
Message:

Reverting to r4065. Updating fortran standard broke too much stuff. Will do it by smaller chunks
AB, LF

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r5075 r5084  
    1 SUBROUTINE iotd_fin
    2   USE lmdz_netcdf, ONLY : nf_close
     1      SUBROUTINE iotd_fin
     2      IMPLICIT NONE
    33
    4   IMPLICIT NONE
     4!=======================================================================
     5!
     6!   Auteur:  F. Hourdin
     7!   -------
     8!
     9!   Objet:
     10!   ------
     11!   Light interface for netcdf outputs. can be used outside LMDZ
     12!
     13!=======================================================================
    514
    6   !=======================================================================
    7   !
    8   !   Auteur:  F. Hourdin
    9   !   -------
    10   !
    11   !   Objet:
    12   !   ------
    13   !   Light interface for netcdf outputs. can be used outside LMDZ
    14   !
    15   !=======================================================================
    1615
    17   INCLUDE "iotd.h"
    18   integer ierr
     16      INCLUDE "netcdf.inc"
     17      INCLUDE "iotd.h"
     18      integer ierr
    1919
    20   !   Arguments:
    21   !   ----------
     20!   Arguments:
     21!   ----------
    2222
    23   ierr = NF_close(nid)
     23      ierr=NF_close(nid)
    2424
    25 END
     25      END
Note: See TracChangeset for help on using the changeset viewer.