Changeset 5075 for LMDZ6/trunk/libf/phylmd/iotd_fin.F90

Timestamp:

Jul 19, 2024, 10:05:57 AM (2 months ago)

Author:

abarral

Message:

[continued & end] replace netcdf by lmdz_netcdf.F90 wrapper
"use netcdf" is now only used in lmdz_netcdf.F90 (except ecrad and obsolete/)
<include "netcdf.inc"> is now likewise only used in lmdz_netcdf.F90.

systematically specify explicitely <USE lmdz_netcdf, ONLY:> (probably left some missing, to correct later on)

Further replacement of nf_put_* by nf90_put_* (same for _get_)

[minor] replace deprecated boolean operators along the way

File:

• LMDZ6/trunk/libf/phylmd/iotd_fin.F90 (modified) (1 diff)

LMDZ6/trunk/libf/phylmd/iotd_fin.F90

@@ -1 @@
-      SUBROUTINE iotd_fin
-      IMPLICIT NONE
+SUBROUTINE iotd_fin
+  USE lmdz_netcdf, ONLY : nf_close
 
-!=======================================================================
-!
-!   Auteur:  F. Hourdin
-!   -------
-!
-!   Objet:
-!   ------
-!   Light interface for netcdf outputs. can be used outside LMDZ
-!
-!=======================================================================
+  IMPLICIT NONE
 
+  !=======================================================================
+  !
+  !   Auteur:  F. Hourdin
+  !   -------
+  !
+  !   Objet:
+  !   ------
+  !   Light interface for netcdf outputs. can be used outside LMDZ
+  !
+  !=======================================================================
 
-      INCLUDE "netcdf.inc"
-      INCLUDE "iotd.h"
-      integer ierr
+  INCLUDE "iotd.h"
+  integer ierr
 
-!   Arguments:
-!   ----------
+  !   Arguments:
+  !   ----------
 
-      ierr=NF_close(nid)
+  ierr = NF_close(nid)
 
-      END
+END