63 |
INTEGER imjmp1 |
INTEGER imjmp1 |
64 |
PARAMETER( imjmp1=iim*jjp1) |
PARAMETER( imjmp1=iim*jjp1) |
65 |
c Input variables |
c Input variables |
66 |
CHARACTER*15 tit |
CHARACTER(len=*), intent(in):: tit |
67 |
INTEGER iprt,idiag, idiag2 |
INTEGER iprt,idiag, idiag2 |
68 |
REAL dtime |
REAL dtime |
69 |
REAL vcov(ip1jm,llm),ucov(ip1jmp1,llm) ! vents covariants |
REAL vcov(ip1jm,llm),ucov(ip1jmp1,llm) ! vents covariants |
289 |
9001 format('Dyn3d. Enthalpy Budget (W/m2) ',A15,1i6,10(F8.2)) |
9001 format('Dyn3d. Enthalpy Budget (W/m2) ',A15,1i6,10(F8.2)) |
290 |
WRITE(6,9002) tit,pas(idiag), d_ec |
WRITE(6,9002) tit,pas(idiag), d_ec |
291 |
9002 format('Dyn3d. Cinetic Energy Budget (W/m2) ',A15,1i6,10(F8.2)) |
9002 format('Dyn3d. Cinetic Energy Budget (W/m2) ',A15,1i6,10(F8.2)) |
|
C WRITE(6,9003) tit,pas(idiag), ec_tot |
|
292 |
9003 format('Dyn3d. Cinetic Energy (W/m2) ',A15,1i6,10(E15.6)) |
9003 format('Dyn3d. Cinetic Energy (W/m2) ',A15,1i6,10(E15.6)) |
293 |
WRITE(6,9004) tit,pas(idiag), d_h_vcol+d_ec |
WRITE(6,9004) tit,pas(idiag), d_h_vcol+d_ec |
294 |
9004 format('Dyn3d. Total Energy Budget (W/m2) ',A15,1i6,10(F8.2)) |
9004 format('Dyn3d. Total Energy Budget (W/m2) ',A15,1i6,10(F8.2)) |