Changeset 1989 for LMDZ5/trunk/libf/phylmd/iniradia.F

Timestamp:

Mar 3, 2014, 10:57:40 AM (11 years ago)

Author:

Laurent Fairhead

Message:

Inclusion du code RRTM

---

Adding RRTM code

MPL

File:

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

LMDZ5/trunk/libf/phylmd/iniradia.F

@@ -21 +21 @@
 !         CALL suphel     ! initialiser constantes et parametres phys.
 !     print*,'Physiq: apres suphel '
-!        CALL SUINIT(klon,klev)
-!     print*,'iniradia: apres suinit '
+#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 '
+      CALL SURAYOLMD(pres(klev+1))  ! initialiser le rayonnement RRTM
+      print*,'iniradia: apres surayolmd '
+#endif
 
       RETURN