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.
trcstp.F90 in branches/2011/dev_LOCEAN_2011/NEMOGCM/NEMO/TOP_SRC – NEMO

source: branches/2011/dev_LOCEAN_2011/NEMOGCM/NEMO/TOP_SRC/trcstp.F90 @ 2977

Last change on this file since 2977 was 2977, checked in by cetlod, 13 years ago

Add in branch 2011/dev_LOCEAN_2011 changes from 2011/dev_r2787_PISCES_improvment, 2011/dev_r2787_LOCEAN_offline_fldread and 2011/dev_r2787_LOCEAN3_TRA_TRP branches, see ticket #877
  • Property svn:keywords set to Id
File size: 4.4 KB
Line 
1MODULE trcstp
2   !!======================================================================
3   !!                       ***  MODULE trcstp  ***
4   !! Time-stepping    : time loop of opa for passive tracer
5   !!======================================================================
6   !! History :  1.0  !  2004-03  (C. Ethe)  Original
7   !!----------------------------------------------------------------------
8#if defined key_top
9   !!----------------------------------------------------------------------
10   !!   trc_stp      : passive tracer system time-stepping
11   !!----------------------------------------------------------------------
12   USE oce_trc          ! ocean dynamics and active tracers variables
13   USE trc
14   USE trctrp           ! passive tracers transport
15   USE trcsms           ! passive tracers sources and sinks
16   USE prtctl_trc       ! Print control for debbuging
17   USE trcdia
18   USE trcwri
19   USE trcrst
20   USE trdmod_trc_oce
21   USE trdmld_trc
22   USE iom
23   USE in_out_manager
24
25   IMPLICIT NONE
26   PRIVATE
27
28   PUBLIC   trc_stp    ! called by step
29
30   !! * Substitutions
31#  include "domzgr_substitute.h90"
32   !!----------------------------------------------------------------------
33   !! NEMO/TOP 3.3 , NEMO Consortium (2010)
34   !! $Id$
35   !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt)
36   !!----------------------------------------------------------------------
37CONTAINS
38
39   SUBROUTINE trc_stp( kt )
40      !!-------------------------------------------------------------------
41      !!                     ***  ROUTINE trc_stp  ***
42      !!                     
43      !! ** Purpose : Time loop of opa for passive tracer
44      !!
45      !! ** Method  :
46      !!              Compute the passive tracers trends
47      !!              Update the passive tracers
48      !!-------------------------------------------------------------------
49      INTEGER, INTENT( in ) ::  kt  ! ocean time-step index
50      INTEGER               ::  jk  !
51      CHARACTER (len=25)    ::  charout
52      !!-------------------------------------------------------------------
53      !
54      IF( kt == nit000 ) THEN
55                               CALL iom_close( numrtr )     ! close input  passive tracers restart file
56         IF( lk_trdmld_trc  )  CALL trd_mld_trc_init        ! trends: Mixed-layer
57      ENDIF
58      !
59      IF( lk_vvl ) THEN                              ! update ocean volume due to ssh temporal evolution
60         DO jk = 1, jpk
61            cvol(:,:,jk) = e1e2t(:,:) * fse3t(:,:,jk) * tmask(:,:,jk)
62         END DO
63         IF( lk_degrad )  cvol(:,:,:) = cvol(:,:,:) * facvol(:,:,:)      ! degrad option: reduction by facvol
64         areatot     = glob_sum( cvol(:,:,:) )
65      ENDIF
66      !   
67
68      IF( kt == nit000 ) THEN
69                               CALL iom_close( numrtr )     ! close input  passive tracers restart file
70         IF( lk_trdmld_trc  )  CALL trd_mld_trc_init        ! trends: Mixed-layer
71      ENDIF
72      !
73      IF( MOD( kt - 1 , nn_dttrc ) == 0 ) THEN      ! only every nn_dttrc time step
74         !
75         IF(ln_ctl) THEN
76            WRITE(charout,FMT="('kt =', I4,'  d/m/y =',I2,I2,I4)") kt, nday, nmonth, nyear
77            CALL prt_ctl_trc_info(charout)
78         ENDIF
79         !
80         tra(:,:,:,:) = 0.e0
81         !
82                                   CALL trc_rst_opn( kt )       ! Open tracer restart file
83         IF( lk_iomput ) THEN  ;   CALL trc_wri    ( kt )       ! output of passive tracers with iom I/O manager
84         ELSE                  ;   CALL trc_dia    ( kt )       ! output of passive tracers with old I/O manager
85         ENDIF
86                                   CALL trc_sms( kt )           ! tracers: sinks and sources
87                                   CALL trc_trp( kt )           ! transport of passive tracers
88         IF( lrst_trc )            CALL trc_rst_wri( kt )       ! write tracer restart file
89         IF( lk_trdmld_trc  )      CALL trd_mld_trc( kt )       ! trends: Mixed-layer
90         !
91      ENDIF
92
93   END SUBROUTINE trc_stp
94
95#else
96   !!----------------------------------------------------------------------
97   !!   Default key                                     NO passive tracers
98   !!----------------------------------------------------------------------
99CONTAINS
100   SUBROUTINE trc_stp( kt )        ! Empty routine
101      WRITE(*,*) 'trc_stp: You should not have seen this print! error?', kt
102   END SUBROUTINE trc_stp
103#endif
104
105   !!======================================================================
106END MODULE trcstp
Note: See TracBrowser for help on using the repository browser.