Changeset 2190 for LMDZ5/trunk/libf


Ignore:
Timestamp:
Feb 2, 2015, 5:59:13 PM (10 years ago)
Author:
fhourdin
Message:

Correction lecture flux descendant LW

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ5/trunk/libf/phylmd/phyetat0.F90

    r2188 r2190  
    521521     PRINT*, 'mis a zero'
    522522     sollwdown = 0.
     523     zts=0.
    523524     do nsrf=1,nbsrf
    524525        zts(:)=zts(:)+ftsol(:,nsrf)*pctsrf(:,nsrf)
    … …  
    526527     sollwdown(:)=sollw(:)+RSIGMA*zts(:)**4
    527528  ENDIF
    528   print*,'TS SOLL',zts(klon/2),sollw(klon/2),sollwdown(klon/2)
     529!  print*,'TS SOLL',zts(klon/2),sollw(klon/2),sollwdown(klon/2)
    529530  xmin = 1.0E+20
    530531  xmax = -1.0E+20
Note: See TracChangeset for help on using the changeset viewer.