source: branches/dev_001_GM/NEMO/TOP_SRC/PISCES_SMS/p4zprg.F @ 772

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

dev_001_GM - change the name of cpp key to key_top, key_lobster, key_pisces, key_kriest and the corresponding lk_

  • Property svn:eol-style set to native
  • Property svn:executable set to *
  • Property svn:keywords set to Author Date Id Revision
File size: 2.6 KB
Line 
1
2CCC $Header$ 
3CCC  TOP 1.0 , LOCEAN-IPSL (2005) 
4C This software is governed by CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 
5C ---------------------------------------------------------------------------
6CDIR$ LIST
7       SUBROUTINE p4zprg(kt)
8CCC---------------------------------------------------------------------
9CCC
10CCC           ROUTINE p4zprg : PISCES MODEL
11CCC           *****************************
12CCC
13CCC  PURPOSE :
14CCC  ---------
15CCC     Call Biological sources and sinks subroutines
16CCC
17CC   INPUT :
18CC   -----
19CC      argument
20CC              ktask           : task identificator
21CC              kt              : time step
22CC      common
23CC              all the common defined in opa
24CC
25CC
26CC   OUTPUT :                   : no
27CC   ------
28CC
29CC   WORKSPACE :
30CC   ---------
31CC
32CC   EXTERNAL :
33CC   --------
34CC      p4zche, p4zint, p4zlys, p4zbio, p4zsed, p4zflx
35CC
36CC   MODIFICATIONS:
37CC   --------------
38CC      original  : O. AUMONT (2004)
39CC----------------------------------------------------------------------
40CC parameters and commons
41CC ======================
42CDIR$ NOLIST
43      USE trp_trc
44      USE sms
45CC
46      USE oce_trc
47      USE lbclnk
48      USE lib_mpp
49CC
50      IMPLICIT NONE
51CDIR$ LIST
52CC----------------------------------------------------------------------
53CC local declarations
54CC ==================
55
56      INTEGER kt
57#if defined key_top && defined key_pisces
58      INTEGER jnt, jn
59
60C
61C this part is without macrotasking coding
62C
63C Call an intermediate routine that in turns, calls chemistry
64C and another routine on a daily basis
65C -----------------------------------------------------------
66C
67      CALL p4zslow(kt)
68
69C......................................................................
70C
71C Compute soft tissue production (POC)
72C ------------------------------------
73
74       do jnt=1,nrdttrc
75C
76         CALL p4zbio
77
78C
79C......................................................................
80C
81C Compute soft tissue remineralisation
82C ------------------------------------
83C
84         CALL p4zsed
85
86C
87          trb=trn
88        END DO
89C
90C......................................................................
91C
92C Compute CaCO3 saturation
93C ------------------------
94C
95      CALL p4zlys
96
97C
98C......................................................................
99C
100C Compute surface fluxes
101C ----------------------
102C
103      CALL p4zflx
104
105
106      DO jn=1 , jptra
107        CALL lbc_lnk(trn(:,:,:,jn), 'T', 1. )
108        CALL lbc_lnk(trb(:,:,:,jn), 'T', 1. )
109        CALL lbc_lnk(tra(:,:,:,jn), 'T', 1. )
110      END DO
111
112C
113C......................................................................
114C
115#endif
116C
117      RETURN
118      END
Note: See TracBrowser for help on using the repository browser.