Changeset 311


Ignore:
Timestamp:
Sep 30, 2011, 9:26:01 AM (13 years ago)
Author:
emillour
Message:

Mars GCM:
Bug correction: in some cases layer(:) was not initialized.
TN

Location:
trunk/LMDZ.MARS
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • trunk/LMDZ.MARS/README

    r310 r311  
    10301030    --- ustar_seuil is more user-friendly than stress because direct comparison with ustar from model
    10311031--> For the moment this is MESOSCALE only, but potentially useful to everyone
     1032
     1033== 30/09/11 == TN
     1034>> Bug correction in lect_start_archive.F ; in some cases layer(:) was not
     1035   initialized.

  • trunk/LMDZ.MARS/libf/dyn3d/lect_start_archive.F

    r174 r311  
    523523         CALL abort
    524524       endif
     525       ! Also build (default) soil interlayer depth layer(:)
     526       do isoil=1,nsoilmx
     527         layer(isoil)=sqrt(mlayer(0)*mlayer(1))*
     528     &                      ((mlayer(1)/mlayer(0))**(isoil-1))
     529       enddo
    525530      endif ! of if (depthinterpol)
    526531
Note: See TracChangeset for help on using the changeset viewer.