Changeset 311 for trunk/LMDZ.MARS/libf


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

File:
1 edited

Legend:

Unmodified
Added
Removed

  • 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.