Changeset 72 for palm/trunk/SOURCE/write_3d_binary.f90
- Timestamp:
- Mar 19, 2007 8:20:46 AM (17 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/write_3d_binary.f90
r51 r72 4 4 ! Actual revisions: 5 5 ! ----------------- 6 ! + rif_wall6 ! +precipitation_amount, precipitation_rate_av, rif_wall, z0_av 7 7 ! 8 8 ! Former revisions: … … 29 29 USE arrays_3d 30 30 USE averaging 31 USE cloud_parameters 31 32 USE control_parameters 32 33 USE cpulog … … 93 94 WRITE ( 14 ) 'pr_av '; WRITE ( 14 ) pr_av 94 95 ENDIF 96 IF ( ALLOCATED( precipitation_amount ) ) THEN 97 WRITE ( 14 ) 'precipitation_amount'; WRITE ( 14 ) precipitation_amount 98 ENDIF 99 IF ( ALLOCATED( precipitation_rate_av ) ) THEN 100 WRITE ( 14 ) 'precipitation_rate_a'; WRITE ( 14 ) & 101 precipitation_rate_av 102 ENDIF 95 103 WRITE ( 14 ) 'pt '; WRITE ( 14 ) pt 96 104 IF ( ALLOCATED( pt_av ) ) THEN … … 195 203 WRITE ( 14 ) 'w_m '; WRITE ( 14 ) w_m 196 204 WRITE ( 14 ) 'z0 '; WRITE ( 14 ) z0 205 IF ( ALLOCATED( z0_av ) ) THEN 206 WRITE ( 14 ) 'z0_av '; WRITE ( 14 ) z0_av 207 ENDIF 197 208 198 209 WRITE ( 14 ) 'cross_linecolors '; WRITE ( 14 ) cross_linecolors
Note: See TracChangeset
for help on using the changeset viewer.