Ignore:
Timestamp:
Sep 21, 2022, 10:16:20 AM (3 years ago)
Author:
dcugnet
Message:

Fix for reprobus

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r4265 r4266  
    160160    var = tracers(iq)%name
    161161    oldVar = new2oldName(var)
     162    lOldHNO3 = lOldHNO3 .AND. (var == 'HNO3' .OR. var == 'HNO3_g')
    162163    !--------------------------------------------------------------------------------------------------------------------------
    163164    IF(NF90_INQ_VARID(fID, var, vID) == NF90_NoErr .AND. .NOT.lOldHNO3) THEN             !=== REGULAR CASE
Note: See TracChangeset for help on using the changeset viewer.