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

Timestamp:

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

Author:

musat

Message:

Ooops, forgot some prints
IM

Location:

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

Files:

• ini_undefSTD.F (modified) (2 diffs)
• moy_undefSTD.F (modified) (2 diffs)
• undefSTD.F (modified) (2 diffs)

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

@@ -56 +56 @@
        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 +78 @@
         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

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

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

@@ -63 +63 @@
 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
@@ -90 +87 @@
            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