- Timestamp:
- 2017-12-18T15:24:31+01:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_merge_2017/NEMOGCM/NEMO/NST_SRC/agrif_oce.F90
r9058 r9116 46 46 47 47 ! Barotropic arrays used to store open boundary data during time-splitting loop: 48 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(: ) :: ubdy_w, vbdy_w, hbdy_w49 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(: ) :: ubdy_e, vbdy_e, hbdy_e50 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(: ) :: ubdy_n, vbdy_n, hbdy_n51 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(: ) :: ubdy_s, vbdy_s, hbdy_s48 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) :: ubdy_w, vbdy_w, hbdy_w 49 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) :: ubdy_e, vbdy_e, hbdy_e 50 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) :: ubdy_n, vbdy_n, hbdy_n 51 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) :: ubdy_s, vbdy_s, hbdy_s 52 52 53 53 … … 91 91 & tabspongedone_v (jpi,jpj), STAT = ierr(1) ) 92 92 93 ALLOCATE( ubdy_w( jpj), vbdy_w(jpj), hbdy_w(jpj), &94 & ubdy_e( jpj), vbdy_e(jpj), hbdy_e(jpj), &95 & ubdy_n(jpi ), vbdy_n(jpi), hbdy_n(jpi), &96 & ubdy_s(jpi ), vbdy_s(jpi), hbdy_s(jpi), STAT = ierr(2) )93 ALLOCATE( ubdy_w(nbghostcells,jpj), vbdy_w(nbghostcells,jpj), hbdy_w(nbghostcells,jpj), & 94 & ubdy_e(nbghostcells,jpj), vbdy_e(nbghostcells,jpj), hbdy_e(nbghostcells,jpj), & 95 & ubdy_n(jpi,nbghostcells), vbdy_n(jpi,nbghostcells), hbdy_n(jpi,nbghostcells), & 96 & ubdy_s(jpi,nbghostcells), vbdy_s(jpi,nbghostcells), hbdy_s(jpi,nbghostcells), STAT = ierr(2) ) 97 97 98 98 agrif_oce_alloc = MAXVAL(ierr)
Note: See TracChangeset
for help on using the changeset viewer.