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.
trcsms_pisces.F90 in branches/2017/dev_r7881_HPC09_ZDF/NEMOGCM/NEMO/TOP_SRC/PISCES – NEMO

source: branches/2017/dev_r7881_HPC09_ZDF/NEMOGCM/NEMO/TOP_SRC/PISCES/trcsms_pisces.F90 @ 7953

Last change on this file since 7953 was 7646, checked in by timgraham, 7 years ago

Merge of dev_merge_2016 into trunk. UPDATE TO ARCHFILES NEEDED for XIOS2.
LIM_SRC_s/limrhg.F90 to follow in next commit due to change of kind (I'm unable to do it in this commit).
Merged using the following steps:

1) svn merge --reintegrate ​svn+ssh://forge.ipsl.jussieu.fr/ipsl/forge/projets/nemo/svn/trunk .
2) Resolve minor conflicts in sette.sh and namelist_cfg for ORCA2LIM3 (due to a change in trunk after branch was created)
3) svn commit
4) svn switch ​svn+ssh://forge.ipsl.jussieu.fr/ipsl/forge/projets/nemo/svn/trunk
5) svn merge ​svn+ssh://forge.ipsl.jussieu.fr/ipsl/forge/projets/nemo/svn/branches/2016/dev_merge_2016 .
6) At this stage I checked out a clean copy of the branch to compare against what is about to be committed to the trunk.
6) svn commit #Commit code to the trunk

In this commit I have also reverted a change to Fcheck_archfile.sh which was causing problems on the Paris machine.
  • Property svn:keywords set to Id
File size: 2.2 KB
Line 
1MODULE trcsms_pisces
2   !!======================================================================
3   !!                         ***  MODULE trcsms_pisces  ***
4   !! TOP :   PISCES Source Minus Sink manager
5   !!======================================================================
6   !! History :   1.0  !  2004-03 (O. Aumont) Original code
7   !!             2.0  !  2007-12  (C. Ethe, G. Madec)  F90
8   !!----------------------------------------------------------------------
9   !!   trcsms_pisces        :  Time loop of passive tracers sms
10   !!----------------------------------------------------------------------
11   USE par_pisces
12   USE sms_pisces
13   USE p4zsms
14   USE p2zsms
15
16   IMPLICIT NONE
17   PRIVATE
18
19   PUBLIC   trc_sms_pisces    ! called in trcsms.F90
20   !!----------------------------------------------------------------------
21   !! NEMO/TOP 3.3 , NEMO Consortium (2010)
22   !! $Id$
23   !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt)
24   !!----------------------------------------------------------------------
25
26CONTAINS
27
28      !!----------------------------------------------------------------------
29      !!                   ***  ROUTINE trc_ini_pisces ***
30      !!
31      !! ** Purpose :   Initialisation of the PISCES biochemical model
32      !!----------------------------------------------------------------------
33
34
35   SUBROUTINE trc_sms_pisces( kt )
36      !!---------------------------------------------------------------------
37      !!                     ***  ROUTINE trc_sms_pisces  ***
38      !!
39      !! ** Purpose :   Managment of the call to Biological sources and sinks
40      !!                routines of PISCES or LOBSTER bio-model
41      !!
42      !!---------------------------------------------------------------------
43      !
44      INTEGER, INTENT( in ) ::   kt      ! ocean time-step index     
45      !!---------------------------------------------------------------------
46      !
47      IF( ln_p4z .OR. ln_p5z ) THEN  ;   CALL p4z_sms( kt )   !  PISCES
48      ELSE                           ;   CALL p2z_sms( kt )   !  LOBSTER
49      ENDIF
50
51      !
52   END SUBROUTINE trc_sms_pisces
53
54   !!======================================================================
55END MODULE trcsms_pisces 
Note: See TracBrowser for help on using the repository browser.