Changeset 2577 for trunk/LMDZ.MARS/util/concatnc.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/concatnc.F90 (modified) (5 diffs)

trunk/LMDZ.MARS/util/concatnc.F90

@@ -582 +582 @@
        if (rep.eq.1) write(*,*) "Sol", int(output_time)  
 
-       ierr= NF_PUT_VARA_REAL(nout,timevarout,(/k/),(/1/),output_time)
+       ierr= NF_PUT_VARA_REAL(nout,timevarout,(/k/),(/1/),(/output_time/))
    end do
 !  use the last output_time value to update memotime   
@@ -694 +694 @@
       ierr = NF_GET_VAR_REAL(nid,varid,var3d)
       ierr= NF_PUT_VARA_REAL(nout,varidout,corner,edges,var3d)
-      miss=NF_GET_ATT_REAL(nid,varid,"missing_value",missing)
+      miss=NF_GET_ATT_REAL(nid,varid,"missing_value",[missing])
       miss=NF_GET_ATT_REAL(nid,varid,"valid_range",valid_range)
 
@@ -865 +865 @@
 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))
@@ -884 +884 @@
    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")
@@ -1520 +1520 @@
 
 ! 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