Changeset 4084


Ignore:
Timestamp:
Mar 1, 2022, 4:47:43 PM (3 years ago)
Author:
Laurent Fairhead
Message:

Applying r4083 to phylmdiso

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/trunk/libf/phylmdiso/physiq_mod.F90

    r4071 r4084  
    64956495          d_qx(i,k,iliq) = ( ql_seri(i,k) - qx(i,k,iliq) ) / phys_tstep
    64966496          !CR: on ajoute le contenu en glace
    6497           IF (nqo.gt.3) THEN
     6497          IF (nqo.ge.3) THEN
    64986498             d_qx(i,k,isol) = ( qs_seri(i,k) - qx(i,k,isol) ) / phys_tstep
    64996499          ENDIF
Note: See TracChangeset for help on using the changeset viewer.