Changeset 4145 for trunk/LMDZ.COMMON/libf/evolution/io_netcdf.F90

Timestamp:

Mar 19, 2026, 2:07:40 PM (12 days ago)

Author:

jbclement

Message:

PEM:

• Fix the writing of potential temperature and air mass in "start.nc".
• Add the checking of variable validity when writing a variable in a NetCDF file.

JBC

File:

• trunk/LMDZ.COMMON/libf/evolution/io_netcdf.F90 (modified) (16 diffs)

trunk/LMDZ.COMMON/libf/evolution/io_netcdf.F90

@@ -45 +45 @@
 integer(di), protected, private :: ncid_file              ! File ID
 integer(di), protected, private :: varid                  ! Variable ID
-integer(di)          :: ncid_diagevo           ! File ID specific to "diagevo.nc"
+integer(di)                     :: ncid_diagevo           ! File ID specific to "diagevo.nc"
 
 ! INTERFACES
@@ -340 +340 @@
 ! CODE
 ! ----
+! Read
 if (present(found)) then
     call check_nc(nf90_inq_varid(ncid_file,var_name,varid),'inquiring '//var_name,found)
@@ -347 +348 @@
     call check_nc(nf90_get_var(ncid_file,varid,var),'getting '//var_name)
 end if
+
+! Check the variable validity
 call check_valid_var_nc(var_name,var)
 
@@ -380 +383 @@
 ! CODE
 ! ----
+! Read
 if (present(found)) then
     call check_nc(nf90_inq_varid(ncid_file,var_name,varid),'inquiring '//var_name,found)
@@ -387 +391 @@
     call check_nc(nf90_get_var(ncid_file,varid,var),'getting '//var_name)
 end if
+
+! Check the variable validity
 call check_valid_var_nc(var_name,var)
 
@@ -420 +426 @@
 ! CODE
 ! ----
+! Read
 if (present(found)) then
     call check_nc(nf90_inq_varid(ncid_file,var_name,varid),'inquiring '//var_name,found)
@@ -427 +434 @@
     call check_nc(nf90_get_var(ncid_file,varid,var),'getting '//var_name)
 end if
+
+! Check the variable validity
 call check_valid_var_nc(var_name,var)
 
@@ -460 +469 @@
 ! CODE
 ! ----
+! Read
 if (present(found)) then
     call check_nc(nf90_inq_varid(ncid_file,var_name,varid),'inquiring '//var_name,found)
@@ -467 +477 @@
     call check_nc(nf90_get_var(ncid_file,varid,var),'getting '//var_name)
 end if
+
+! Check the variable validity
 call check_valid_var_nc(var_name,var)
 
@@ -500 +512 @@
 ! CODE
 ! ----
+! Read
 if (present(found)) then
     call check_nc(nf90_inq_varid(ncid_file,var_name,varid),'inquiring '//var_name,found)
@@ -507 +520 @@
     call check_nc(nf90_get_var(ncid_file,varid,var),'getting '//var_name)
 end if
+
+! Check the variable validity
 call check_valid_var_nc(var_name,var)
 
@@ -546 +561 @@
 ! CODE
 ! ----
+! Check the variable validity
+call check_valid_var_nc(var_name,var)
+
 ! Diagevol logic priority over standard logic
 if (open_diagevo) then
@@ -610 +628 @@
 ! CODE
 ! ----
+! Check the variable validity
+call check_valid_var_nc(var_name,var)
+
 ! Diagevol logic priority over standard logic
 if (open_diagevo) then
@@ -681 +702 @@
 ! CODE
 ! ----
+! Check the variable validity
+call check_valid_var_nc(var_name,var)
+
 ! Diagevol logic priority over standard logic
 if (open_diagevo) then
@@ -752 +776 @@
 ! CODE
 ! ----
+! Check the variable validity
+call check_valid_var_nc(var_name,var)
+
 ! Diagevol logic priority over standard logic
 if (open_diagevo) then
@@ -823 +850 @@
 ! CODE
 ! ----
+! Check the variable validity
+call check_valid_var_nc(var_name,var)
+
 ! Diagevol logic priority over standard logic
 if (open_diagevo) then