Changeset 1353 for LMDZ4/branches/LMDZ4V5.0-dev/libf/phylmd/moy_undefSTD.F

Timestamp:

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

Author:

musat

Message:

Ooops, forgot some prints
IM

File:

• LMDZ4/branches/LMDZ4V5.0-dev/libf/phylmd/moy_undefSTD.F (modified) (2 diffs)

LMDZ4/branches/LMDZ4V5.0-dev/libf/phylmd/moy_undefSTD.F

@@ -58 +58 @@
 c
        IF(MOD(itap,NINT(freq_outNMC(n)/dtime)).EQ.0) THEN
-c
-c      print*,'n freq_ini=',n,itap,freq_outNMC(n),missing_val
-c
         DO k=1, nlevSTD
          DO i=1, klon
@@ -116 +113 @@
            T2sumSTD(i,k,n)=missing_val
           ENDIF !tnondef(i,k,n).NE.(freq_moyNMC(n))
-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
          ENDDO !i
         ENDDO !k