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

Timestamp:

Jun 11, 2014, 3:46:46 PM (11 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/rrtm_taumol1.F90 (modified) (1 diff)

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

@@ -189 +189 @@
 
 IF (LHOOK) CALL DR_HOOK('RRTM_TAUMOL1',0,ZHOOK_HANDLE)
+!--ajout OB 
+IF (K_LAYTROP.GT.100) THEN 
+PRINT *,'ATTENTION KLAY_TROP > 100 PROBLEME ARRAY DANS RRTM ON ARRETE'
+STOP
+!--fin ajout OB
+ENDIF
 DO I_LAY = 1, K_LAYTROP
   IND0(I_LAY) = ((K_JP(I_LAY)-1)*5+(K_JT(I_LAY)-1))*NSPA(1) + 1