- Timestamp:
- 2020-03-11T16:02:54+01:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/dev_r11708_aumont_PISCES_QUOTA/src/TOP/PISCES/P4Z/p4zint.F90
r12349 r12537 1 1 MODULE p4zint 2 !!====================================================================== 2 !!========================================================================= 3 3 !! *** MODULE p4zint *** 4 4 !! TOP : PISCES interpolation and computation of various accessory fields 5 !!====================================================================== 5 !!========================================================================= 6 6 !! History : 1.0 ! 2004-03 (O. Aumont) Original code 7 7 !! 2.0 ! 2007-12 (C. Ethe, G. Madec) F90 … … 43 43 ! Computation of phyto and zoo metabolic rate 44 44 ! ------------------------------------------- 45 ! Generic temperature dependence (Eppley, 1972) 45 46 tgfunc (:,:,:) = EXP( 0.063913 * tsn(:,:,:,jp_tem) ) 47 ! Temperature dependence of mesozooplankton (Buitenhuis et al. (2005)) 46 48 tgfunc2(:,:,:) = EXP( 0.07608 * tsn(:,:,:,jp_tem) ) 49 ! Temperature dependence of picophytoplankton (Stawiarsky et al., 2016) 47 50 tgfunc3(:,:,:) = EXP( 0.0825 * tsn(:,:,:,jp_tem) ) 48 51 49 52 ! Computation of the silicon dependant half saturation constant for silica uptake 50 ! --------------------------------------------------- 53 ! This is based on an old study by Pondaven et al. (1998) 54 ! -------------------------------------------------------------------------------- 51 55 DO ji = 1, jpi 52 56 DO jj = 1, jpj … … 56 60 END DO 57 61 ! 62 ! At the end of each year, the half saturation constant for silica is 63 ! updated as this is based on the highest concentration reached over 64 ! the year 65 ! ------------------------------------------------------------------- 58 66 IF( nday_year == nyear_len(1) ) THEN 59 67 xksi (:,:) = xksimax(:,:)
Note: See TracChangeset
for help on using the changeset viewer.