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.
sedsfc.F90 in NEMO/branches/2019/dev_r10721_KERNEL-02_Storkey_Coward_IMMERSE_first_steps/src/TOP/PISCES/SED – NEMO

source: NEMO/branches/2019/dev_r10721_KERNEL-02_Storkey_Coward_IMMERSE_first_steps/src/TOP/PISCES/SED/sedsfc.F90 @ 10975

Last change on this file since 10975 was 10975, checked in by acc, 5 years ago

2019/dev_r10721_KERNEL-02_Storkey_Coward_IMMERSE_first_steps : Finish converting all TOP routines and knock-on effects of these conversions. Fully SETTE tested (SETTE tests 1-6 and 9). This completes the first stage conversion of TRA and TOP but need to revisit and pass ts and tr arrays through the argument lists where appropriate.
  • Property svn:keywords set to Id
File size: 2.7 KB
Line 
1MODULE sedsfc
2   !!======================================================================
3   !!              ***  MODULE  sedsfc  ***
4   !!    Sediment : Data at sediment surface
5   !!=====================================================================
6   !! * Modules used
7   USE sed     ! sediment global variable
8   USE sedarr
9   USE seddta
10
11   PUBLIC sed_sfc
12
13   !! $Id$
14CONTAINS
15
16   SUBROUTINE sed_sfc( kt, Kbb )
17      !!---------------------------------------------------------------------
18      !!                  ***  ROUTINE sed_sfc ***
19      !!
20      !! ** Purpose :  Give data from sediment model to tracer model
21      !!
22      !!
23      !!   History :
24      !!        !  06-04 (C. Ethe)  Orginal code
25      !!----------------------------------------------------------------------
26      !!* Arguments
27      INTEGER, INTENT(in) ::  kt              ! time step
28      INTEGER, INTENT(in) ::  Kbb             ! time index
29
30      ! * local variables
31      INTEGER :: ji, jj, ikt     ! dummy loop indices
32
33      !------------------------------------------------------------------------
34      ! reading variables
35
36      IF( ln_timing )  CALL timing_start('sed_sfc')
37
38      CALL unpack_arr ( jpoce, trc_data(1:jpi,1:jpj,1), iarroce(1:jpoce), pwcp(1:jpoce,1,jwalk) )
39      CALL unpack_arr ( jpoce, trc_data(1:jpi,1:jpj,2), iarroce(1:jpoce), pwcp(1:jpoce,1,jwdic) )
40      CALL unpack_arr ( jpoce, trc_data(1:jpi,1:jpj,3), iarroce(1:jpoce), pwcp(1:jpoce,1,jwno3) )
41      CALL unpack_arr ( jpoce, trc_data(1:jpi,1:jpj,4), iarroce(1:jpoce), pwcp(1:jpoce,1,jwpo4) )
42      CALL unpack_arr ( jpoce, trc_data(1:jpi,1:jpj,5), iarroce(1:jpoce), pwcp(1:jpoce,1,jwoxy) )
43      CALL unpack_arr ( jpoce, trc_data(1:jpi,1:jpj,6), iarroce(1:jpoce), pwcp(1:jpoce,1,jwsil) )
44      CALL unpack_arr ( jpoce, trc_data(1:jpi,1:jpj,7), iarroce(1:jpoce), pwcp(1:jpoce,1,jwnh4) )
45      CALL unpack_arr ( jpoce, trc_data(1:jpi,1:jpj,8), iarroce(1:jpoce), pwcp(1:jpoce,1,jwfe2) )
46
47
48      DO jj = 1,jpj
49         DO ji = 1, jpi
50            ikt = mbkt(ji,jj)
51            IF ( tmask(ji,jj,ikt) == 1 ) THEN
52               tr(ji,jj,ikt,jptal,Kbb) = trc_data(ji,jj,1)
53               tr(ji,jj,ikt,jpdic,Kbb) = trc_data(ji,jj,2)
54               tr(ji,jj,ikt,jpno3,Kbb) = trc_data(ji,jj,3) * 7.625
55               tr(ji,jj,ikt,jppo4,Kbb) = trc_data(ji,jj,4) * 122.
56               tr(ji,jj,ikt,jpoxy,Kbb) = trc_data(ji,jj,5)
57               tr(ji,jj,ikt,jpsil,Kbb) = trc_data(ji,jj,6)
58               tr(ji,jj,ikt,jpnh4,Kbb) = trc_data(ji,jj,7) * 7.625
59               tr(ji,jj,ikt,jpfer,Kbb) = trc_data(ji,jj,8)
60            ENDIF
61         ENDDO
62      ENDDO
63
64      IF( ln_timing )  CALL timing_stop('sed_sfc')
65
66   END SUBROUTINE sed_sfc
67
68END MODULE sedsfc
Note: See TracBrowser for help on using the repository browser.