Ignore:
Timestamp:
Apr 30, 2021, 11:45:23 PM (4 years ago)
Author:
Laurent Fairhead
Message:

By request, re-introduction of two 'bugs' so that running without the iflag_new_t2mq2m
gives exactly the same results as CMIP6 previous simulations

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/branches/IPSLCM6.0.15/libf/phylmd/pbl_surface_mod.F90

    r3837 r3886  
    31143114    DO nsrf = 1, nbsrf
    31153115       DO i = 1, klon
    3116           zxqsurf(i) = zxqsurf(i) + MAX(qsurf(i,nsrf),0.0) * pctsrf(i,nsrf)
     3116          IF (iflag_new_t2mq2m==0) THEN
     3117             zxqsurf(i) = zxqsurf(i) + qsurf(i,nsrf) * pctsrf(i,nsrf)
     3118          ELSE
     3119             zxqsurf(i) = zxqsurf(i) + MAX(qsurf(i,nsrf),0.0) * pctsrf(i,nsrf)
     3120          ENDIF
     3121         
    31173122          zxsnow(i)  = zxsnow(i)  + snow(i,nsrf)  * pctsrf(i,nsrf)
    31183123       END DO
Note: See TracChangeset for help on using the changeset viewer.