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/nemo_v3_3_beta/NEMOGCM/NEMO/OPA_SRC/TRA – NEMO

source: branches/nemo_v3_3_beta/NEMOGCM/NEMO/OPA_SRC/TRA/traswp.F90 @ 2281

Last change on this file since 2281 was 2281, checked in by smasson, 13 years ago

set proper svn properties to all files...

  • Property svn:keywords set to Id
File size: 2.1 KB
Line 
1MODULE traswp
2   !!==============================================================================
3   !!                       ***  MODULE  traswp  ***
4   !! Ocean active tracers: swapping array
5   !!==============================================================================
6   USE par_oce         ! ocean parameters
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   !! NEMO/OPA 3.3 , LOCEAN-IPSL (2010)
17   !! $Id$
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.