Changeset 2026 for palm/trunk/SOURCE/data_output_profiles.f90
- Timestamp:
- Oct 18, 2016 10:27:02 AM (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/data_output_profiles.f90
r2001 r2026 20 20 ! Current revisions: 21 21 ! ----------------- 22 ! 22 ! Formatting adjustment 23 23 ! 24 24 ! Former revisions: … … 164 164 !-- runs, has a negative value 165 165 DO i = 1, dopr_n 166 IF ( dopr_initial_index(i) /= 0 ) THEN167 nc_stat = NF90_PUT_VAR( id_set_pr, id_var_time_pr,&168 (/ -coupling_start_time /), &166 IF ( dopr_initial_index(i) /= 0 ) THEN 167 nc_stat = NF90_PUT_VAR( id_set_pr, id_var_time_pr, & 168 (/ -coupling_start_time /), & 169 169 start = (/ 1 /), count = (/ 1 /) ) 170 170 CALL netcdf_handle_error( 'data_output_profiles', 329 )
Note: See TracChangeset
for help on using the changeset viewer.