Changeset 1053 for palm/trunk/SOURCE/write_3d_binary.f90
- Timestamp:
- Nov 13, 2012 5:11:03 PM (11 years ago)
- Location:
- palm/trunk
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk
- Property svn:mergeinfo changed
/palm/branches/hoffmann (added) merged: 989,994,999-1000,1005-1006,1012,1022,1048-1052
- Property svn:mergeinfo changed
-
palm/trunk/SOURCE
- Property svn:mergeinfo changed
/palm/branches/hoffmann/SOURCE (added) merged: 994,999-1000,1005-1006,1012,1022,1048-1052
- Property svn:mergeinfo changed
-
palm/trunk/SOURCE/write_3d_binary.f90
r1037 r1053 20 20 ! Current revisions: 21 21 ! ----------------- 22 ! 22 ! necessary expansions according to the two new prognostic equations (nr, qr) 23 ! of the two-moment cloud physics scheme: 24 ! +prr, prr_av, *, *_av, *s, *sws, *swst 23 25 ! 24 26 ! Former revisions: … … 110 112 ! 111 113 !-- Write arrays. 112 binary_version = '3. 2'114 binary_version = '3.3' 113 115 114 116 WRITE ( 14 ) binary_version … … 145 147 WRITE ( 14 ) 'pr_av '; WRITE ( 14 ) pr_av 146 148 ENDIF 149 IF ( ALLOCATED( prr ) ) THEN 150 WRITE ( 14 ) 'prr '; WRITE ( 14 ) prr 151 ENDIF 152 IF ( ALLOCATED( prr_av ) ) THEN 153 WRITE ( 14 ) 'prr_av '; WRITE ( 14 ) prr_av 154 ENDIF 147 155 IF ( ALLOCATED( precipitation_amount ) ) THEN 148 156 WRITE ( 14 ) 'precipitation_amount'; WRITE ( 14 ) precipitation_amount … … 166 174 WRITE ( 14 ) 'ql_av '; WRITE ( 14 ) ql_av 167 175 ENDIF 176 IF ( icloud_scheme == 0 ) THEN 177 WRITE ( 14 ) 'qr '; WRITE ( 14 ) qr 178 WRITE ( 14 ) 'nr '; WRITE ( 14 ) nr 179 IF ( ALLOCATED( qr_av ) ) THEN 180 WRITE ( 14 ) 'qr_av '; WRITE ( 14 ) qr_av 181 ENDIF 182 IF ( ALLOCATED( nr_av ) ) THEN 183 WRITE ( 14 ) 'nr_av '; WRITE ( 14 ) nr_av 184 ENDIF 185 WRITE ( 14 ) 'qrs '; WRITE ( 14 ) qrs 186 WRITE ( 14 ) 'qrsws '; WRITE ( 14 ) qrsws 187 WRITE ( 14 ) 'qrswst '; WRITE ( 14 ) qrswst 188 WRITE ( 14 ) 'nrs '; WRITE ( 14 ) nrs 189 WRITE ( 14 ) 'nrsws '; WRITE ( 14 ) nrsws 190 WRITE ( 14 ) 'nrswst '; WRITE ( 14 ) nrswst 191 ENDIF 168 192 ENDIF 169 193 WRITE ( 14 ) 'qs '; WRITE ( 14 ) qs
Note: See TracChangeset
for help on using the changeset viewer.