Changeset 5469 for LMDZ6/trunk


Ignore:
Timestamp:
Jan 10, 2025, 1:19:15 PM (11 hours ago)
Author:
jyg
Message:

Bug fix in subroutine cv3_tracer in cv3_routines.f90.
This is an old bug (>10y).

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/trunk/libf/phylmd/cv3_routines.f90

    r5346 r5469  
    50225022        d1a(i, j) = d1a(i, j) + ment(i, k, j)*ep(i, k)*(1.-sigij(i,k,j))
    50235023        IF (k<=j) THEN
    5024           dam(i, j) = dam(i, j) + ment(i, k, j)*epm(i, k, j)*(1.-ep(i,k))*(1.-sigij(i,k,j))
     5024!!jyg          dam(i, j) = dam(i, j) + ment(i, k, j)*epm(i, k, j)*(1.-ep(i,k))*(1.-sigij(i,k,j))
     5025          dam(i, j) = dam(i, j) + ment(i, k, j)*epm(i, j, k)*(1.-ep(i,k))*(1.-sigij(i,k,j))
    50255026          phi2(i, j, k) = phi(i, j, k)*epm(i, j, k)
    50265027        END IF
Note: See TracChangeset for help on using the changeset viewer.