New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
traswp.F90 in branches/DEV_r2006_merge_TRA_TRC/NEMO/OPA_SRC/TRA – NEMO

source: branches/DEV_r2006_merge_TRA_TRC/NEMO/OPA_SRC/TRA/traswp.F90 @ 2024

Last change on this file since 2024 was 2024, checked in by cetlod, 14 years ago

Merge of active and passive tracer advection/diffusion modules, see ticket:693
File size: 2.1 KB
Line 
1MODULE traswp
2   !!==============================================================================
3   !!                       ***  MODULE  traswp  ***
4   !! Ocean active tracers: swapping array
5   !!==============================================================================
6   USE par_oce
7   USE oce             ! ocean dynamics and active tracers
8
9   IMPLICIT NONE
10   PRIVATE
11
12   PUBLIC   tra_swap    ! routine called by step.F90
13   PUBLIC   tra_unswap    ! routine called by step.F90
14
15   !!----------------------------------------------------------------------
16   !!   OPA 9.0 , LOCEAN-IPSL (2005)
17   !! $Id: trasbc.F90 1739 2009-11-19 13:24:00Z rblod $
18   !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt)
19   !!----------------------------------------------------------------------
20
21CONTAINS
22
23   SUBROUTINE tra_swap 
24      !!----------------------------------------------------------------------
25      !!                  ***  ROUTINE tra_swp  ***
26      !!                   
27      !! ** Purpose : Store temperature and salinity aaray into a 4D array
28      !!
29      !!----------------------------------------------------------------------
30
31      tsn(:,:,:,jp_tem) = tn(:,:,:)      ;      tsn(:,:,:,jp_sal) = sn(:,:,:)
32      tsb(:,:,:,jp_tem) = tb(:,:,:)      ;      tsb(:,:,:,jp_sal) = sb(:,:,:)
33      tsa(:,:,:,jp_tem) = ta(:,:,:)      ;      tsa(:,:,:,jp_sal) = sa(:,:,:)
34
35   END SUBROUTINE tra_swap
36
37   SUBROUTINE tra_unswap 
38      !!----------------------------------------------------------------------
39      !!                  ***  ROUTINE tra_unswap  ***
40      !!                   
41      !! ** Purpose : Store temperature and salinity aaray into a 4D array
42      !!
43      !!----------------------------------------------------------------------
44
45      tn(:,:,:) = tsn(:,:,:,jp_tem)      ;      sn(:,:,:) = tsn(:,:,:,jp_sal)
46      tb(:,:,:) = tsb(:,:,:,jp_tem)      ;      sb(:,:,:) = tsb(:,:,:,jp_sal)
47      ta(:,:,:) = tsa(:,:,:,jp_tem)      ;      sa(:,:,:) = tsa(:,:,:,jp_sal)
48
49   END SUBROUTINE tra_unswap
50
51   !!======================================================================
52END MODULE traswp
Note: See TracBrowser for help on using the repository browser.