Ignore:
Timestamp:
Jan 15, 2021, 6:10:56 PM (4 years ago)
Author:
Laurent Fairhead
Message:

Modifications nécessaires pour les isotopes
CRisi

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/trunk/libf/dyn3d_common/infotrac.F90

    • Property svn:keywords set to Id
    r3666 r3800  
    3232  INTEGER, ALLOCATABLE, DIMENSION(:,:), SAVE    :: iqfils
    3333  INTEGER, ALLOCATABLE, DIMENSION(:), SAVE    :: iqpere
     34  REAL :: qperemin,masseqmin,ratiomin ! MVals et CRisi
     35  PARAMETER (qperemin=1e-16,masseqmin=1e-16,ratiomin=1e-16) ! MVals
    3436
    3537! conv_flg(it)=0 : convection desactivated for tracer number it
Note: See TracChangeset for help on using the changeset viewer.