Changeset 3597


Ignore:
Timestamp:
Nov 4, 2019, 4:56:08 PM (5 years ago)
Author:
Laurent Fairhead
Message:

Temporary fix for tr_ancien initialisation see ticket 104
LF

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r3577 r3597  
    20242024      sollwdown(:)= sollwdown(:) + betalwoff *(-1.*ZFLDN0(:,1) - &
    20252025                    sollwdown(:))
     2026!
     2027! Temporary solutions adressing ticket #104 and the non initialisation of tr_ancien
     2028! LF
     2029      WRITE(lunout,*)' WARNING: tr_ancien initialised to tr_seri'
     2030      DO iq = nqo+1, nqtot
     2031           tr_ancien(:,:,iq-nqo)=tr_seri(:,:,iq-nqo)
     2032      ENDDO
     2033
     2034
    20262035    ENDIF
    20272036    !
Note: See TracChangeset for help on using the changeset viewer.