Changeset 1257 for palm/trunk/SOURCE/run_control.f90
- Timestamp:
- Nov 8, 2013 3:18:40 PM (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/run_control.f90
r1037 r1257 20 20 ! Current revisions: 21 21 ! ----------------- 22 ! 22 ! output format for theta* changed to avoid output of ***** 23 23 ! 24 24 ! Former revisions: … … 126 126 &'------------------'// & 127 127 &'RUN ITER. HH:MM:SS.SS DT(E) UMAX VMAX WMAX U', & 128 &'* W* THETA* Z_I ENERG. DISTENERG DIVOLD DIV', &129 &' NEW UMAX(KJI) VMAX(KJI) WMAX(KJI) ADVECX ADVECY', &130 &' MGCYC'/&128 &'* W* THETA* Z_I ENERG. DISTENERG DIVOLD ', & 129 &' DIVNEW UMAX(KJI) VMAX(KJI) WMAX(KJI) ADVECX ADVEC', & 130 &'Y MGCYC'/ & 131 131 &'----------------------------------------------------------------', & 132 132 &'----------------------------------------------------------------', & 133 133 &'----------------------------------------------------------------', & 134 &'----- ')134 &'---------') 135 135 101 FORMAT (I3,1X,I6,1X,A8,F3.2,1X,F8.4,A1,1X,F8.4,A1,F8.4,A1,F8.4,2X,F5.3,2X, & 136 136 F4.2, & 137 2X, F6.3,2X,F6.0,1X,4(E10.3,1X),3(3(I4),1X),F8.3,1X,F8.3,5X,I3)137 2X,E10.3,2X,F6.0,1X,4(E10.3,1X),3(3(I4),1X),F8.3,1X,F8.3,5X,I3) 138 138 139 139 END SUBROUTINE run_control
Note: See TracChangeset
for help on using the changeset viewer.