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

source: branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/TRA/traswp.F90 @ 2696

Last change on this file since 2696 was 2690, checked in by gm, 13 years ago

dynamic mem: #785 ; homogeneization of the coding style associated with dyn allocation
  • 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 , NEMO Consortium (2010)
17   !! $Id$
18   !! Software governed by the CeCILL licence     (NEMOGCM/NEMO_CeCILL.txt)
19   !!----------------------------------------------------------------------
20CONTAINS
21
22   SUBROUTINE tra_swap 
23      !!----------------------------------------------------------------------
24      !!                  ***  ROUTINE tra_swp  ***
25      !!                   
26      !! ** Purpose : Store temperature and salinity aaray into a 4D array
27      !!
28      !!----------------------------------------------------------------------
29      !
30      tsn(:,:,:,jp_tem) = tn(:,:,:)      ;      tsn(:,:,:,jp_sal) = sn(:,:,:)
31      tsb(:,:,:,jp_tem) = tb(:,:,:)      ;      tsb(:,:,:,jp_sal) = sb(:,:,:)
32      tsa(:,:,:,jp_tem) = ta(:,:,:)      ;      tsa(:,:,:,jp_sal) = sa(:,:,:)
33      !
34   END SUBROUTINE tra_swap
35
36   SUBROUTINE tra_unswap 
37      !!----------------------------------------------------------------------
38      !!                  ***  ROUTINE tra_unswap  ***
39      !!                   
40      !! ** Purpose : Store temperature and salinity aaray into a 4D array
41      !!
42      !!----------------------------------------------------------------------
43      !
44      tn(:,:,:) = tsn(:,:,:,jp_tem)      ;      sn(:,:,:) = tsn(:,:,:,jp_sal)
45      tb(:,:,:) = tsb(:,:,:,jp_tem)      ;      sb(:,:,:) = tsb(:,:,:,jp_sal)
46      ta(:,:,:) = tsa(:,:,:,jp_tem)      ;      sa(:,:,:) = tsa(:,:,:,jp_sal)
47      !
48   END SUBROUTINE tra_unswap
49
50   !!======================================================================
51END MODULE traswp
Note: See TracBrowser for help on using the repository browser.