Changeset 3767 for palm/trunk/SOURCE/ocean_mod.f90
- Timestamp:
- Feb 27, 2019 8:18:02 AM (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/ocean_mod.f90
r3719 r3767 25 25 ! ----------------- 26 26 ! $Id$ 27 ! unused variable for file index and tmp_2d removed from rrd-subroutine parameter 28 ! list 29 ! 30 ! 3719 2019-02-06 13:10:18Z kanani 27 31 ! Changed log_point to log_point_s, otherwise this overlaps with 28 32 ! 'all progn.equations' cpu measurement. … … 1864 1868 !> This routine reads the respective restart data for the ocean module. 1865 1869 !------------------------------------------------------------------------------! 1866 SUBROUTINE ocean_rrd_local( i, k, nxlf, nxlc, nxl_on_file, nxrf, nxrc,&1870 SUBROUTINE ocean_rrd_local( k, nxlf, nxlc, nxl_on_file, nxrf, nxrc, & 1867 1871 nxr_on_file, nynf, nync, nyn_on_file, nysf, & 1868 nysc, nys_on_file, tmp_ 2d, tmp_3d, found )1872 nysc, nys_on_file, tmp_3d, found ) 1869 1873 1870 1874 USE averaging, & … … 1882 1886 IMPLICIT NONE 1883 1887 1884 INTEGER(iwp) :: i !<1885 1888 INTEGER(iwp) :: k !< 1886 1889 INTEGER(iwp) :: nxlc !< … … 1899 1902 LOGICAL, INTENT(OUT) :: found 1900 1903 1901 REAL(wp), DIMENSION(nys_on_file-nbgp:nyn_on_file+nbgp,nxl_on_file-nbgp:nxr_on_file+nbgp) :: tmp_2d !<1902 1904 REAL(wp), DIMENSION(nzb:nzt+1,nys_on_file-nbgp:nyn_on_file+nbgp,nxl_on_file-nbgp:nxr_on_file+nbgp) :: tmp_3d !< 1903 1905
Note: See TracChangeset
for help on using the changeset viewer.