Changeset 1353 for LMDZ4/branches


Ignore:
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:
3 edited

Legend:

Unmodified
Added
Removed

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

    r1350 r1353  
    5656       IF(MOD(itap,NINT(freq_outNMC(n)/dtime)).EQ.1.) THEN
    5757c
    58 c       print*,'n freq_ini=',n,itap,freq_outNMC(n)/dtime
    59 c
    6058        DO k=1, nlevSTD
    6159         DO i=1, klon
    … …  
    8078        ENDDO !k
    8179c
    82 c          if(n.EQ.1.AND.i.EQ.4513.AND.k.EQ.17) THEN
    83            if(n.EQ.1.AND.i.EQ.1128.AND.k.EQ.17) THEN
    84             print*,'itap rlon rlat tlevSTD=',itap,rlon(i),rlat(i),
    85      $tlevSTD(i,k)
    86            endif
    87 c
    8880       ENDIF !MOD(itap,NINT(freq_outNMC(n)/dtime)).EQ.1.
    8981c

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

    r1350 r1353  
    5858c
    5959       IF(MOD(itap,NINT(freq_outNMC(n)/dtime)).EQ.0) THEN
    60 c
    61 c      print*,'n freq_ini=',n,itap,freq_outNMC(n),missing_val
    62 c
    6360        DO k=1, nlevSTD
    6461         DO i=1, klon
    … …  
    116113           T2sumSTD(i,k,n)=missing_val
    117114          ENDIF !tnondef(i,k,n).NE.(freq_moyNMC(n))
    118 c
    119 c          if(n.EQ.1.AND.i.EQ.4513.AND.k.EQ.17) THEN
    120            if(n.EQ.1.AND.i.EQ.1128.AND.k.EQ.17) THEN
    121             print*,'itap rlon rlat tlevSTD=',itap,rlon(i),rlat(i),
    122      $tlevSTD(i,k)
    123            endif
    124 c
    125115         ENDDO !i
    126116        ENDDO !k

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

    r1350 r1353  
    6363c
    6464       IF(MOD(itap,NINT(freq_calNMC(n)/dtime)).EQ.0) THEN
    65 c
    66 c       print*,'n freq_cal=',n,itap,freq_calNMC(n)/dtime
    67 c
    6865        DO k=1, nlevSTD
    6966         DO i=1, klon
    … …  
    9087           v2sumSTD(i,k,n)=v2sumSTD(i,k,n)+v2STD(i,k)
    9188           T2sumSTD(i,k,n)=T2sumSTD(i,k,n)+T2STD(i,k)
    92 c
    93 c          if(n.EQ.1.AND.i.EQ.4513.AND.k.EQ.17) THEN
    94            if(n.EQ.1.AND.i.EQ.1128.AND.k.EQ.17) THEN
    95             print*,'itap rlon rlat tlevSTD=',itap,rlon(i),rlat(i),
    96      $tlevSTD(i,k)
    97            endif
    98 c
    9989          ENDIF
    10090         ENDDO !i
Note: See TracChangeset for help on using the changeset viewer.