- Timestamp:
- 2014-01-17T17:56:32+01:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2013/dev_MERGE_2013/NEMOGCM/NEMO/OPA_SRC/BDY/bdy_oce.F90
r4333 r4354 120 120 REAL(wp) :: bdysurftot !: Lateral surface of unstructured open boundary 121 121 122 REAL(wp), POINTER, DIMENSION(:,:) :: pssh !:123 REAL(wp), POINTER, DIMENSION(:,:) :: phur !:124 REAL(wp), POINTER, DIMENSION(:,:) :: phvr !: Pointers for barotropic fields125 REAL(wp), POINTER, DIMENSION(:,:) :: pub2d, pun2d, pua2d !:126 REAL(wp), POINTER, DIMENSION(:,:) :: pvb2d, pvn2d, pva2d !:127 128 122 !!---------------------------------------------------------------------- 129 123 !! open boundary data variables … … 134 128 REAL(wp), ALLOCATABLE, DIMENSION(:,:,:), TARGET :: dta_global !: workspace for reading in global data arrays (unstr. bdy) 135 129 REAL(wp), ALLOCATABLE, DIMENSION(:,:,:), TARGET :: dta_global2 !: workspace for reading in global data arrays (struct. bdy) 130 !$AGRIF_DO_NOT_TREAT 136 131 TYPE(OBC_INDEX), DIMENSION(jp_bdy), TARGET :: idx_bdy !: bdy indices (local process) 137 132 TYPE(OBC_DATA) , DIMENSION(jp_bdy), TARGET :: dta_bdy !: bdy external data (local process) 138 133 !$AGRIF_END_DO_NOT_TREAT 139 134 !!---------------------------------------------------------------------- 140 135 !! NEMO/OPA 4.0 , NEMO Consortium (2011) … … 153 148 ALLOCATE( bdytmask(jpi,jpj) , bdyumask(jpi,jpj), bdyvmask(jpi,jpj), & 154 149 & STAT=bdy_oce_alloc ) 155 ! 150 ! 151 ! Initialize masks 152 bdytmask(:,:) = 1._wp 153 bdyumask(:,:) = 1._wp 154 bdyvmask(:,:) = 1._wp 155 ! 156 156 IF( lk_mpp ) CALL mpp_sum ( bdy_oce_alloc ) 157 157 IF( bdy_oce_alloc /= 0 ) CALL ctl_warn('bdy_oce_alloc: failed to allocate arrays.')
Note: See TracChangeset
for help on using the changeset viewer.