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

Timestamp:

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

Author:

abarral

Message:

Put .h into modules

File:

• LMDZ6/branches/Amaury_dev/libf/phylmd/rrtm/lw.F90 (modified) (3 diffs)

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

@@ -142 +142 @@
 
 IF (LHOOK) CALL DR_HOOK('LW',0,ZHOOK_HANDLE)
-print *,'    LW: Avant LWU'
+PRINT *,'    LW: Avant LWU'
 CALL LWU &
  & (  KIDIA, KFDIA, KLON, KLEV,&
@@ -156 +156 @@
 !                ---------------------------------
 
-print *,'    LW: Avant LWBV'
+PRINT *,'    LW: Avant LWBV'
 CALL LWBV &
  & ( KIDIA, KFDIA, KLON , KLEV  , KMODE,&
@@ -169 +169 @@
 !                --------------------------------
 
-print *,'    LW: Avant LWC'
+PRINT *,'    LW: Avant LWC'
 CALL LWC &
  & ( KIDIA , KFDIA, KLON  , KLEV,&