Changeset 2376 for LMDZ5/trunk/libf/phylmd/cv3_routines.F90
- Timestamp:
- Oct 20, 2015, 11:57:39 AM (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ5/trunk/libf/phylmd/cv3_routines.F90
r2364 r2376 1074 1074 REAL, DIMENSION (nloc, nd), INTENT (OUT) :: ep, sigp, hp 1075 1075 REAL, DIMENSION (nloc, nd), INTENT (OUT) :: buoy 1076 REAL, DIMENSION (nloc, nd), INTENT (OUT) :: frac 1076 1077 1077 1078 !local variables: … … 1082 1083 REAL by, defrac, pden, tbis 1083 1084 REAL ah0(nloc), cape(nloc), capem(nloc), byp(nloc) 1084 REAL frac(nloc, nd)1085 1085 LOGICAL lcape(nloc) 1086 1086 INTEGER iposit(nloc) … … 1532 1532 hp(i, k) = hnk(i) + (lv(i,k)+(cpd-cpv)*t(i,k)+frac(i,k)*lf(i,k))* & 1533 1533 ep(i, k)*clw(i, k) 1534 END IF 1535 END DO 1536 END DO 1537 ! Below cloud base, set ice fraction to cloud base value 1538 DO k = 1, nl 1539 DO i = 1, ncum 1540 IF (k<icb(i)) THEN 1541 frac(i,k) = frac(i,icb(i)) 1534 1542 END IF 1535 1543 END DO
Note: See TracChangeset
for help on using the changeset viewer.