Changeset 2435 for LMDZ5/branches/testing/libf/phylmd/rrtm/swni.F90

Timestamp:

Jan 28, 2016, 5:02:13 PM (9 years ago)

Author:

Laurent Fairhead

Message:

Merged trunk changes r2396:2434 into testing branch

Location:

LMDZ5/branches/testing

Files:

• . (modified) (1 prop)
• libf/phylmd/rrtm/swni.F90 (modified) (1 diff)

LMDZ5/branches/testing/libf/phylmd/rrtm/swni.F90

@@ -419 +419 @@
         ZRRJ=ZRJ(JL,JN,JK) / ZRJ(JL,JN2J,JK)
         ZRRK=ZRK(JL,JN,JK) / ZRK(JL,JN2J,JK)
-        ZW2(JL,1) = LOG( ZRRJ ) * ZRR
-        ZW2(JL,2) = LOG( ZRRK ) * ZRR
+!        ZW2(JL,1) = LOG( ZRRJ ) * ZRR
+!        ZW2(JL,2) = LOG( ZRRK ) * ZRR
+!--correction Olivier Boucher based on ECMWF code 
+        ZW2(JL,1) = LOG( MAX(1.0_JPRB,ZRRJ) ) * ZRR
+        ZW2(JL,2) = LOG( MAX(1.0_JPRB,ZRRK) ) * ZRR
       ENDDO