Changeset 5160 for LMDZ6/branches/Amaury_dev/libf/phylmd/rrtm/sw1s.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/sw1s.F90 (modified) (3 diffs)

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

@@ -191 +191 @@
 !   IKL = KLEV+1-JK
 !   DO JL = KIDIA,KFDIA
-!   print *,'Apres SWCLR,SWR RMU0 RMUE ',ZRMU0(JL,IKL),ZRMUE(JL,IKL)
+!   PRINT *,'Apres SWCLR,SWR RMU0 RMUE ',ZRMU0(JL,IKL),ZRMUE(JL,IKL)
 !   ENDDO
 ! ENDDO
@@ -303 +303 @@
 
 ELSEIF (NSW == 6) THEN
-!print *,'... dans SW1S: NSW=',NSW
+!PRINT *,'... dans SW1S: NSW=',NSW
 
 !*         3.2   SIX SPECTRAL INTERVALS
@@ -425 +425 @@
       PCU(JL,JK) = ZDIRF(JL) * RSUN(KNU)
 !WRITE(*,'("---> Dans SW1S:")')
-!print *,'===JL= ',jl
+!PRINT *,'===JL= ',jl
 !WRITE(*,'("ZR1",10E12.5)') (ZR(JL,1))
 !WRITE(*,'("ZR2",10E12.5)') (ZR(JL,2))