Changeset 702 for palm/trunk/SOURCE/user_read_restart_data.f90
- Timestamp:
- Mar 24, 2011 7:33:15 PM (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/user_read_restart_data.f90
r668 r702 7 7 ! Current revisions: 8 8 ! ----------------- 9 ! 10 ! nys-1, nyn+1, nxl-1, nxr+1 changed to nysg, nyng, nxlg, nxrg. 9 11 ! 10 12 ! Former revisions: … … 82 84 ! CASE ( 'u2_av' ) 83 85 ! IF ( .NOT. ALLOCATED( u2_av ) ) THEN 84 ! ALLOCATE( u2_av(nzb:nzt+1,nys -1:nyn+1,nxl-1:nxr+1) )86 ! ALLOCATE( u2_av(nzb:nzt+1,nysg:nyng,nxlg:nxrg) ) 85 87 ! ENDIF 86 88 ! IF ( k == 1 ) READ ( 13 ) tmp_3d 87 ! u2_av(:,nysc- 1:nync+1,nxlc-1:nxrc+1) = &88 ! tmp_3d(:,nysf- 1:nynf+1,nxlf-1:nxrf+1)89 ! u2_av(:,nysc-nbgp:nync+nbgp,nxlc-nbgp:nxrc+nbgp) = & 90 ! tmp_3d(:,nysf-nbgp:nynf+nbgp,nxlf-nbgp:nxrf+nbgp) 89 91 ! 90 92 ! CASE DEFAULT
Note: See TracChangeset
for help on using the changeset viewer.