Changeset 5170

Timestamp:

2015-03-25T10:44:01+01:00 (9 years ago)

Author:

pabouttier

Message:

Add missing lbc_lnk adj and remove extra ones in dynspg_flt ; See Ticket #1500

Location:

branches/2012/dev_v3_4_STABLE_2012/NEMOGCM/NEMO/OPATAM_SRC

Files:

• DOM/istate_tam.F90 (modified) (3 diffs)
• DYN/dynspg_flt_tam.F90 (modified) (2 diffs)

branches/2012/dev_v3_4_STABLE_2012/NEMOGCM/NEMO/OPATAM_SRC/DOM/istate_tam.F90

@@ -41 +41 @@
    USE dotprodfld
    USE paresp
+   USE lbclnk
+   USE lbclnk_tam
 
    IMPLICIT NONE
@@ -71 +73 @@
       IF(lwp) WRITE(numout,*) 'istate_ini_tan : Initialization of the dynamics and tracers'
       IF(lwp) WRITE(numout,*) '~~~~~~~~~~'
+
+      CALL lbc_lnk( tsn_tl( :,:,:,1), 'T',  1. )
+      CALL lbc_lnk( tsn_tl(:,:,:,2 ), 'T',  1. )
+      CALL lbc_lnk( un_tl(  :,:,:  ), 'U', -1. )
+      CALL lbc_lnk( vn_tl(  :,:,:  ), 'V', -1. )
+      CALL lbc_lnk( sshn_tl(:,:    ), 'T',  1. )
       !
       rhd_tl  (:,:,:) = 0.0_wp
@@ -139 +147 @@
       rn2_ad  (:,:,:) = 0.0_wp
       rn2b_ad (:,:,:) = 0.0_wp
+      CALL lbc_lnk_adj( tsn_ad( :,:,:,1), 'T',  1. )
+      CALL lbc_lnk_adj( tsn_ad(:,:,:,2 ), 'T',  1. )
+      CALL lbc_lnk_adj( un_ad(  :,:,:  ), 'U', -1. )
+      CALL lbc_lnk_adj( vn_ad(  :,:,:  ), 'V', -1. )
+      CALL lbc_lnk_adj( sshn_ad(:,:    ), 'T',  1. )
       !
    END SUBROUTINE istate_init_adj

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.
@@ -569 +568 @@
             END DO
          END DO
-         CALL lbc_lnk_adj(sshn_ad,'T',1.)
       ENDIF