Changeset 2789 for branches/2011/dev_r2787_LOCEAN3_TRA_TRP/NEMOGCM/NEMO/OPA_SRC/TRA/tranxt.F90

Timestamp:

2011-06-27T13:18:25+02:00 (13 years ago)

Author:

cetlod

Message:

Implementation of the merge of TRA/TRP : first guess, see ticket #842

File:

• branches/2011/dev_r2787_LOCEAN3_TRA_TRP/NEMOGCM/NEMO/OPA_SRC/TRA/tranxt.F90 (modified) (4 diffs)

branches/2011/dev_r2787_LOCEAN3_TRA_TRP/NEMOGCM/NEMO/OPA_SRC/TRA/tranxt.F90

@@ -42 +42 @@
    USE prtctl          ! Print control
    USE traqsr          ! penetrative solar radiation (needed for nksr)
-   USE traswp          ! swap array
    USE obc_oce 
 #if defined key_agrif
@@ -111 +110 @@
       CALL lbc_lnk( tsa(:,:,:,jp_sal), 'T', 1. )
       !
-#if defined key_obc || defined key_bdy || defined key_agrif
-      CALL tra_unswap
-#endif
-
 #if defined key_obc 
       IF( lk_obc )   CALL obc_tra( kt )  ! OBC open boundaries
@@ -123 +118 @@
 #if defined key_agrif
       CALL Agrif_tra                     ! AGRIF zoom boundaries
-#endif
-
-#if defined key_obc || defined key_bdy || defined key_agrif
-      CALL tra_swap
 #endif
  
@@ -155 +146 @@
 #if defined key_agrif
       ! Update tracer at AGRIF zoom boundaries
-      CALL tra_unswap
       IF( .NOT.Agrif_Root() )    CALL Agrif_Update_Tra( kt )      ! children only
-      CALL tra_swap
 #endif      
       !