Changeset 5155 for branches/2012/dev_v3_4_STABLE_2012/NEMOGCM/NEMO/OPATAM_SRC/DYN/dynspg_flt_tam.F90

Timestamp:

2015-03-18T12:13:53+01:00 (9 years ago)

Author:

pabouttier

Message:

Add missing lbc_lnk_adj in tangent and adjoint routines of dyn_spg_flt_tam module; See Ticket #1267

File:

• branches/2012/dev_v3_4_STABLE_2012/NEMOGCM/NEMO/OPATAM_SRC/DYN/dynspg_flt_tam.F90 (modified) (4 diffs)

branches/2012/dev_v3_4_STABLE_2012/NEMOGCM/NEMO/OPATAM_SRC/DYN/dynspg_flt_tam.F90

@@ -167 +167 @@
       ELSE                       ! fixed volume  (add the surface pressure gradient + unweighted time stepping)
          !
+         CALL lbc_lnk(sshn_tl,'T',1.)
          DO jj = 2, jpjm1              ! Surface pressure gradient (now)
             DO ji = fs_2, fs_jpim1   ! vector opt.
@@ -568 +569 @@
             END DO
          END DO
+         CALL lbc_lnk_adj(sshn_ad,'T',1.)
       ENDIF
 
@@ -808 +810 @@
             gcx_tl (:,:) = zgcx_tlin (:,:)   ;   gcxb_tl(:,:) = zgcxb_tlin(:,:)
 
-            CALL sol_mat( istp ) ! for nitend, it is not called in _tan so it is still set to the nit000 case   
+            CALL sol_mat( istp ) ! for nitend, it is not called in _tan so it is still set to the nit000 case
             CALL dyn_spg_flt_tan( istp, indic )
 
@@ -945 +947 @@
          & )
       DEALLOCATE( zgcx_tlin , zgcx_tlout , zgcx_adin , zgcx_adout,  &
-         & zgcxb_tlin, zgcxb_tlout, zgcxb_adin, zgcxb_adout         ) 
+         & zgcxb_tlin, zgcxb_tlout, zgcxb_adin, zgcxb_adout         )
    END SUBROUTINE dyn_spg_flt_adj_tst