Ignore:
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:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/LMDZ.MARS/util/lslin.F90

    r2567 r2577  
    504504
    505505   ierr = NF_GET_VAR_REAL(nid,varid,var3d)
    506    miss=NF_GET_ATT_REAL(nid,varid,"missing_value",missing)
     506   miss=NF_GET_ATT_REAL(nid,varid,"missing_value",[missing])
    507507   validr=NF_GET_ATT_REAL(nid,varid,"valid_range",valid_range)
    508508
    … …  
    810810ierr = NF_REDEF (nout)
    811811
    812 ierr = NF_DEF_VAR (nout,"altitude",NF_FLOAT,1,altdimout,nvarid)
     812ierr = NF_DEF_VAR (nout,"altitude",NF_FLOAT,1,[altdimout],nvarid)
    813813
    814814ierr = NF_PUT_ATT_TEXT (nout,nvarid,'long_name',len_trim(adjustl(altlong_name)),adjustl(altlong_name))
    … …  
    834834   ierr = NF_REDEF (nout)
    835835
    836    ierr = NF_DEF_VAR (nout,"controle",NF_FLOAT,1,ctldimout,nvarid)
     836   ierr = NF_DEF_VAR (nout,"controle",NF_FLOAT,1,[ctldimout],nvarid)
    837837
    838838   ierr = NF_PUT_ATT_TEXT (nout,nvarid,"long_name",18,"Control parameters")
Note: See TracChangeset for help on using the changeset viewer.