Changeset 2577


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

Location:
trunk/LMDZ.MARS
Files:
5 edited

Legend:

Unmodified
Added
Removed

  • trunk/LMDZ.MARS/README

    r2575 r2577  
    35003500== 26/10/2021 == CM
    35013501Delete nucleaco2.F (old file), the good one is nucleaco2.F90 (better modular)
     3502
     3503== 27/10/2021 == JL+EM
     3504Fixes in the utilities for the picky gfortran 10+ compiler

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

    r2567 r2577  
    582582       if (rep.eq.1) write(*,*) "Sol", int(output_time) 
    583583
    584        ierr= NF_PUT_VARA_REAL(nout,timevarout,(/k/),(/1/),output_time)
     584       ierr= NF_PUT_VARA_REAL(nout,timevarout,(/k/),(/1/),(/output_time/))
    585585   end do
    586586!  use the last output_time value to update memotime   
    … …  
    694694      ierr = NF_GET_VAR_REAL(nid,varid,var3d)
    695695      ierr= NF_PUT_VARA_REAL(nout,varidout,corner,edges,var3d)
    696       miss=NF_GET_ATT_REAL(nid,varid,"missing_value",missing)
     696      miss=NF_GET_ATT_REAL(nid,varid,"missing_value",[missing])
    697697      miss=NF_GET_ATT_REAL(nid,varid,"valid_range",valid_range)
    698698
    … …  
    865865ierr = NF_REDEF (nout)
    866866
    867 ierr = NF_DEF_VAR (nout,"altitude",NF_FLOAT,1,altdimout,nvarid)
     867ierr = NF_DEF_VAR (nout,"altitude",NF_FLOAT,1,[altdimout],nvarid)
    868868
    869869ierr = NF_PUT_ATT_TEXT (nout,nvarid,'long_name',len_trim(adjustl(altlong_name)),adjustl(altlong_name))
    … …  
    884884   ierr = NF_REDEF (nout)
    885885
    886    ierr = NF_DEF_VAR (nout,"controle",NF_FLOAT,1,ctldimout,nvarid)
     886   ierr = NF_DEF_VAR (nout,"controle",NF_FLOAT,1,[ctldimout],nvarid)
    887887
    888888   ierr = NF_PUT_ATT_TEXT (nout,nvarid,"long_name",18,"Control parameters")
    … …  
    15201520
    15211521! Write "missing_value" attribute
    1522 ierr= NF_PUT_ATT_REAL(nout,nvarid,'missing_value',NF_FLOAT,1,missing)
     1522ierr= NF_PUT_ATT_REAL(nout,nvarid,'missing_value',NF_FLOAT,1,[missing])
    15231523
    15241524if (ierr.NE.NF_NOERR) then

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

    r2567 r2577  
    655655
    656656      ierr = NF_GET_VAR_REAL(nid,varid,var3d)
    657       miss=NF_GET_ATT_REAL(nid,varid,"missing_value",missing)
     657      miss=NF_GET_ATT_REAL(nid,varid,"missing_value",[missing])
    658658      validr=NF_GET_ATT_REAL(nid,varid,"valid_range",valid_range)
    659659
    … …  
    913913ierr = NF_REDEF (nout)
    914914
    915 ierr = NF_DEF_VAR (nout,"altitude",NF_FLOAT,1,altdimout,nvarid)
     915ierr = NF_DEF_VAR (nout,"altitude",NF_FLOAT,1,[altdimout],nvarid)
    916916
    917917ierr = NF_PUT_ATT_TEXT (nout,nvarid,'long_name',len_trim(adjustl(altlong_name)),adjustl(altlong_name))
    … …  
    937937   ierr = NF_REDEF (nout)
    938938
    939    ierr = NF_DEF_VAR (nout,"controle",NF_FLOAT,1,ctldimout,nvarid)
     939   ierr = NF_DEF_VAR (nout,"controle",NF_FLOAT,1,[ctldimout],nvarid)
    940940
    941941   ierr = NF_PUT_ATT_TEXT (nout,nvarid,"long_name",18,"Control parameters")
    … …  
    12401240if (miss.eq.NF_NOERR) then
    12411241! Write "missing_value" attribute
    1242   ierr= NF_PUT_ATT_REAL(nout,nvarid,'missing_value',NF_FLOAT,1,missing)
     1242  ierr= NF_PUT_ATT_REAL(nout,nvarid,'missing_value',NF_FLOAT,1,[missing])
    12431243
    12441244  if (ierr.NE.NF_NOERR) then

  • 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")

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

    r2567 r2577  
    583583
    584584     do it=1,nsol
    585        ierr= NF_PUT_VARA_REAL(nout,timevarout,(/it/),(/1/),intsol(it)*24.)
     585       ierr= NF_PUT_VARA_REAL(nout,timevarout,(/it/),(/1/),[intsol(it)*24.])
    586586     enddo
    587587   else
    … …  
    683683
    684684      ierr = NF_GET_VAR_REAL(nid,varid,var3d)
    685       miss=NF_GET_ATT_REAL(nid,varid,"missing_value",missing)
     685      miss=NF_GET_ATT_REAL(nid,varid,"missing_value",[missing])
    686686      validr=NF_GET_ATT_REAL(nid,varid,"valid_range",valid_range)
    687687
    … …  
    10321032ierr = NF_REDEF (nout)
    10331033
    1034 ierr = NF_DEF_VAR (nout,"altitude",NF_FLOAT,1,altdimout,nvarid)
     1034ierr = NF_DEF_VAR (nout,"altitude",NF_FLOAT,1,[altdimout],nvarid)
    10351035
    10361036ierr = NF_PUT_ATT_TEXT (nout,nvarid,'long_name',len_trim(adjustl(altlong_name)),adjustl(altlong_name))
    … …  
    10561056   ierr = NF_REDEF (nout)
    10571057
    1058    ierr = NF_DEF_VAR (nout,"controle",NF_FLOAT,1,ctldimout,nvarid)
     1058   ierr = NF_DEF_VAR (nout,"controle",NF_FLOAT,1,[ctldimout],nvarid)
    10591059
    10601060   ierr = NF_PUT_ATT_TEXT (nout,nvarid,"long_name",18,"Control parameters")
    … …  
    13621362! Write "missing_value" attribute
    13631363if (miss.eq.NF_NOERR) then
    1364   ierr= NF_PUT_ATT_REAL(nout,nvarid,'missing_value',NF_FLOAT,1,missing)
     1364  ierr= NF_PUT_ATT_REAL(nout,nvarid,'missing_value',NF_FLOAT,1,[missing])
    13651365
    13661366  if (ierr.NE.NF_NOERR) then
Note: See TracChangeset for help on using the changeset viewer.