Changeset 147 for trunk/LMDZ.MARS/libf


Ignore:
Timestamp:
Jun 8, 2011, 12:10:23 PM (13 years ago)
Author:
aslmd
Message:

LMDZ.MARS: [dimradmars.h] nsizemax par defaut a 60 [newsedim] print en commentaire. MESOSCALE: changements mineurs dans makemeso + notes

Location:
trunk/LMDZ.MARS/libf/phymars
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • trunk/LMDZ.MARS/libf/phymars/dimradmars.h

    r132 r147  
    7777!   the radiative calculations.
    7878
    79 !      INTEGER, PARAMETER :: nsizemax = 60
    80       INTEGER, PARAMETER :: nsizemax = 1
     79      INTEGER, PARAMETER :: nsizemax = 60
     80!      INTEGER, PARAMETER :: nsizemax = 1
    8181
    8282! Various initialisation for LW radiative code

  • trunk/LMDZ.MARS/libf/phymars/newsedim.F

    r120 r147  
    179179             ptop=exp(-(dztop-Ep)*g/(r*pt(ig,l+k)))
    180180             IF ( ptop .eq. 1. ) THEN
    181                 PRINT*, 'newsedim: exposant trop petit ', ig, l
     181                !PRINT*, 'newsedim: exposant trop petit ', ig, l
    182182                ptop=pplev(ig,l+k) * ( 1. - (dztop-Ep)*g/(r*pt(ig,l+k)))
    183183             ELSE
Note: See TracChangeset for help on using the changeset viewer.