Changeset 3599 for LMDZ6/trunk/libf


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

Correction to r3587. Sorry.

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r3597 r3599  
    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
    20332026
    20342027
    … …  
    21662159          ENDDO
    21672160       ENDDO
     2161    ENDIF
     2162!
     2163! Temporary solutions adressing ticket #104 and the non initialisation of tr_ancien
     2164! LF
     2165    IF (debut) THEN
     2166      WRITE(lunout,*)' WARNING: tr_ancien initialised to tr_seri'
     2167      DO iq = nqo+1, nqtot
     2168           tr_ancien(:,:,iq-nqo)=tr_seri(:,:,iq-nqo)
     2169      ENDDO
    21682170    ENDIF
    21692171    !
Note: See TracChangeset for help on using the changeset viewer.