Changeset 73 for palm/trunk/SOURCE/write_3d_binary.f90
- Timestamp:
- Mar 20, 2007 8:33:14 AM (17 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/write_3d_binary.f90
r72 r73 4 4 ! Actual revisions: 5 5 ! ----------------- 6 ! +precipitation_amount, precipitation_rate_av, rif_wall, z0_av 6 ! +precipitation_amount, precipitation_rate_av, rif_wall, u_m_l, u_m_r, etc., 7 ! z0_av 7 8 ! 8 9 ! Former revisions: … … 169 170 ENDIF 170 171 WRITE ( 14 ) 'u_m '; WRITE ( 14 ) u_m 172 IF ( ALLOCATED( u_m_l ) ) THEN 173 WRITE ( 14 ) 'u_m_l '; WRITE ( 14 ) u_m_l 174 ENDIF 175 IF ( ALLOCATED( u_m_n ) ) THEN 176 WRITE ( 14 ) 'u_m_n '; WRITE ( 14 ) u_m_n 177 ENDIF 178 IF ( ALLOCATED( u_m_r ) ) THEN 179 WRITE ( 14 ) 'u_m_r '; WRITE ( 14 ) u_m_r 180 ENDIF 181 IF ( ALLOCATED( u_m_s ) ) THEN 182 WRITE ( 14 ) 'u_m_s '; WRITE ( 14 ) u_m_s 183 ENDIF 171 184 WRITE ( 14 ) 'us '; WRITE ( 14 ) us 172 185 WRITE ( 14 ) 'usws '; WRITE ( 14 ) usws … … 184 197 ENDIF 185 198 WRITE ( 14 ) 'v_m '; WRITE ( 14 ) v_m 199 IF ( ALLOCATED( v_m_l ) ) THEN 200 WRITE ( 14 ) 'v_m_l '; WRITE ( 14 ) v_m_l 201 ENDIF 202 IF ( ALLOCATED( v_m_n ) ) THEN 203 WRITE ( 14 ) 'v_m_n '; WRITE ( 14 ) v_m_n 204 ENDIF 205 IF ( ALLOCATED( v_m_r ) ) THEN 206 WRITE ( 14 ) 'v_m_r '; WRITE ( 14 ) v_m_r 207 ENDIF 208 IF ( ALLOCATED( v_m_s ) ) THEN 209 WRITE ( 14 ) 'v_m_s '; WRITE ( 14 ) v_m_s 210 ENDIF 186 211 IF ( moisture ) THEN 187 212 WRITE ( 14 ) 'vpt '; WRITE ( 14 ) vpt … … 202 227 ENDIF 203 228 WRITE ( 14 ) 'w_m '; WRITE ( 14 ) w_m 229 IF ( ALLOCATED( w_m_l ) ) THEN 230 WRITE ( 14 ) 'w_m_l '; WRITE ( 14 ) w_m_l 231 ENDIF 232 IF ( ALLOCATED( w_m_n ) ) THEN 233 WRITE ( 14 ) 'w_m_n '; WRITE ( 14 ) w_m_n 234 ENDIF 235 IF ( ALLOCATED( w_m_r ) ) THEN 236 WRITE ( 14 ) 'w_m_r '; WRITE ( 14 ) w_m_r 237 ENDIF 238 IF ( ALLOCATED( w_m_s ) ) THEN 239 WRITE ( 14 ) 'w_m_s '; WRITE ( 14 ) w_m_s 240 ENDIF 204 241 WRITE ( 14 ) 'z0 '; WRITE ( 14 ) z0 205 242 IF ( ALLOCATED( z0_av ) ) THEN
Note: See TracChangeset
for help on using the changeset viewer.