Changeset 3004 for palm/trunk/SOURCE/read_restart_data_mod.f90
- Timestamp:
- Apr 27, 2018 12:33:25 PM (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/read_restart_data_mod.f90
r3003 r3004 25 25 ! ----------------- 26 26 ! $Id$ 27 ! precipitation_rate_av removed 28 ! 29 ! 3003 2018-04-23 10:22:58Z Giersch 27 30 ! z_i is also read to use the last known inversion height from the 28 31 ! initial run as the first inversion height which is written into the … … 1522 1525 tmp_2d(nysf-nbgp:nynf+nbgp,nxlf-nbgp:nxrf+nbgp) 1523 1526 1524 CASE ( 'precipitation_rate_av' )1525 IF ( .NOT. ALLOCATED( precipitation_rate_av ) ) THEN1526 ALLOCATE( precipitation_rate_av(nysg:nyng,nxlg:nxrg) )1527 ENDIF1528 IF ( k == 1 ) READ ( 13 ) tmp_2d1529 precipitation_rate_av(nysc-nbgp:nync+nbgp, &1530 nxlc-nbgp:nxrc+nbgp) = &1531 tmp_2d(nysf-nbgp:nynf+nbgp,nxlf-nbgp:nxrf+nbgp)1532 1533 1527 CASE ( 'pt' ) 1534 1528 IF ( k == 1 ) READ ( 13 ) tmp_3d
Note: See TracChangeset
for help on using the changeset viewer.