Changeset 14385 for NEMO/branches/2021/dev_r14383_PISCES_NEWDEV_PISCO/src/TOP/PISCES/P4Z/p4zint.F90

Timestamp:

2021-02-03T16:03:34+01:00 (3 years ago)

Author:

cetlod

Message:

dev_r11708_aumont_PISCES_QUOTA : merge with the trunk

File:

• NEMO/branches/2021/dev_r14383_PISCES_NEWDEV_PISCO/src/TOP/PISCES/P4Z/p4zint.F90 (modified) (4 diffs)

NEMO/branches/2021/dev_r14383_PISCES_NEWDEV_PISCO/src/TOP/PISCES/P4Z/p4zint.F90

@@ -1 +1 @@
 MODULE p4zint
-   !!======================================================================
+   !!=========================================================================
    !!                         ***  MODULE p4zint  ***
    !! TOP :   PISCES interpolation and computation of various accessory fields
-   !!======================================================================
+   !!=========================================================================
    !! History :   1.0  !  2004-03 (O. Aumont) Original code
    !!             2.0  !  2007-12  (C. Ethe, G. Madec)  F90
@@ -38 +38 @@
       !
       INTEGER  :: ji, jj                 ! dummy loop indices
-      REAL(wp) :: zvar                   ! local variable
+      REAL(wp) :: zrum, zcodel, zargu, zvar
       !!---------------------------------------------------------------------
       !
@@ -45 +45 @@
       ! Computation of phyto and zoo metabolic rate
       ! -------------------------------------------
-      tgfunc (:,:,:) = EXP( 0.063913 * ts(:,:,:,jp_tem,Kmm) )
-      tgfunc2(:,:,:) = EXP( 0.07608  * ts(:,:,:,jp_tem,Kmm) )
+      ! Generic temperature dependence (Eppley, 1972)
+      tgfunc (:,:,:) = EXP( 0.0631 * ts(:,:,:,jp_tem,Kmm) )
+      ! Temperature dependence of mesozooplankton (Buitenhuis et al. (2005))
+      tgfunc2(:,:,:) = EXP( 0.0761 * ts(:,:,:,jp_tem,Kmm) )
+
 
       ! Computation of the silicon dependant half saturation  constant for silica uptake
-      ! ---------------------------------------------------
+      ! This is based on an old study by Pondaven et al. (1998)
+      ! --------------------------------------------------------------------------------
       DO_2D( 1, 1, 1, 1 )
          zvar = tr(ji,jj,1,jpsil,Kbb) * tr(ji,jj,1,jpsil,Kbb)
@@ -55 +59 @@
       END_2D
       !
+      ! At the end of each year, the half saturation constant for silica is 
+      ! updated as this is based on the highest concentration reached over 
+      ! the year
+      ! -------------------------------------------------------------------
       IF( nday_year == nyear_len(1) ) THEN
          xksi   (:,:) = xksimax(:,:)
          xksimax(:,:) = 0._wp
       ENDIF
+      !
+      ! compute the day length depending on latitude and the day
+      ! Astronomical parameterization taken from HAMOCC3
+      zrum = REAL( nday_year - 80, wp ) / REAL( nyear_len(1), wp )
+      zcodel = ASIN(  SIN( zrum * rpi * 2._wp ) * SIN( rad * 23.5_wp )  )
+
+      ! day length in hours
+      strn(:,:) = 0.
+      DO jj = 1, jpj
+         DO ji = 1, jpi
+            zargu = TAN( zcodel ) * TAN( gphit(ji,jj) * rad )
+            zargu = MAX( -1., MIN(  1., zargu ) )
+            strn(ji,jj) = MAX( 0.0, 24. - 2. * ACOS( zargu ) / rad / 15. )
+         END DO
+      END DO
       !
       IF( ln_timing )   CALL timing_stop('p4z_int')