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

trunk/LMDZ.MARS/util/solzenangle.F90

@@ -583 +583 @@
 
      do it=1,nsol
-       ierr= NF_PUT_VARA_REAL(nout,timevarout,(/it/),(/1/),intsol(it)*24.)
+       ierr= NF_PUT_VARA_REAL(nout,timevarout,(/it/),(/1/),[intsol(it)*24.])
      enddo
    else
@@ -683 +683 @@
 
       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)
 
@@ -1032 +1032 @@
 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))
@@ -1056 +1056 @@
    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")
@@ -1362 +1362 @@
 ! Write "missing_value" attribute
 if (miss.eq.NF_NOERR) then
-  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