Ignore:
Timestamp:
Oct 28, 2024, 4:44:39 PM (5 hours ago)
Author:
abarral
Message:

Move thermcell_old.h iotd.h to module

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
     1SUBROUTINE iotd_fin
     2  USE iotd_mod_h, ONLY: nid
     3  USE netcdf, ONLY: nf90_close
     4  IMPLICIT NONE
    45
    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
    1717
    18 !   Arguments:
    19 !   ----------
     18  !   Arguments:
     19  !   ----------
    2020
    21       ierr=nf90_close(nid)
    22 
    23       END
     21  ierr = nf90_close(nid)
     22END
Note: See TracChangeset for help on using the changeset viewer.