source: trunk/NEMO/TOP_SRC/SMS/p4zint.F @ 186

CDIR$ LIST
      SUBROUTINE p4zint(kt)
#if defined key_passivetrc && defined key_trc_pisces
CCC
CCC
CCC       ROUTINE p4zint : PISCES MODEL
CCC       *****************************
CCC
CC
CC   PURPOSE :
CC   ---------
CC           *P4ZINT* INTERPOLATION AND COMPUTATION OF 
CC                    VARIOUS ACCESSORY FIELDS
CC   INPUT :
CC   -----
CC      argument
CC              kt              : time step
CC
CC   EXTERNAL :
CC   ----------
CC          NONE
CC
CC   MODIFICATIONS:
CC   --------------
CC      original      : 2004    O. Aumont
CC ----------------------------------------------------------------
CC parameters and commons
CC ======================
CDIR$ NOLIST
      USE oce_trc
      USE trp_trc
      USE sms
      IMPLICIT NONE
CDIR$ LIST
CC-----------------------------------------------------------------
CC------
CC local declarations
CC ==================
C
      INTEGER kt
      INTEGER ji, jj
      INTEGER iman
      INTEGER nspyr,nvit1t,nvit2t
      REAL zpdtan, zman, zpdtmo, zdemi
      REAL zt
C
C
      zpdtan = raass / rdt
      nspyr  = nint(zpdtan)
      zman   = 12.
      iman   = 12
      zpdtmo = zpdtan / zman
      zdemi  = zpdtmo / 2.
      zt     = ( float ( kt) + zdemi) / zpdtmo
      
C  recherche de l'indice des enregistrements
C  du modele dynamique encadrant le pas de temps kt.
C  --------------------------------------------------
C
      xtvit = zt - float(int ( zt))
      nvit1t = int (zt)
      nvit2t = nvit1t+1
      nvit1t = MOD ( nvit1t, iman)
      IF ( nvit1t .EQ. 0 ) nvit1t = iman
      nvit2t = MOD ( nvit2t, iman)
      IF ( nvit2t .EQ. 0 ) nvit2t = iman
C
C Interpolation of dust deposition
C --------------------------------
C
         dust(:,:) = (1.-xtvit)*dustmo(:,:,nvit1t)
     $            +xtvit*dustmo(:,:,nvit2t)
C
C
C Computation of phyto and zoo metabolic rate
C -------------------------------------------
C

         Tgfunc(:,:,:) = exp(0.063913*tn(:,:,:))
C
C      Computation of the silicon dependant half saturation
C      constant for silica uptake
C       ---------------------------------------------------
C
        do ji=1,jpi
          do jj=1,jpj
              xksimax(ji,jj)=
     &          max(xksimax(ji,jj),(1.+7.*trn(ji,jj,1,jpsil)**2
     &          /(xksi2*xksi2+trn(ji,jj,1,jpsil)**2))*1E-6)
          end do
        end do
C
        if (mod(kt,nspyr).eq.0) then
           xksi=xksimax
           xksimax=0.
        endif
C
#endif
C
      RETURN
      END