Changeset 2027 for LMDZ5/trunk/libf/phylmd/rrtm/lwu.F90

Timestamp:

Apr 29, 2014, 3:38:53 PM (11 years ago)

Author:

Laurent Fairhead

Message:

Problèmes sur les concentrations de certains gaz

19. Baek

---

Problems on some gases concentrations

19. Baek

File:

• LMDZ5/trunk/libf/phylmd/rrtm/lwu.F90 (modified) (5 diffs, 1 prop)

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

@@ +1 @@
+!
+! $Id$
+!
 SUBROUTINE LWU &
  & ( KIDIA, KFDIA, KLON, KLEV,&
@@ -69 +72 @@
  & ALWT     ,BLWT     ,RO3T     ,RT1      ,TREF     ,&
  & RVGCO2   ,RVGH2O   ,RVGO3  
-USE YOERDI   , ONLY : RCH4     ,RN2O     ,RCFC11   ,RCFC12
+!USE YOERDI   , ONLY : RCH4     ,RN2O     ,RCFC11   ,RCFC12
 USE YOERDU   , ONLY : R10E     ,REPSCO   ,REPSCQ
+
 
 IMPLICIT NONE
@@ -87 +91 @@
 REAL(KIND=JPRB)   ,INTENT(IN)    :: PWV(KLON,KLEV) 
 REAL(KIND=JPRB)   ,INTENT(OUT)   :: PABCU(KLON,NUA,3*KLEV+1) 
+
+#include "clesphys.h"
 !-----------------------------------------------------------------------
 
@@ -115 +121 @@
  & ZUPMH2O, ZUPMO3, ZZABLY  
 REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
 
 !-----------------------------------------------------------------------
@@ -331 +338 @@
 !      print *,'END OF LWU'
 
+
+
 !-----------------------------------------------------------------------