/[lmdze]/trunk/libf/dyn3d/diagedyn.f
ViewVC logotype

Diff of /trunk/libf/dyn3d/diagedyn.f

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 26 by guez, Fri Apr 18 14:45:53 2008 UTC revision 27 by guez, Thu Mar 25 14:29:07 2010 UTC
# Line 63  C Line 63  C
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
# Line 289  C Line 289  C
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))
Legend:
Removed from v.26  
changed lines
  Added in v.27
  ViewVC Help
Powered by ViewVC 1.1.21