Changeset 5076 for LMDZ6/trunk/libf/phylmdiso

Timestamp:

Jul 19, 2024, 10:45:44 AM (5 months ago)

Author:

abarral

Message:

Missing bits of r5075 for lmdiso

Location:

LMDZ6/trunk/libf/phylmdiso

Files:

• limit_read_mod.F90 (modified) (1 diff)
• phyaqua_mod.F90 (modified) (3 diffs)

LMDZ6/trunk/libf/phylmdiso/limit_read_mod.F90

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

LMDZ6/trunk/libf/phylmdiso/phyaqua_mod.F90

@@ -539 +539 @@
     IMPLICIT NONE
 
-    include "netcdf.inc"
-
     INTEGER, INTENT (IN) :: klon
     REAL, INTENT (IN) :: phy_nat(klon, 360)
@@ -593 +591 @@
     USE mod_phys_lmdz_transfert_para, ONLY: gather
     USE phys_cal_mod, ONLY: year_len
+    USE lmdz_netcdf, ONLY:nf_clobber,nf_close,nf_noerr,nf_strerror,nf_put_att_text,nf_def_var,&
+            nf_def_dim,nf_create,nf90_put_var,nf_unlimited,nf_global,nf_64bit_offset,nf90_format,&
+            nf_enddef
     IMPLICIT NONE
-    include "netcdf.inc"
 
     INTEGER, INTENT (IN) :: klon
@@ -675 +675 @@
       ! write the 'times'
       DO k = 1, year_len
-        ierr = nf90_put_var(nid, id_tim, k, k)
+        ierr = nf90_put_var(nid, id_tim, k, [k])
         IF (ierr/=nf_noerr) THEN
           WRITE (*, *) 'writelim error with temps(k),k=', k