Changeset 4258


Ignore:
Timestamp:
Sep 20, 2022, 4:09:50 PM (20 months ago)
Author:
lguez
Message:

Bug fix: correct varid

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/trunk/libf/dyn3d_common/grilles_gcm_netcdf_sub.F90

    r4253 r4258  
    2727  ! Attributs netcdf sortie
    2828  INTEGER ncid_out,rcode_out
    29   INTEGER out_lonuid,out_lonvid,out_latuid,out_latvid,out_levid
     29  INTEGER out_lonuid,out_lonvid,out_latuid,out_latvid
    3030  INTEGER out_varid
    3131  INTEGER out_lonudim,out_lonvdim
    … …  
    225225  CALL handle_err(status)
    226226#else
    227   status=NF_PUT_VARA_REAL(ncid_out,out_levid,1,llm,rlevdeg)
     227  status=NF_PUT_VARA_REAL(ncid_out,presnivs_id,1,llm,rlevdeg)
    228228  CALL handle_err(status)
    229229#endif
Note: See TracChangeset for help on using the changeset viewer.