Changeset 2192 for LMDZ5/trunk/libf

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

Files:

• radlwsw_m.F90 (modified) (3 diffs)
• rrtm/radlsw.F90 (modified) (5 diffs)
• rrtm/sw1s.F90 (modified) (1 diff)

LMDZ5/trunk/libf/phylmd/radlwsw_m.F90

@@ -765 +765 @@
 ! RII0 = RIP0M15 ! =rip0m if Morcrette non-each time step call.
          RII0=solaire/zdist/zdist
-        print*,'+++ radlwsw: solaire ,RII0',solaire,RII0
+!print*,'+++ radlwsw: solaire ,RII0',solaire,RII0
 !  %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 ! Ancien appel a RECMWF (celui du cy25)
@@ -819 +819 @@
          ok_ade, ok_aie, flag_aerosol,flag_aerosol_strat) ! flags aerosols
             
-         print *,'RADLWSW: apres RECMWF'
+!        print *,'RADLWSW: apres RECMWF'
       if(lldebug) then
         CALL writefield_phy('zemtd_i',ZEMTD_i,klev+1)
@@ -954 +954 @@
          zsollwdown(i)= ZFLDN(i,1)
       ENDDO
-      print*,'OK2'
+!     print*,'OK2'
 
 ! extrait de SW_AR4

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