Changeset 1354 for LMDZ4/trunk/libf/phylmd/undefSTD.F

Timestamp:

Apr 14, 2010, 11:48:47 AM (14 years ago)

Author:

musat

Message:

Ooops, forgot some prints
IM

File:

• LMDZ4/trunk/libf/phylmd/undefSTD.F (modified) (2 diffs)

LMDZ4/trunk/libf/phylmd/undefSTD.F

@@ -60 +60 @@
 c
        IF(MOD(itap,NINT(freq_calNMC(n)/dtime)).EQ.0) THEN
-c
-c       print*,'n freq_cal=',n,itap,freq_calNMC(n)/dtime
-c
         DO k=1, nlevSTD
          DO i=1, klon
@@ -87 +84 @@
            v2sumSTD(i,k,n)=v2sumSTD(i,k,n)+v2STD(i,k)
            T2sumSTD(i,k,n)=T2sumSTD(i,k,n)+T2STD(i,k)
-c
-c          if(n.EQ.1.AND.i.EQ.4513.AND.k.EQ.17) THEN
-           if(n.EQ.1.AND.i.EQ.1128.AND.k.EQ.17) THEN
-            print*,'itap rlon rlat tlevSTD=',itap,rlon(i),rlat(i),
-     $tlevSTD(i,k)
-           endif 
-c
           ENDIF 
          ENDDO !i