Changeset 1354 for LMDZ4/trunk/libf/phylmd/ini_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/ini_undefSTD.F (modified) (2 diffs)

LMDZ4/trunk/libf/phylmd/ini_undefSTD.F

@@ -55 +55 @@
 c
        IF(MOD(itap,NINT(freq_outNMC(n)/dtime)).EQ.1.) THEN
-c
-c       print*,'n freq_ini=',n,itap,freq_outNMC(n)/dtime
-c
         DO k=1, nlevSTD
          DO i=1, klon
@@ -80 +77 @@
         ENDDO !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 !MOD(itap,NINT(freq_outNMC(n)/dtime)).EQ.1.
 c