Changeset 5159 for LMDZ6/branches/Amaury_dev/libf/phylmd/rrtm/surhcri.F90

Timestamp:

Aug 2, 2024, 9:58:25 PM (3 months ago)

Author:

abarral

Message:

Put dimensions.h and paramet.h into modules

File:

• LMDZ6/branches/Amaury_dev/libf/phylmd/rrtm/surhcri.F90 (modified) (1 diff)

LMDZ6/branches/Amaury_dev/libf/phylmd/rrtm/surhcri.F90

@@ -2 +2 @@
       SUBROUTINE SURHCRI(KULOUT)
 !-----------------------------------------------------------------------
-!
+
 !**** *SURHCRI * - COMPUTATION OF THE CRTITICAL RELATIVE HUMIDITY
 !                  PROFILE FOR SMITH'S CONDENSATION SCHEME.
-!
+
 !**   Interface.
 !     ----------
 !        *CALL* *SURHCRI*
-!
+
 !-----------------------------------------------------------------------
-!
+
 ! -   ARGUMENTS D'ENTREE./INPUT ARGUMENTS.
 !     ------------------------------------
-!
+
 !-----------------------------------------------------------------------
-!
+
 ! -   ARGUMENTS IMPLICITES.
 !     ---------------------
-!
+
 ! COMMON /YOMPHY/
 ! COMMON /YOMPHY0/
-!
+
 !*
 !-----------------------------------------------------------------------
-!
+
 !     Auteur.
 !     -------
 !         05-03, Luc Gerard (from Ph. Lopez acrhcri)
-!
+
 !     Modifications.
 !     --------------
 !         06-10, nettoyage - R. Brozkova
 !-----------------------------------------------------------------------
-!
+
 USE PARKIND1  ,ONLY : JPIM     ,JPRB
 USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
-!
+
 USE YOMPHY0   , ONLY : RHCRIT1, RHCRIT2, RETAMIN, GRHCMOD, RHCRI ,NRHCRI 
 USE YOMDIM    , ONLY : NFLEVG