Changeset 354 for palm/trunk/SOURCE/write_3d_binary.f90
- Timestamp:
- Jul 13, 2009 1:14:25 PM (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/write_3d_binary.f90
r198 r354 139 139 WRITE ( 14 ) 'qsws_m '; WRITE ( 14 ) qsws_m 140 140 ENDIF 141 IF ( ALLOCATED( qsws_av ) ) THEN 142 WRITE ( 14 ) 'qsws_av '; WRITE ( 14 ) qsws_av 143 ENDIF 141 144 WRITE ( 14 ) 'qswst '; WRITE ( 14 ) qswst 142 145 IF ( timestep_scheme(1:5) /= 'runge' ) THEN … … 182 185 IF ( timestep_scheme(1:5) /= 'runge' ) THEN 183 186 WRITE ( 14 ) 'shf_m '; WRITE ( 14 ) shf_m 187 ENDIF 188 IF ( ALLOCATED( shf_av ) ) THEN 189 WRITE ( 14 ) 'shf_av '; WRITE ( 14 ) shf_av 184 190 ENDIF 185 191 IF ( ALLOCATED( spectrum_x ) ) THEN
Note: See TracChangeset
for help on using the changeset viewer.