- Timestamp:
- Nov 14, 2019 6:15:31 AM (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/salsa_mod.f90
r4286 r4295 11470 11470 resorted = .FALSE. 11471 11471 grid = 's' 11472 tend = 0.0_wp 11472 11473 temp_array = 0.0_wp 11473 11474 temp_bin = 0.0_wp … … 11660 11661 ENDDO 11661 11662 ENDDO 11662 ENDDO 11663 ENDDO 11663 11664 IF ( .NOT. mask_surface(mid) ) THEN 11664 11665 DO i = 1, mask_size_l(mid,1) … … 11669 11670 ENDDO 11670 11671 ENDDO 11671 ELSE 11672 ELSE 11672 11673 DO i = 1, mask_size_l(mid,1) 11673 11674 DO j = 1, mask_size_l(mid,2) … … 11897 11898 CASE ( 's_BC', 's_DU', 's_NH', 's_NO', 's_OC', 's_SO4', 's_SS' ) 11898 11899 IF ( av == 0 ) THEN 11899 IF ( is_used( prtcl, TRIM( variable( 3:) ) ) ) THEN11900 found_index = get_index( prtcl, TRIM( variable( 3:) ) )11900 IF ( is_used( prtcl, TRIM( variable(9:) ) ) ) THEN 11901 found_index = get_index( prtcl, TRIM( variable(9:) ) ) 11901 11902 DO i = nxl, nxr 11902 11903 DO j = nys, nyn
Note: See TracChangeset
for help on using the changeset viewer.