Changeset 5075 for LMDZ6/trunk/libf/phylmd/iostart.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/iostart.F90 (modified) (10 diffs)

LMDZ6/trunk/libf/phylmd/iostart.F90

@@ -30 +30 @@
 
   SUBROUTINE Open_startphy(filename)
-  USE lmdz_netcdf
+  USE lmdz_netcdf, ONLY: nf90_nowrite, nf90_noerr,nf90_open
   USE mod_phys_lmdz_para
   IMPLICIT NONE
@@ -48 +48 @@
 
   SUBROUTINE Close_startphy
-  USE lmdz_netcdf
+  USE lmdz_netcdf, ONLY: nf90_close
   USE mod_phys_lmdz_para
   IMPLICIT NONE
@@ -61 +61 @@
 
   FUNCTION Inquire_Field(Field_name)
-  USE lmdz_netcdf
+  USE lmdz_netcdf, ONLY: nf90_noerr,nf90_inq_varid
   USE mod_phys_lmdz_para
   IMPLICIT NONE
@@ -115 +115 @@
   
   SUBROUTINE Get_field_rgen(field_name,field,field_size,found)
-  USE lmdz_netcdf
+  USE lmdz_netcdf, ONLY: nf90_inq_varid,nf90_noerr,nf90_get_var
   USE dimphy
   USE geometry_mod
@@ -251 +251 @@
 
   SUBROUTINE Get_var_rgen(var_name,var,var_size,found)
-  USE lmdz_netcdf
+  USE lmdz_netcdf, ONLY: nf90_noerr,nf90_get_var,nf90_inq_varid
   USE dimphy
   USE mod_grid_phy_lmdz
@@ -301 +301 @@
 
   SUBROUTINE open_restartphy(filename)
-  USE lmdz_netcdf
+  USE lmdz_netcdf, ONLY: nf90_create,nf90_clobber,nf90_64bit_offset,nf90_noerr,nf90_strerror,&
+          nf90_global,nf90_put_att,nf90_def_dim
   USE mod_phys_lmdz_para, ONLY: is_master
   USE mod_grid_phy_lmdz, ONLY: klon_glo
@@ -332 +333 @@
   
   SUBROUTINE enddef_restartphy
-  USE lmdz_netcdf
+  USE lmdz_netcdf, ONLY: nf90_enddef
   USE mod_phys_lmdz_para
   IMPLICIT NONE
@@ -342 +343 @@
 
   SUBROUTINE close_restartphy
-  USE lmdz_netcdf
+  USE lmdz_netcdf, ONLY: nf90_close
   USE mod_phys_lmdz_para
   IMPLICIT NONE
@@ -385 +386 @@
   
   SUBROUTINE put_field_rgen(pass, field_name,title,field,field_size)
-  USE lmdz_netcdf
+  USE lmdz_netcdf, ONLY: nf90_def_var,nf90_format,nf90_put_att,nf90_inq_varid,nf90_put_var
   USE dimphy
   USE geometry_mod
@@ -508 +509 @@
 
   SUBROUTINE put_var_rgen(pass, var_name,title,var,var_size)
-  USE lmdz_netcdf
+  USE lmdz_netcdf, ONLY: nf90_format,nf90_def_var,nf90_put_var,nf90_inq_varid,nf90_put_att
   USE dimphy
   USE mod_phys_lmdz_para