Ignore:
Timestamp:
Jun 11, 2002, 2:18:30 PM (22 years ago)
Author:
lmdzadmin
Message:

Modif sur les cdrags temperature FH
LF

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ.3.3/branches/rel-LF/libf/phylmd/clmain.F

    r353 r363  
    455455      ytauy = y_flux_v(:,1)
    456456
     457c FH modif sur le cdrag temperature
     458      do i=1,knon
     459         ycoefh(i,1)=ycoefm(i,1)*0.8
     460      enddo
     461
    457462c calculer la diffusion de "q" et de "h"
    458463      CALL clqh(dtime, itap, date0,jour, debut,lafin,
Note: See TracChangeset for help on using the changeset viewer.