source: NEMO/branches/2020/dev_r12563_ASINTER-06_ABL_improvement/src/TOP/PISCES/P2Z/p2zsms.F90 @ 13891

Last change on this file since 13891 was 12377, checked in by acc, 17 months ago

The big one. Merging all 2019 developments from the option 1 branch back onto the trunk.

This changeset reproduces 2019/dev_r11943_MERGE_2019 on the trunk using a 2-URL merge
onto a working copy of the trunk. I.e.:

svn merge —ignore-ancestry \

svn+ssh://acc@forge.ipsl.jussieu.fr/ipsl/forge/projets/nemo/svn/NEMO/trunk \
svn+ssh://acc@forge.ipsl.jussieu.fr/ipsl/forge/projets/nemo/svn/NEMO/branches/2019/dev_r11943_MERGE_2019 ./

The —ignore-ancestry flag avoids problems that may otherwise arise from the fact that
the merge history been trunk and branch may have been applied in a different order but
care has been taken before this step to ensure that all applicable fixes and updates
are present in the merge branch.

The trunk state just before this step has been branched to releases/release-4.0-HEAD
and that branch has been immediately tagged as releases/release-4.0.2. Any fixes
or additions in response to tickets on 4.0, 4.0.1 or 4.0.2 should be done on
releases/release-4.0-HEAD. From now on future 'point' releases (e.g. 4.0.2) will
remain unchanged with periodic releases as needs demand. Note release-4.0-HEAD is a
transitional naming convention. Future full releases, say 4.2, will have a release-4.2
branch which fulfills this role and the first point release (e.g. 4.2.0) will be made
immediately following the release branch creation.

2020 developments can be started from any trunk revision later than this one.

  • Property svn:keywords set to Id
File size: 2.6 KB
Line 
1MODULE p2zsms
2   !!======================================================================
3   !!                         ***  MODULE p2zsms  ***
4   !! TOP :   Time loop of LOBSTER model
5   !!======================================================================
6   !! History :   1.0  !            M. Levy
7   !!             2.0  !  2007-12  (C. Ethe, G. Madec)  revised architecture
8   !!----------------------------------------------------------------------
9
10   !!----------------------------------------------------------------------
11   !!   p2zsms        :  Time loop of passive tracers sms
12   !!----------------------------------------------------------------------
13   USE oce_trc          !
14   USE trc
15   USE sms_pisces
16   USE p2zbio
17   USE p2zopt
18   USE p2zsed
19   USE p2zexp
20   USE trd_oce
21   USE trdtrc_oce
22   USE trdtrc
23   USE trdmxl_trc
24
25   IMPLICIT NONE
26   PRIVATE
27
28   PUBLIC   p2z_sms    ! called in p2zsms.F90
29
30   !!----------------------------------------------------------------------
31   !! NEMO/TOP 4.0 , NEMO Consortium (2018)
32   !! $Id$
33   !! Software governed by the CeCILL license (see ./LICENSE)
34   !!----------------------------------------------------------------------
35CONTAINS
36
37   SUBROUTINE p2z_sms( kt, Kmm, Krhs )
38      !!---------------------------------------------------------------------
39      !!                     ***  ROUTINE p2z_sms  ***
40      !!
41      !! ** Purpose :  Managment of the call to Biological sources and sinks
42      !!               routines of LOBSTER bio-model
43      !!
44      !! ** Method  : - ???
45      !! --------------------------------------------------------------------
46      INTEGER, INTENT( in ) ::   kt            ! ocean time-step index     
47      INTEGER, INTENT( in ) ::   Kmm, Krhs     ! ocean time level index     
48      !
49      INTEGER ::   jn   ! dummy loop index
50      !! --------------------------------------------------------------------
51      !
52      IF( ln_timing )   CALL timing_start('p2z_sms')
53      !
54      CALL p2z_opt( kt, Kmm       )      ! optical model
55      CALL p2z_bio( kt, Kmm, Krhs )      ! biological model
56      CALL p2z_sed( kt, Kmm, Krhs )      ! sedimentation model
57      CALL p2z_exp( kt, Kmm, Krhs )      ! export
58      !
59      IF( l_trdtrc ) THEN
60         DO jn = jp_pcs0, jp_pcs1
61           CALL trd_trc( tr(:,:,:,jn,Krhs), jn, jptra_sms, kt, Kmm )   ! save trends
62         END DO
63      END IF
64      !
65      IF ( lwm .AND. kt == nittrc000 ) CALL FLUSH    ( numonp )     ! flush output namelist PISCES
66      IF( ln_timing )   CALL timing_stop('p2z_sms')
67      !
68   END SUBROUTINE p2z_sms
69
70   !!======================================================================
71END MODULE p2zsms
Note: See TracBrowser for help on using the repository browser.