Changeset 8a65cb0 in flexpart.git for src/convect43c.f90


Ignore:
Timestamp:
Mar 2, 2015, 3:11:55 PM (9 years ago)
Author:
Espen Sollum ATMOS <espen@…>
Branches:
master, 10.4.1_pesei, GFS_025, bugfixes+enhancements, dev, release-10, release-10.4.1, scaling-bug, univie
Children:
1d207bb
Parents:
60403cd
Message:

Added code, makefile for dev branch

File:
1 edited

Legend:

Unmodified
Added
Removed

  • src/convect43c.f90

    re200b7a r8a65cb0  
    970970    DO I=1,INB
    971971     ENTS=ENTS+(CPN(I)*FT(I)+LV(I)*FQ(I))* &
    972           (PHCONV_HPA(I)-PHCONV_HPA(I+1))       
     972          (PHCONV_HPA(I)-PHCONV_HPA(I+1))
    973973    END DO
    974974    ENTS=ENTS/(PHCONV_HPA(1)-PHCONV_HPA(INB+1))
Note: See TracChangeset for help on using the changeset viewer.
hosted by ZAMG