Changeset 4270


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

Fix for reprobus

Location:
LMDZ6/trunk/libf
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/trunk/libf/dyn3d/dynetat0.F90

    r4268 r4270  
    130130  ll=.FALSE.
    131131#ifdef REPROBUS
    132   !--- Old convention: HNO3 = g+l and HNO3_g = g ; new convention: HNO3tot = g+l and HNO3 = g
    133   ll = NF90_INQ_VARID(fID,var,vID), "inq", 'HNO3tot') /= NF90_NoErr
     132  !--- .TRUE. for old convention: HNO3 = g+l and HNO3_g = g (new convention: HNO3tot = g+l and HNO3 = g)
     133  ll = NF90_INQ_VARID(fID, 'HNO3tot', vID) /= NF90_NoErr
    134134#endif
    135135  DO iq=1,nqtot

  • 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.