Changeset 5160 for LMDZ6/branches/Amaury_dev/libf/phylmd/rrtm/gppref.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/gppref.F90 (modified) (1 diff)

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

@@ -134 +134 @@
 IF (LVERTFE) THEN
   DO JLEV=1,KFLEV
-!   print *,'GPPREF: LVERTFE KFLEV KSTART KPROF JLEV',LVERTFE,KFLEV,KSTART,KPROF,JLEV
+!   PRINT *,'GPPREF: LVERTFE KFLEV KSTART KPROF JLEV',LVERTFE,KFLEV,KSTART,KPROF,JLEV
     PRESF(KSTART:KPROF,JLEV)=VAF(JLEV)+VBF(JLEV)*PRESH(KSTART:KPROF,KFLEV)  
   ENDDO