Changeset 5075 for LMDZ6/trunk/libf/phylmd/dyn1d/mod_1D_amma_read.F90

Timestamp:

Jul 19, 2024, 10:05:57 AM (4 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/dyn1d/mod_1D_amma_read.F90 (modified) (6 diffs)

LMDZ6/trunk/libf/phylmd/dyn1d/mod_1D_amma_read.F90

@@ -1 +1 @@
 MODULE mod_1D_amma_read
-
+        USE lmdz_netcdf, ONLY: nf90_get_var,nf_open,nf_noerr,nf_open,nf_nowrite,&
+                nf_inq_dimid,nf_inq_dimlen,nf_strerror,nf_inq_varid
 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 !Declarations specifiques au cas AMMA
@@ -6 +7 @@
 ! Option du cas AMMA ou on impose la discretisation verticale (Ap,Bp)
         integer nlev_amma, nt_amma
-
 
         integer year_ini_amma, day_ini_amma, mth_ini_amma
@@ -58 +58 @@
 SUBROUTINE read_1D_cases
       implicit none
-
-      INCLUDE "netcdf.inc"
 
       INTEGER nid,rid,ierr
@@ -172 +170 @@
 
 
-END MODULE mod_1D_amma_read
 !=====================================================================
       subroutine read_amma(nid,nlevel,ntime                          &
@@ -180 +177 @@
 !program reading forcings of the AMMA case study
       implicit none
-      INCLUDE "netcdf.inc"
 
       integer ntime,nlevel
@@ -459 +455 @@
         END
 
+END MODULE mod_1D_amma_read