Changeset 43 in lmdz_wrf for branches/LMDZ_WRFmeas/WRFV3/lmdz/physiq.F90

Timestamp:

Jul 23, 2014, 3:06:33 PM (10 years ago)

Author:

lfita

Message:

Removing 'zenang' print tests

File:

• branches/LMDZ_WRFmeas/WRFV3/lmdz/physiq.F90 (modified) (1 diff)

branches/LMDZ_WRFmeas/WRFV3/lmdz/physiq.F90

@@ -2168 +2168 @@
            zdtime=dtime*REAL(radpas) ! pas de temps du rayonnement (s)
            CALL zenang(zlongi,jH_cur,zdtime,rlat,rlon,rmu0,fract)
-           PRINT *,'  Lluis: radpas: ',radpas,' fract: ',fract(llp),  &
-             ' zdtime: ',zdtime,' jH_cur: ',jH_cur,' rmu0: ',rmu0(llp),&
-             ' dtime: ',dtime,' nbapp_rad: ',nbapp_rad
-           PRINT *,' Lluis @rlat@: ',rlat
-           PRINT *,' Lluis @rlon@: ',rlon
-           PRINT *,' Lluis @rmu0@: ',rmu0
-           PRINT *,' Lluis @fract@: ',fract
          ELSE
            CALL angle(zlongi, rlat, fract, rmu0)
          ENDIF
       ENDIF
-      PRINT *,'  Lluis zenang_an rlat: ',rlat(llp), ' rlon:',rlon(llp), &
-        ' rmu0: ',rmu0(llp),' fract: ',fract(llp),' jH_cur: ',jH_cur,  &
-        ' cycle_diurne: ',cycle_diurne
 
       if (mydebug) then