Changeset 2234


Ignore:
Timestamp:
Mar 16, 2015, 5:27:47 PM (10 years ago)
Author:
fhourdin
Message:

Correction d'un bug
Bug fixing

File:
1 edited

Legend:

Unmodified
Added
Removed
  • LMDZ5/trunk/libf/phylmd/pbl_surface_mod.F90

    r2232 r2234  
    13681368!           ycdragm, ycdragh )
    13691369! Fuxing WANG, 04/03/2015, replace the clcdrag by the merged version: cdrag
    1370         DO i = 1, klon
     1370        DO i = 1, knon
     1371!          print*,'PBL ',i,RD
     1372!          print*,'PBL ',yt(i,1),ypaprs(i,1),ypplay(i,1)
    13711373           zgeo1(i) = RD * yt(i,1) / (0.5*(ypaprs(i,1)+ypplay(i,1))) &
    13721374                * (ypaprs(i,1)-ypplay(i,1))
Note: See TracChangeset for help on using the changeset viewer.