Changeset 409
- Timestamp:
- Oct 15, 2002, 5:00:59 PM (22 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ.3.3/branches/rel-LF/libf/phylmd/diagphy.F
r387 r409 128 128 $ tit, pas, fs_bound, d_etp_tot, fq_bound, d_qt_tot 129 129 C 130 IF (iprt.ge.1) write(6,6668) 131 $ tit, pas, d_etp_tot+d_ec_tot-fs_bound, d_qt_tot-fq_bound 132 C 130 133 IF (iprt.ge.2) write(6,6667) 131 134 $ tit, pas, stops,stopl,ssols,ssoll,ssens,slat,evap_tot … … 134 137 return 135 138 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)) 138 142 139 143 end … … 194 198 C 195 199 C other (COMMON...) 196 C R G : gravity200 C RCPD, RCPV, .... 197 201 C 198 202 C J.L. Dufresne, July 2002 … … 293 297 C Cinetic Energy 294 298 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) 296 300 C Air enthalpy 297 301 zh_dair_col(i) = zh_dair_col(i) … … 377 381 IF (iprt.ge.2) THEN 378 382 WRITE(6,9000) tit,pas(idiag),d_qt,d_qw,d_ql,d_qs 379 9000 format(' Watter Mass Budget (kg/m2/s)',A15383 9000 format('Phys. Watter Mass Budget (kg/m2/s)',A15 380 384 $ ,1i6,10(1pE14.6)) 381 385 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)) 383 387 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)) 385 389 END IF 386 390 C
Note: See TracChangeset
for help on using the changeset viewer.