Changeset 2056 for LMDZ5/branches/testing/libf/phylmd/rrtm/swr.F90

Timestamp:

Jun 11, 2014, 3:46:46 PM (10 years ago)

Author:

Laurent Fairhead

Message:

Merged trunk changes r1997:2055 into testing branch

Location:

LMDZ5/branches/testing

Files:

• . (modified) (1 prop)
• libf/phylmd/rrtm/swr.F90 (modified) (4 diffs)

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

@@ -161 +161 @@
 !++MODIFCODE
   IF (NOVLP >= 5) THEN !MESONH VERSION
-   stop'provisoire pour verifier option novlp=1'
+   stop 'provisoire pour verifier option novlp=1'
    ZFACOA =PTAUAZ(JL,IKL) 
    ZFACOC = 1.0_JPRB - POMEGA(JL,KNU,IKL) * PCG(JL,KNU,IKL)* PCG(JL,KNU,IKL)
@@ -192 +192 @@
     ZCLOUD(JL) = ZSS1(JL)
   ELSEIF (NOVLP == 2) THEN
-   stop'provisoire pour verifier option novlp=1b'
+   stop 'provisoire pour verifier option novlp=1b'
 !* maximum
     ZCLOUD(JL) = MAX( ZSS1(JL) , ZCLOUD(JL) )
@@ -198 +198 @@
 !++MODIFCODE
   ELSEIF ((NOVLP == 3).OR.((NOVLP  >=  5).AND.(NOVLP /= 8))) THEN
-   stop'provisoire pour verifier option novlp=1c'
+   stop 'provisoire pour verifier option novlp=1c'
 !--MODIFCODE
 !* random
@@ -205 +205 @@
     ZC1I(JL,IKL) = ZCLOUD(JL)
   ELSEIF (NOVLP == 4) THEN
-   stop'provisoire pour verifier option novlp=1d'
+   stop 'provisoire pour verifier option novlp=1d'
 !* Hogan & Illingworth, 2001  
     ZCLEAR(JL)=ZCLEAR(JL)*( &