Changeset 409


Ignore:
Timestamp:
Oct 15, 2002, 5:00:59 PM (22 years ago)
Author:
lmdzadmin
Message:

correction bug JLD
IM/LF

File:
1 edited

Legend:

Unmodified
Added
Removed
  • LMDZ.3.3/branches/rel-LF/libf/phylmd/diagphy.F

    r387 r409  
    128128     $    tit, pas, fs_bound, d_etp_tot, fq_bound, d_qt_tot
    129129C
     130      IF (iprt.ge.1) write(6,6668)
     131     $    tit, pas, d_etp_tot+d_ec_tot-fs_bound, d_qt_tot-fq_bound
     132C
    130133      IF (iprt.ge.2) write(6,6667)
    131134     $    tit, pas, stops,stopl,ssols,ssoll,ssens,slat,evap_tot
     
    134137      return
    135138
    136  6666 format('Flux Budget ',a15,1i6,2f8.2,2(1pE13.5))
    137  6667 format('Boundary Flux ',a15,1i6,6f8.2,2(1pE13.5))
     139 6666 format('Phys. Flux Budget ',a15,1i6,2f8.2,2(1pE13.5))
     140 6667 format('Phys. Boundary Flux ',a15,1i6,6f8.2,2(1pE13.5))
     141 6668 format('Phys. Total Budget ',a15,1i6,f8.2,2(1pE13.5))
    138142
    139143      end
     
    194198C
    195199C     other (COMMON...)
    196 C     RG : gravity
     200C     RCPD, RCPV, ....
    197201C
    198202C J.L. Dufresne, July 2002
     
    293297C         Cinetic Energy
    294298          zec_col(i) =  zec_col(i)
    295      $        +0.5*SQRT(u(i,k)**2+v(i,k)**2)*zairm(i,k)
     299     $        +0.5*(u(i,k)**2+v(i,k)**2)*zairm(i,k)
    296300C         Air enthalpy
    297301          zh_dair_col(i) = zh_dair_col(i)
     
    377381      IF (iprt.ge.2) THEN
    378382        WRITE(6,9000) tit,pas(idiag),d_qt,d_qw,d_ql,d_qs
    379  9000   format('Watter Mass Budget (kg/m2/s)',A15
     383 9000   format('Phys. Watter Mass Budget (kg/m2/s)',A15
    380384     $      ,1i6,10(1pE14.6))
    381385        WRITE(6,9001) tit,pas(idiag), d_h_vcol
    382  9001   format('Enthalpy Budget (W/m2) ',A15,1i6,10(F8.2))
     386 9001   format('Phys. Enthalpy Budget (W/m2) ',A15,1i6,10(F8.2))
    383387        WRITE(6,9002) tit,pas(idiag), d_ec
    384  9002   format('Cinetic Energy Budget (W/m2) ',A15,1i6,10(F8.2))
     388 9002   format('Phys. Cinetic Energy Budget (W/m2) ',A15,1i6,10(F8.2))
    385389      END IF
    386390C
Note: See TracChangeset for help on using the changeset viewer.