Changeset 5160 for LMDZ6/branches/Amaury_dev/libf/phylmd/rrtm/swclr.F90

Timestamp:

Aug 3, 2024, 2:56:58 PM (7 weeks ago)

Author:

abarral

Message:

Put .h into modules

File:

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

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

@@ -229 +229 @@
 ! MPLFH : ZTRAY N'EST PAS INITIALISE !!!!! A REVOIR (MPL)
       ZTRAY= PRAYL(JL) * PDSIG(JL,JK)
-!     print *,'>>>>>>> swclr: ZTRAY ',ZTRAY
+!     PRINT *,'>>>>>>> swclr: ZTRAY ',ZTRAY
       ZDENB = ZTRAY + PTAUAZ(JL,JK)*(1.0_JPRB-PPIZAZ(JL,JK)*ZFF)
       ZRATIO=ZTRAY/ZDENB