Ignore:
Timestamp:
Sep 21, 2022, 10:41:03 AM (2 years ago)
Author:
dcugnet
Message:

Last (hopefully) fix for REPROBUS and exceptions about HNO3.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • LMDZ6/trunk/libf/dyn3dmem/dynetat0_loc.F90

    r4266 r4268  
    4646  REAL,             ALLOCATABLE :: ucov_glo(:,:),    q_glo(:,:), phis_glo(:)
    4747  REAL,             ALLOCATABLE :: teta_glo(:,:)
    48   LOGICAL :: lOldHNO3
     48  LOGICAL :: lOldHNO3, ll
    4949!-------------------------------------------------------------------------------
    5050  modname="dynetat0_loc"
     
    152152!--- Tracers
    153153  ALLOCATE(q_glo(ip1jmp1,llm))
    154   lOldHNO3=.FALSE.
     154  ll=.FALSE.
    155155#ifdef REPROBUS
    156156  !--- Old convention: HNO3 = g+l and HNO3_g = g ; new convention: HNO3tot = g+l and HNO3 = g
    157   lOldHNO3 = NF90_INQ_VARID(fID,var,vID), "inq", 'HNO3tot') /= NF90_NoErr
     157  ll = NF90_INQ_VARID(fID,var,vID), "inq", 'HNO3tot') /= NF90_NoErr
    158158#endif
    159159  DO iq=1,nqtot
    160160    var = tracers(iq)%name
    161161    oldVar = new2oldName(var)
    162     lOldHNO3 = lOldHNO3 .AND. (var == 'HNO3' .OR. var == 'HNO3_g')
     162    lOldHNO3 = ll .AND. (var == 'HNO3' .OR. var == 'HNO3_g')
    163163    !--------------------------------------------------------------------------------------------------------------------------
    164164    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.