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

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

@@ -1064 +1064 @@
 !                 ------------------------------------
 
-!print *,'RADLSW: LPHYLIN, LRRTM',LPHYLIN, LRRTM
+!PRINT *,'RADLSW: LPHYLIN, LRRTM',LPHYLIN, LRRTM
 IF (.NOT.LPHYLIN) THEN
   IF ( .NOT. LRRTM) THEN
@@ -1076 +1076 @@
      & ZEMIT , PFLUX , PFLUC &
      & )  
-!   print *,'RADLSW: apres CALL LW'
+!   PRINT *,'RADLSW: apres CALL LW'
     IF(LLDEBUG) THEN
     call writefield_phy('radlsw_flux1',PFLUX(:,1,:),klev+1)
@@ -1103 +1103 @@
     ENDDO
 
-!   print *,'RADLSW: avant CALL RRTM_RRTM_140GP,PAP=',PAP(1,:)
+!   PRINT *,'RADLSW: avant CALL RRTM_RRTM_140GP,PAP=',PAP(1,:)
     CALL RRTM_RRTM_140GP &
      & ( KIDIA , KFDIA , KLON  , KLEV,&
@@ -1113 +1113 @@
      & PTAU_LW,&
      & ZEMIT , PFLUX , PFLUC , ZTCLEAR )
-!   print *,'RADLSW: apres CALL RRTM_RRTM_140GP'
+!   PRINT *,'RADLSW: apres CALL RRTM_RRTM_140GP'
 
   ENDIF
@@ -1120 +1120 @@
   PFLUX(:,:,:)= 0.0_JPRB
   PFLUC(:,:,:)= 0.0_JPRB
-! print *,'RADLSW: ZEMIT,PFLUX et PFLUC = 0'
+! PRINT *,'RADLSW: ZEMIT,PFLUX et PFLUC = 0'
 ENDIF