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

Sync latest trunk changes to branch Ocean_skin

Location:
LMDZ6/branches/Ocean_skin
Files:
4 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/branches/Ocean_skin

  • LMDZ6/branches/Ocean_skin/libf/misc/handle_err_m.F90

    r3605 r3617  
    2727
    2828    if (ncerr /= nf90_noerr) then
     29       print *, "NetCDF95 handle_err:"
    2930       print *, message, ":"
    3031       if (present(varid)) print *, "varid = ", varid
    … …  
    3940          end if
    4041       end if
    41        call abort_physic("NetCDF95 handle_err", "", 1)
     42       call abort_physic("NetCDF95 handle_err", "see above", 1)
    4243    end if
    4344

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