Ignore:
Timestamp:
Sep 21, 2022, 12:47:55 PM (2 years ago)
Author:
dcugnet
Message:

Fix for reprobus

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/trunk/libf/dyn3dmem/dynetat0_loc.F90

    r4268 r4270  
    154154  ll=.FALSE.
    155155#ifdef REPROBUS
    156   !--- Old convention: HNO3 = g+l and HNO3_g = g ; new convention: HNO3tot = g+l and HNO3 = g
    157   ll = NF90_INQ_VARID(fID,var,vID), "inq", 'HNO3tot') /= NF90_NoErr
     156  !--- .TRUE. for old convention: HNO3 = g+l and HNO3_g = g (new convention: HNO3tot = g+l and HNO3 = g)
     157  ll = NF90_INQ_VARID(fID, 'HNO3tot', vID) /= NF90_NoErr
    158158#endif
    159159  DO iq=1,nqtot
Note: See TracChangeset for help on using the changeset viewer.