Changeset 2192 for LMDZ5/trunk/libf/phylmd/rrtm

Timestamp:

Feb 3, 2015, 11:22:28 AM (10 years ago)

Author:

musat

Message:

Suppression print superflus

---

Deleting some superfluous prints

Location:

LMDZ5/trunk/libf/phylmd/rrtm

Files:

• radlsw.F90 (modified) (5 diffs)
• sw1s.F90 (modified) (1 diff)

LMDZ5/trunk/libf/phylmd/rrtm/radlsw.F90

@@ -1062 +1062 @@
 !                 ------------------------------------
 
-print *,'RADLSW: LPHYLIN, LRRTM',LPHYLIN, LRRTM
+!print *,'RADLSW: LPHYLIN, LRRTM',LPHYLIN, LRRTM
 IF (.NOT.LPHYLIN) THEN
   IF ( .NOT. LRRTM) THEN
@@ -1074 +1074 @@
      & 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)
@@ -1101 +1101 @@
     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,&
@@ -1111 +1111 @@
      & PTAU_LW,&
      & ZEMIT , PFLUX , PFLUC , ZTCLEAR )
-    print *,'RADLSW: apres CALL RRTM_RRTM_140GP'
+!   print *,'RADLSW: apres CALL RRTM_RRTM_140GP'
 
   ENDIF
@@ -1118 +1118 @@
   PFLUX(:,:,:)= 0.0_JPRB
   PFLUC(:,:,:)= 0.0_JPRB
-  print *,'RADLSW: ZEMIT,PFLUX et PFLUC = 0'
+! print *,'RADLSW: ZEMIT,PFLUX et PFLUC = 0'
 ENDIF
 

LMDZ5/trunk/libf/phylmd/rrtm/sw1s.F90

@@ -304 +304 @@
 
 ELSEIF (NSW == 6) THEN
-print *,'... dans SW1S: NSW=',NSW
+!print *,'... dans SW1S: NSW=',NSW
 
 !*         3.2   SIX SPECTRAL INTERVALS