Changeset 2577 for trunk/LMDZ.MARS/util/localtime.F90

Timestamp:

Oct 27, 2021, 11:41:34 AM (3 years ago)

Author:

emillour

Message:

Mars GCM utilities:
Fixes in the utilities for the picky gfortran 10+ compiler.
JL+EM

File:

• trunk/LMDZ.MARS/util/localtime.F90 (modified) (4 diffs)

trunk/LMDZ.MARS/util/localtime.F90

@@ -655 +655 @@
 
       ierr = NF_GET_VAR_REAL(nid,varid,var3d)
-      miss=NF_GET_ATT_REAL(nid,varid,"missing_value",missing)
+      miss=NF_GET_ATT_REAL(nid,varid,"missing_value",[missing])
       validr=NF_GET_ATT_REAL(nid,varid,"valid_range",valid_range)
 
@@ -913 +913 @@
 ierr = NF_REDEF (nout)
 
-ierr = NF_DEF_VAR (nout,"altitude",NF_FLOAT,1,altdimout,nvarid)
+ierr = NF_DEF_VAR (nout,"altitude",NF_FLOAT,1,[altdimout],nvarid)
 
 ierr = NF_PUT_ATT_TEXT (nout,nvarid,'long_name',len_trim(adjustl(altlong_name)),adjustl(altlong_name))
@@ -937 +937 @@
    ierr = NF_REDEF (nout)
 
-   ierr = NF_DEF_VAR (nout,"controle",NF_FLOAT,1,ctldimout,nvarid)
+   ierr = NF_DEF_VAR (nout,"controle",NF_FLOAT,1,[ctldimout],nvarid)
 
    ierr = NF_PUT_ATT_TEXT (nout,nvarid,"long_name",18,"Control parameters")
@@ -1240 +1240 @@
 if (miss.eq.NF_NOERR) then
 ! Write "missing_value" attribute
-  ierr= NF_PUT_ATT_REAL(nout,nvarid,'missing_value',NF_FLOAT,1,missing)
+  ierr= NF_PUT_ATT_REAL(nout,nvarid,'missing_value',NF_FLOAT,1,[missing])
 
   if (ierr.NE.NF_NOERR) then