Changeset 1454 for trunk/LMDZ.TITAN/Tools/io.F90

Timestamp:

Jun 16, 2015, 7:01:30 PM (9 years ago)

Author:

slebonnois

Message:

SL: corrections in Titan and Venus tools

File:

• trunk/LMDZ.TITAN/Tools/io.F90 (modified) (3 diffs)

trunk/LMDZ.TITAN/Tools/io.F90

@@ -218 +218 @@
 !===========================================================================
 
-subroutine get_var4d(infid,dim1,dim2,dim3,dim4,text,var,ierr1,ierr2)
+subroutine get_var4d(infid,dim1,dim2,dim3,dim4,text,var,missing,ierr1,ierr2)
 
 implicit none
@@ -229 +229 @@
 character (len=64) :: text ! name of variable to read
 real,dimension(dim1,dim2,dim3,dim4) :: var ! variable to read
-integer :: ierr1,ierr2 ! NetCDF routines return code
+real :: missing ! missing value
+integer :: ierr1,ierr2,miss ! NetCDF routines return code
 
 ! local
@@ -240 +241 @@
   write(*,*) "ID ok for ",trim(text)
   ierr2=NF_GET_VAR_REAL(infid,tmpvarid,var)
+  miss=NF_GET_ATT_REAL(infid,tmpvarid,"missing_value",missing)
 endif