- Timestamp:
- Jun 20, 2007, 11:58:51 AM (17 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ4/trunk/libf/phylmd/yamada4.F
r776 r789 434 434 if(1.eq.1) then 435 435 do k=2,klev 436 do ig=1, klon436 do ig=1,ngrid 437 437 if (teta(ig,2).gt.teta(ig,1)) then 438 438 qmin=ustar(ig)*(max(1.-zlev(ig,k)/pblhmin(ig),0.))**2
Note: See TracChangeset
for help on using the changeset viewer.