Changeset 2113

Timestamp:

Sep 5, 2014, 12:17:34 PM (10 years ago)

Author:

acozic

Message:

Add test on iflag_rrtm

File:

• LMDZ5/trunk/libf/phylmd/iniradia.F90 (modified) (1 diff)

LMDZ5/trunk/libf/phylmd/iniradia.F90

@@ -19 +19 @@
   REAL pres(klev+1)
 
+  include "clesphys.h"
+
   ! CALL suphel     ! initialiser constantes et parametres phys.
   ! print*,'Physiq: apres suphel '
 #if CPP_RRTM
-  CALL suinit(klon, klev)
-  PRINT *, 'iniradia: apres suinit '
-  ! calcul des niveaux de pression de reference au bord des couches pour
-  ! l'intialisation des aerosols. Momentannement, on passe un point de
-  ! grille du profil de pression.
-  CALL surayolmd(pres(klev+1)) ! initialiser le rayonnement RRTM
-  PRINT *, 'iniradia: apres surayolmd '
+  if (iflag_rrtm .eq. 1) then 
+     CALL suinit(klon, klev)
+     PRINT *, 'iniradia: apres suinit '
+     ! calcul des niveaux de pression de reference au bord des couches pour
+     ! l'intialisation des aerosols. Momentannement, on passe un point de
+     ! grille du profil de pression.
+     CALL surayolmd(pres(klev+1)) ! initialiser le rayonnement RRTM
+     PRINT *, 'iniradia: apres surayolmd '
+  endif
 #endif