Ignore:
Timestamp:
Mar 8, 2021, 3:29:36 PM (3 years ago)
Author:
acozic
Message:

modify calcul of ch_in in physiq if there are 3 water tracers

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/branches/IPSLCM6.0.15/libf/phylmd/physiq_mod.F90

    r3826 r3860  
    44884488    ELSE
    44894489       sh_in(:,:) = qx(:,:,ivap)
    4490        ch_in(:,:) = qx(:,:,iliq)
     4490       IF (nqo .EQ. 3) THEN
     4491          ch_in(:,:) = qx(:,:,iliq) + qx(:,:,isol)
     4492       ELSE
     4493          ch_in(:,:) = qx(:,:,iliq)
     4494       ENDIF
    44914495    ENDIF
    44924496
Note: See TracChangeset for help on using the changeset viewer.