Changeset 10 for readTracFiles_mod.f90


Ignore:
Timestamp:
Jan 31, 2022, 9:24:36 PM (3 years ago)
Author:
dcugnet
Message:

The key %isH2Ofamily, from the derived type "trac_type", is replaced with the more general

key %isInPhysics, which is TRUE for tracers both in "qx" and "tr_seri".

File:
1 edited

Legend:

Unmodified
Added
Removed

  • readTracFiles_mod.f90

    r7 r10  
    182182      IF(test(cumulTracers(dBase, tracs), lerr)) RETURN
    183183    END IF
    184     WHERE(tracs%gen0Name(1:3) == 'H2O') tracs%isH2Ofamily=.TRUE.     !--- Set %isH2Ofamily: belongs to H2O family
     184    WHERE(tracs%gen0Name(1:3) /= 'H2O') tracs%isInPhysics=.TRUE.     !--- Set %isInPhysics: passed to physics
    185185    CALL setDirectKeys(tracs)                                        !--- Set %iqParent, %iqDescen, %nqDescen, %nqChilds
    186186  END IF
    … …  
    13721372
    13731373END MODULE readTracFiles_mod
    1374 
Note: See TracChangeset for help on using the changeset viewer.