New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 7911 for branches/2017/dev_r7881_no_wrk_alloc/NEMOGCM/NEMO/OPA_SRC/BDY/bdyini.F90 – NEMO

Ignore:
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:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/2017/dev_r7881_no_wrk_alloc/NEMOGCM/NEMO/OPA_SRC/BDY/bdyini.F90

    r7910 r7911  
    140140      INTEGER , POINTER  ::  nbi, nbj, nbr                 ! short cuts 
    141141      REAL(wp), POINTER  ::  flagu, flagv                  !    -   - 
    142       REAL(wp), POINTER, DIMENSION(:,:)       ::   pmask    ! pointer to 2D mask fields 
     142      REAL(wp), DIMENSION(jpi,jpj)       ::   pmask        ! 2D mask fields 
    143143      REAL(wp) ::   zefl, zwfl, znfl, zsfl                 ! local scalars 
    144144      INTEGER, DIMENSION (2)                  ::   kdimsz 
    … …  
    12411241         DO igrd = 1,jpbgrd  
    12421242            SELECT CASE( igrd ) 
    1243                CASE( 1 )   ;   pmask => umask   (:,:,1)   ;   i_offset = 0 
    1244                CASE( 2 )   ;   pmask => bdytmask(:,:)     ;   i_offset = 1 
    1245                CASE( 3 )   ;   pmask => zfmask  (:,:)     ;   i_offset = 0 
     1243               CASE( 1 )   ;   pmask = umask   (:,:,1)   ;   i_offset = 0 
     1244               CASE( 2 )   ;   pmask = bdytmask(:,:)     ;   i_offset = 1 
     1245               CASE( 3 )   ;   pmask = zfmask  (:,:)     ;   i_offset = 0 
    12461246            END SELECT  
    12471247            icount = 0 
    … …  
    12761276         DO igrd = 1, jpbgrd  
    12771277            SELECT CASE( igrd ) 
    1278                CASE( 1 )   ;   pmask => vmask (:,:,1)   ;   j_offset = 0 
    1279                CASE( 2 )   ;   pmask => zfmask(:,:)     ;   j_offset = 0 
    1280                CASE( 3 )   ;   pmask => bdytmask        ;   j_offset = 1 
     1278               CASE( 1 )   ;   pmask = vmask (:,:,1)   ;   j_offset = 0 
     1279               CASE( 2 )   ;   pmask = zfmask(:,:)     ;   j_offset = 0 
     1280               CASE( 3 )   ;   pmask = bdytmask        ;   j_offset = 1 
    12811281            END SELECT  
    12821282            icount = 0 
Note: See TracChangeset for help on using the changeset viewer.