Changeset 163 for palm/trunk/SOURCE/init_3d_model.f90
- Timestamp:
- May 5, 2008 2:09:05 PM (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/init_3d_model.f90
r153 r163 980 980 981 981 ! 982 !-- Read binary data from restart file 983 WRITE (9,*) 'before read_3d_binary' 984 CALL local_flush( 9 ) 985 CALL read_3d_binary 986 WRITE (9,*) 'after read_3d_binary' 987 CALL local_flush( 9 ) 988 989 ! 982 990 !-- Calculate the initial volume flow at the right and north boundary 983 IF ( conserve_volume_flow ) THEN 991 IF ( conserve_volume_flow .AND. & 992 TRIM( initializing_actions ) == 'read_data_for_recycling' ) THEN 984 993 985 994 volume_flow_initial_l = 0.0 … … 1025 1034 ENDIF 1026 1035 1027 1028 !1029 !-- Read binary data from restart file1030 WRITE (9,*) 'before read_3d_binary'1031 CALL local_flush( 9 )1032 CALL read_3d_binary1033 WRITE (9,*) 'after read_3d_binary'1034 CALL local_flush( 9 )1035 1036 1036 1037 !
Note: See TracChangeset
for help on using the changeset viewer.