Ignore:
Timestamp:
Dec 17, 2019, 3:44:15 PM (4 years ago)
Author:
lguez
Message:

Sync latest trunk changes to branch Ocean_skin

Location:
LMDZ6/branches/Ocean_skin
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • LMDZ6/branches/Ocean_skin

  • LMDZ6/branches/Ocean_skin/libf/phylmd/cv3_routines.F90

    r3605 r3617  
    14951495!!!!            qcld(i,k) = min(clw(i,k), elacrit)                                          !!jygprl
    14961496            qcld(i,k) = min(clw(i,k), elacrit*(1.-qta(i,k-1))/(1.-elacrit))             !!jygprl
    1497             phinu2p = qhsat(i,k-1) + qcld(i,k-1) - (qhsat(i,k) + qcld(i,k))                     !!jygprl
     1497            phinu2p = max(qhsat(i,k-1) + qcld(i,k-1) - (qhsat(i,k) + qcld(i,k)),0.)   !!jygprl
    14981498            qpl(i,k) = qpl(i,k-1) + (1.-frac(i,k))*phinu2p                            !!jygprl
    14991499            qps(i,k) = qps(i,k-1) + frac(i,k)     *phinu2p                            !!jygprl
  • LMDZ6/branches/Ocean_skin/libf/phylmd/physiq_mod.F90

    r3605 r3617  
    37283728            u, &
    37293729            v, &
     3730            rot, &
    37303731            wo(:, :, 1), &
    37313732            q_seri, &
    37323733            zxtsol, &
     3734            zt2m, &
    37333735            zxsnow_dummy, &
    37343736            solsw, &
Note: See TracChangeset for help on using the changeset viewer.