Changeset 882 for trunk/LMDZ.MARS/libf


Ignore:
Timestamp:
Feb 15, 2013, 2:54:12 PM (12 years ago)
Author:
tnavarro
Message:

small correction in makegcm, latent heat in clouds, changed threshold in dust radius

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

Legend:

Unmodified
Added
Removed

  • trunk/LMDZ.MARS/libf/phymars/updaterad.F90

    r745 r882  
    4242real, parameter :: qdust_threshold  = 1.e-20
    4343
    44 real, parameter :: r3dustmin = 1.e-21  ! ie rdustmin = 0.1 microns
    45 real, parameter :: rdustmin  = 0.1e-6
     44real, parameter :: r3dustmin = 1.e-24  ! ie rdustmin = 0.1 microns
     45real, parameter :: rdustmin  = 0.01e-6
    4646
    4747real, parameter :: r3dustmax = 125.e-12 ! ie rdustmax  = 500 microns

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

    r746 r882  
    244244          ENDDO
    245245        ENDDO
     246       
     247        IF (activice) THEN
     248          DO l=1,nlay
     249            DO ig=1,ngrid
     250              subpdt(ig,l) =
     251     &            subpdt(ig,l) + subpdtcloud(ig,l)
     252            ENDDO
     253          ENDDO
     254        ENDIF
    246255     
    247256 
Note: See TracChangeset for help on using the changeset viewer.