Changeset 2010 for LMDZ5/trunk/libf/phylmd/rrtm/swr.F90
- Timestamp:
- Apr 10, 2014, 11:06:10 AM (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ5/trunk/libf/phylmd/rrtm/swr.F90
r1990 r2010 161 161 !++MODIFCODE 162 162 IF (NOVLP >= 5) THEN !MESONH VERSION 163 stop 'provisoire pour verifier option novlp=1'163 stop 'provisoire pour verifier option novlp=1' 164 164 ZFACOA =PTAUAZ(JL,IKL) 165 165 ZFACOC = 1.0_JPRB - POMEGA(JL,KNU,IKL) * PCG(JL,KNU,IKL)* PCG(JL,KNU,IKL) … … 192 192 ZCLOUD(JL) = ZSS1(JL) 193 193 ELSEIF (NOVLP == 2) THEN 194 stop 'provisoire pour verifier option novlp=1b'194 stop 'provisoire pour verifier option novlp=1b' 195 195 !* maximum 196 196 ZCLOUD(JL) = MAX( ZSS1(JL) , ZCLOUD(JL) ) … … 198 198 !++MODIFCODE 199 199 ELSEIF ((NOVLP == 3).OR.((NOVLP >= 5).AND.(NOVLP /= 8))) THEN 200 stop 'provisoire pour verifier option novlp=1c'200 stop 'provisoire pour verifier option novlp=1c' 201 201 !--MODIFCODE 202 202 !* random … … 205 205 ZC1I(JL,IKL) = ZCLOUD(JL) 206 206 ELSEIF (NOVLP == 4) THEN 207 stop 'provisoire pour verifier option novlp=1d'207 stop 'provisoire pour verifier option novlp=1d' 208 208 !* Hogan & Illingworth, 2001 209 209 ZCLEAR(JL)=ZCLEAR(JL)*( &
Note: See TracChangeset
for help on using the changeset viewer.