Changeset 5075 for LMDZ6/trunk/libf/phylmdiso

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

Location:

LMDZ6/trunk/libf/phylmdiso

Files:

• isotopes_routines_mod.F90 (modified) (2 diffs)
• limit_read_mod.F90 (modified) (1 diff)
• phyaqua_mod.F90 (modified) (3 diffs)
• phyetat0_mod.F90 (modified) (1 diff)
• physiq_mod.F90 (modified) (1 diff)

LMDZ6/trunk/libf/phylmdiso/isotopes_routines_mod.F90

@@ -15871 +15871 @@
   USE isotopes_verif_mod
 #endif
-
        implicit none   
 
       ! equivalent de phyetat0 pour les isotopes  
 
-#include "netcdf.inc"
 #include "dimsoil.h"
 #include "clesphys.h"
@@ -16429 +16427 @@
    IMPLICIT NONE
 
-#include "netcdf.inc"
 #include "dimsoil.h"
 #include "clesphys.h"

LMDZ6/trunk/libf/phylmdiso/limit_read_mod.F90

@@ -274 +274 @@
     USE mod_phys_lmdz_para
     USE surface_data, ONLY : type_ocean, ok_veget
-    USE netcdf
+    USE lmdz_netcdf, ONLY:nf90_noerr,nf90_close,nf90_get_var,nf90_inq_varid,nf90_nowrite,&
+            nf90_inq_dimid,nf90_inquire_dimension,nf90_open
     USE indice_sol_mod
 #ifdef ISO

LMDZ6/trunk/libf/phylmdiso/phyaqua_mod.F90

@@ -147 +147 @@
     !END IF
     
-    if (year_len.ne.360) then
+    if (year_len/=360) then
       write (*,*) year_len
       write (*,*) 'iniaqua: 360 day calendar is required !'
@@ -960 +960 @@
       END IF
 
-      if (type_profil.EQ.20) then
+      if (type_profil==20) then
       print*,'Profile SST 20'
 !     Méthode 13 "Qmax2K" plateau réel �|  l'Equateur augmenté +2K
@@ -969 +969 @@
       endif
 
-      if (type_profil.EQ.21) then
+      if (type_profil==21) then
       print*,'Profile SST 21'
 !     Méthode 13 "Qmax2K" plateau réel �|  l'Equateur augmenté +2K

LMDZ6/trunk/libf/phylmdiso/phyetat0_mod.F90

@@ -48 +48 @@
   USE time_phylmdz_mod, ONLY: init_iteration, pdtphys, itau_phy
   USE wxios, ONLY: missing_val_xios => missing_val, using_xios
-  use netcdf, only: missing_val_netcdf => nf90_fill_real
+  use lmdz_netcdf, only: missing_val_netcdf => nf90_fill_real
   use config_ocean_skin_m, only: activate_ocean_skin
 #ifdef ISO

LMDZ6/trunk/libf/phylmdiso/physiq_mod.F90

@@ -48 +48 @@
     USE mod_phys_lmdz_para
     USE netcdf95, only: nf95_close
-    USE netcdf, only: nf90_fill_real     ! IM for NMC files
+    USE lmdz_netcdf, only: nf90_fill_real     ! IM for NMC files
     USE open_climoz_m, only: open_climoz ! ozone climatology from a file
     USE ozonecm_m, only: ozonecm ! ozone of J.-F. Royer