Changeset 2596 for LMDZ5/trunk/libf/phylmd/rrtm/swr.F90

Timestamp:

Jul 21, 2016, 5:46:23 PM (8 years ago)

Author:

musat

Message:

In newmicro allow use of cloud overlap hypothesis defined
in radopt.h as for the radiation code.
In rrtm allow max and random cloud overlap hypothesis.
IM

File:

• LMDZ5/trunk/libf/phylmd/rrtm/swr.F90 (modified) (2 diffs)

LMDZ5/trunk/libf/phylmd/rrtm/swr.F90

@@ -192 +192 @@
     ZCLOUD(JL) = ZSS1(JL)
   ELSEIF (NOVLP == 2) THEN
-   stop 'provisoire pour verifier option novlp=1b'
+!IM150716  stop 'provisoire pour verifier option novlp=1b'
+   print*,'rrtm provisoire pour verifier option novlp=2 maximum'
 !* maximum
     ZCLOUD(JL) = MAX( ZSS1(JL) , ZCLOUD(JL) )
@@ -198 +199 @@
 !++MODIFCODE
   ELSEIF ((NOVLP == 3).OR.((NOVLP  >=  5).AND.(NOVLP /= 8))) THEN
-   stop 'provisoire pour verifier option novlp=1c'
+!IM150716  stop 'provisoire pour verifier option novlp=1c'
+    print*,'rrtm provisoire pour verifier option novlp=3 random'
 !--MODIFCODE
 !* random