Changeset 7397 for branches/2016/dev_NOC_CMCC_merge_2016/NEMOGCM/NEMO/OPA_SRC/BDY/bdytra.F90

Timestamp:

2016-11-30T15:13:05+01:00 (8 years ago)

Author:

lovato

Message:

#1810 - Merge with dev_NOC_2016

File:

• branches/2016/dev_NOC_CMCC_merge_2016/NEMOGCM/NEMO/OPA_SRC/BDY/bdytra.F90 (modified) (2 diffs)

branches/2016/dev_NOC_CMCC_merge_2016/NEMOGCM/NEMO/OPA_SRC/BDY/bdytra.F90

@@ -48 +48 @@
       INTEGER, INTENT(in) ::   kt   ! Main time step counter
       !
-      INTEGER                        :: ib_bdy, jn   ! Loop indeces
-      TYPE(ztrabdy), DIMENSION(jpts) :: zdta         ! Temporary data structure
+      INTEGER                        :: ib_bdy, jn, igrd   ! Loop indeces
+      TYPE(ztrabdy), DIMENSION(jpts) :: zdta               ! Temporary data structure
       !!----------------------------------------------------------------------
+      igrd = 1 
 
       DO ib_bdy=1, nb_bdy
@@ -63 +64 @@
             CASE('frs'         )   ;   CALL bdy_frs ( idx_bdy(ib_bdy),                tsa(:,:,:,jn), zdta(jn)%tra )
             CASE('specified'   )   ;   CALL bdy_spe ( idx_bdy(ib_bdy),                tsa(:,:,:,jn), zdta(jn)%tra )
-            CASE('neumann'     )   ;   CALL bdy_nmn ( idx_bdy(ib_bdy),                tsa(:,:,:,jn)               )
+            CASE('neumann'     )   ;   CALL bdy_nmn ( idx_bdy(ib_bdy), igrd         , tsa(:,:,:,jn)               )
             CASE('orlanski'    )   ;   CALL bdy_orl ( idx_bdy(ib_bdy), tsb(:,:,:,jn), tsa(:,:,:,jn), zdta(jn)%tra, ll_npo=.false. )
             CASE('orlanski_npo')   ;   CALL bdy_orl ( idx_bdy(ib_bdy), tsb(:,:,:,jn), tsa(:,:,:,jn), zdta(jn)%tra, ll_npo=.true. )