Changeset 3929 for LMDZ6/trunk/libf


Ignore:
Timestamp:
Jun 11, 2021, 5:01:06 PM (3 years ago)
Author:
musat
Message:

Correction rh2m (EV)
IM

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/trunk/libf/phylmd/phys_output_write_mod.F90

    r3900 r3929  
    14761476       IF (vars_defined) THEN
    14771477          DO i=1, klon
    1478              zx_tmp_fi2d(i)=MAX(0.,rh2m(i)*100.)
     1478             IF (zt2m(i).LE.273.15) then
     1479                zx_tmp_fi2d(i)=MAX(0.,rh2m(i)*100.)
     1480             ELSE
     1481                zx_tmp_fi2d(i)=MAX(0.,MIN(100.,rh2m(i)*100.))
     1482             ENDIF
    14791483          ENDDO
    14801484       ENDIF
Note: See TracChangeset for help on using the changeset viewer.