Changeset 10957 for NEMO/branches/2019/dev_r10721_KERNEL-02_Storkey_Coward_IMMERSE_first_steps/src/OCE/TRA/tranxt.F90

Timestamp:

2019-05-10T12:26:38+02:00 (5 years ago)

Author:

davestorkey

Message:

2019/dev_r10721_KERNEL-02_Storkey_Coward_IMMERSE_first_steps : BDY module (including some removal of redundant code). Tested in AMM12 and ORCA1 (not full SETTE test at this stage).

File:

• NEMO/branches/2019/dev_r10721_KERNEL-02_Storkey_Coward_IMMERSE_first_steps/src/OCE/TRA/tranxt.F90 (modified) (3 diffs)

NEMO/branches/2019/dev_r10721_KERNEL-02_Storkey_Coward_IMMERSE_first_steps/src/OCE/TRA/tranxt.F90

@@ -64 +64 @@
 CONTAINS
 
-   SUBROUTINE tra_nxt( kt, Kbb, Kmm, Krhs )
+   SUBROUTINE tra_nxt( kt, Kbb, Kmm, Krhs, Kaa )
       !!----------------------------------------------------------------------
       !!                   ***  ROUTINE tranxt  ***
@@ -86 +86 @@
       !! ** Action  : - ts(Kbb) & ts(Kmm) ready for the next time step
       !!----------------------------------------------------------------------
-      INTEGER, INTENT(in) ::   kt    ! ocean time-step index
-      INTEGER, INTENT(in) ::   Kbb, Kmm, Krhs  ! time level indices
+      INTEGER, INTENT(in) ::   kt                   ! ocean time-step index
+      INTEGER, INTENT(in) ::   Kbb, Kmm, Krhs, Kaa  ! time level indices
       !!
       INTEGER  ::   ji, jj, jk, jn   ! dummy loop indices
@@ -110 +110 @@
       CALL lbc_lnk_multi( 'tranxt', ts(:,:,:,jp_tem,Krhs), 'T', 1., ts(:,:,:,jp_sal,Krhs), 'T', 1. )
       !
-      IF( ln_bdy )   CALL bdy_tra( kt )  ! BDY open boundaries
+      !! IMMERSE development : Following the general pattern for the new code we want to pass in the 
+      !!                       velocities to bdy_dyn as arguments so here we use "ts" even 
+      !!                       though we haven't converted the tracer names in the rest of tranxt.F90
+      !!                       because it will be completely rewritten. DS.
+      IF( ln_bdy )   CALL bdy_tra( kt, Kbb, ts, Kaa )  ! BDY open boundaries
  
       ! set time step size (Euler/Leapfrog)