Ignore:
Timestamp:
May 25, 2005, 3:10:09 PM (20 years ago)
Author:
Laurent Fairhead
Message:

Synchronisation avec tous les diagnostiques de Ionela IM
Inclusion du slab ocean IM
LF

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ4/trunk/libf/phylmd/orografi.F

    r622 r644  
    113113         d_t(i,klev+1-k) = dtime*pdtdt(i,k)
    114114         pustr(i)        = pustr(i)
    115      .                    +rg*pdudt(i,k)*(papmh(i,k+1)-papmh(i,k))
     115cIM BUG  .                +rg*pdudt(i,k)*(papmh(i,k+1)-papmh(i,k))
     116     .                    +pdudt(i,k)*(papmh(i,k+1)-papmh(i,k))/RG
    116117         pvstr(i)        = pvstr(i)
    117      .                    +rg*pdvdt(i,k)*(papmh(i,k+1)-papmh(i,k))
     118cIM BUG  .                +rg*pdvdt(i,k)*(papmh(i,k+1)-papmh(i,k))
     119     .                    +pdvdt(i,k)*(papmh(i,k+1)-papmh(i,k))/RG
    118120      ENDDO
    119121      ENDDO
    … …  
    14021404         d_t(i,klev+1-k) = dtime*pdtdt(i,k)
    14031405         pustr(i)        = pustr(i)
    1404      .                    +RG*pdudt(i,k)*(papmh(i,k+1)-papmh(i,k))
     1406cIM BUG .                 +RG*pdudt(i,k)*(papmh(i,k+1)-papmh(i,k))
     1407     .                    +pdudt(i,k)*(papmh(i,k+1)-papmh(i,k))/RG
    14051408         pvstr(i)        = pvstr(i)
    1406      .                    +RG*pdvdt(i,k)*(papmh(i,k+1)-papmh(i,k))
     1409cIM BUG .                 +RG*pdvdt(i,k)*(papmh(i,k+1)-papmh(i,k))
     1410     .                    +pdvdt(i,k)*(papmh(i,k+1)-papmh(i,k))/RG
    14071411      ENDDO
    14081412      ENDDO
Note: See TracChangeset for help on using the changeset viewer.