Changeset 422


Ignore:
Timestamp:
Oct 17, 2002, 3:27:29 PM (22 years ago)
Author:
lmdzadmin
Message:

Soucis de portabilite sur VPP et petit bug
LF

Location:
LMDZ.3.3/branches/rel-LF/libf/phylmd
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • LMDZ.3.3/branches/rel-LF/libf/phylmd/ini_histhf.h

    r418 r422  
    2929c   dtime est passe par ailleurs a histbeg
    3030
    31          zout = dtime * FLOAT(NINT(86400./dtime*ecrit_hf))
     31         zout = dtime * REAL(NINT(86400./dtime*ecrit_hf))
    3232         zsto = zout
    3333         print*,'zout,zsto=',zout,zsto
  • LMDZ.3.3/branches/rel-LF/libf/phylmd/physiq.F

    r411 r422  
    12851285     .        pbase,bbase,dtvpdt1,dtvpdq1,dplcldt,dplcldr)
    12861286
    1287            do i = 1, klon
    1288             wd(i)=0.0
    1289              do k = 1, klev
    1290                qcondc(i)=0.0
    1291              enddo
    1292            enddo
     1287            qcondc=0.0
    12931288
    12941289          else
Note: See TracChangeset for help on using the changeset viewer.