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

File:
1 edited

Legend:

Unmodified
Added
Removed

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