Changeset 7911 for branches/2017/dev_r7881_no_wrk_alloc/NEMOGCM/CONFIG/TEST_CASES/WAD/MY_SRC/bdyini.F90

Timestamp:

2017-04-13T17:13:42+02:00 (7 years ago)

Author:

timgraham

Message:

Minor bug fixes with pointers in bdy and also remove wrk_alloc calls in test cases

File:

• branches/2017/dev_r7881_no_wrk_alloc/NEMOGCM/CONFIG/TEST_CASES/WAD/MY_SRC/bdyini.F90 (modified) (3 diffs)

branches/2017/dev_r7881_no_wrk_alloc/NEMOGCM/CONFIG/TEST_CASES/WAD/MY_SRC/bdyini.F90

@@ -151 +151 @@
       INTEGER :: com_east_b, com_west_b, com_south_b, com_north_b  ! Flags for boundaries receiving
       INTEGER :: iw_b(4), ie_b(4), is_b(4), in_b(4)                ! Arrays for neighbours coordinates
-      REAL(wp), POINTER, DIMENSION(:,:)       ::   zfmask  ! temporary fmask array excluding coastal boundary condition (shlat)
+      REAL(wp), DIMENSION(jpi,jpj)            ::   zfmask  ! temporary fmask array excluding coastal boundary condition (shlat)
       !!
       CHARACTER(LEN=1)                     ::   ctypebdy   !     -        - 
@@ -1217 +1217 @@
       ! For the flagu/flagv calculation below we require a version of fmask without
       ! the land boundary condition (shlat) included:
-      CALL wrk_alloc(jpi,jpj,  zfmask ) 
       DO ij = 2, jpjm1
          DO ii = 2, jpim1
@@ -1345 +1344 @@
       !--------
       IF( nb_bdy>0 )   DEALLOCATE( nbidta, nbjdta, nbrdta )
-      !
-      CALL wrk_dealloc(jpi,jpj,   zfmask ) 
       !
       IF( nn_timing == 1 )   CALL timing_stop('bdy_segs')