Changeset 5289 for branches/CNRS
- Timestamp:
- 2015-05-22T18:22:35+02:00 (9 years ago)
- Location:
- branches/CNRS/dev_r4826_PISCES_QUOTA/NEMOGCM/NEMO/TOP_SRC/PISCES
- Files:
-
- 5 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/CNRS/dev_r4826_PISCES_QUOTA/NEMOGCM/NEMO/TOP_SRC/PISCES/sms_pisces.F90
r5266 r5289 6 6 !! History : 1.0 ! 2000-02 (O. Aumont) original code 7 7 !! 3.2 ! 2009-04 (C. Ethe & NEMO team) style 8 !! 3.6 ! 2015-05 (O. Aumont) PISCES quota 8 9 !!---------------------------------------------------------------------- 9 10 #if defined key_pisces || defined key_pisces_reduced || defined key_pisces_quota 10 11 !!---------------------------------------------------------------------- 11 !! 'key_pisces ' PISCES model12 !! 'key_pisces*' PISCES model 12 13 !!---------------------------------------------------------------------- 13 14 USE par_oce … … 22 23 23 24 !!* Biological fluxes for light : variables shared by pisces & lobster 24 INTEGER , ALLOCATABLE, SAVE, DIMENSION(:,:) :: neln !: number of T-levels + 1 in the euphotic layer25 REAL(wp), ALLOCATABLE, SAVE, DIMENSION(:,:) :: heup !: euphotic layer depth26 REAL(wp), ALLOCATABLE, SAVE, DIMENSION(:,: ,:) :: etot !: par (photosynthetic available radiation)27 !28 REAL(wp), ALLOCATABLE, SAVE, DIMENSION(:,:) :: xksi !: LOBSTER : zooplakton closure29 ! !: PISCES : silicon dependant half saturation25 INTEGER , ALLOCATABLE, SAVE, DIMENSION(:,:) :: neln !: number of T-levels + 1 in the euphotic layer 26 REAL(wp), ALLOCATABLE, SAVE, DIMENSION(:,:) :: heup !: euphotic layer depth 27 REAL(wp), ALLOCATABLE, SAVE, DIMENSION(:,:) :: heup_01 !: Absolute euphotic layer depth 28 REAL(wp), ALLOCATABLE, SAVE, DIMENSION(:,:,:) :: etot !: par (photosynthetic available radiation) 29 REAL(wp), ALLOCATABLE, SAVE, DIMENSION(:,:) :: xksi !: LOBSTER : zooplakton closure 30 ! !: PISCES : silicon dependant half saturation 30 31 31 32 #if defined key_pisces || defined key_pisces_quota … … 177 178 ierr(:) = 0 178 179 !* Biological fluxes for light : shared variables for pisces & lobster 179 ALLOCATE( etot(jpi,jpj,jpk), neln(jpi,jpj), heup(jpi,jpj), xksi(jpi,jpj), STAT=ierr(1) ) 180 ALLOCATE( etot(jpi,jpj,jpk), neln(jpi,jpj), heup(jpi,jpj), & 181 & heup_01(jpi,jpj), xksi(jpi,jpj), STAT=ierr(1) ) 180 182 ! 181 183 #if defined key_pisces || defined key_pisces_quota -
branches/CNRS/dev_r4826_PISCES_QUOTA/NEMOGCM/NEMO/TOP_SRC/PISCES/trcini_pisces.F90
r5266 r5289 10 10 !! 2.0 ! 2007-12 (C. Ethe, G. Madec) from trcini.pisces.h90 11 11 !! 3.5 ! 2012-05 (C. Ethe) Merge PISCES-LOBSTER 12 !! 3.6 ! 2015-05 (O. Aumont) PISCES quota 12 13 !!---------------------------------------------------------------------- 13 14 #if defined key_pisces || defined key_pisces_reduced || defined key_pisces_quota 14 15 !!---------------------------------------------------------------------- 15 !! 'key_pisces ' PISCES bio-model16 !! 'key_pisces*' PISCES bio-model 16 17 !!---------------------------------------------------------------------- 17 18 !! trc_ini_pisces : PISCES biochemical model initialisation -
branches/CNRS/dev_r4826_PISCES_QUOTA/NEMOGCM/NEMO/TOP_SRC/PISCES/trcnam_pisces.F90
r5266 r5289 8 8 !! 1.0 ! 2003-08 (C. Ethe) module F90 9 9 !! 2.0 ! 2007-12 (C. Ethe, G. Madec) from trcnam.pisces.h90 10 !! 3.6 ! 2015-05 (O. Aumont) PISCES quota 10 11 !!---------------------------------------------------------------------- 11 12 #if defined key_pisces || defined key_pisces_reduced || defined key_pisces_quota 12 13 !!---------------------------------------------------------------------- 13 !! 'key_pisces ': PISCES bio-model14 !! 'key_pisces*' : PISCES bio-model 14 15 !!---------------------------------------------------------------------- 15 16 !! trc_nam_pisces : PISCES model namelist read -
branches/CNRS/dev_r4826_PISCES_QUOTA/NEMOGCM/NEMO/TOP_SRC/PISCES/trcsms_pisces.F90
r5266 r5289 6 6 !! History : 1.0 ! 2004-03 (O. Aumont) Original code 7 7 !! 2.0 ! 2007-12 (C. Ethe, G. Madec) F90 8 !! 3.6 ! 2015-05 (O. Aumont) PISCES quota 8 9 !!---------------------------------------------------------------------- 9 10 #if defined key_pisces || defined key_pisces_reduced || defined key_pisces_quota 10 11 !!---------------------------------------------------------------------- 11 !! 'key_pisces ' PISCES bio-model12 !! 'key_pisces*' PISCES bio-model 12 13 !!---------------------------------------------------------------------- 13 14 !! trcsms_pisces : Time loop of passive tracers sms -
branches/CNRS/dev_r4826_PISCES_QUOTA/NEMOGCM/NEMO/TOP_SRC/PISCES/trcwri_pisces.F90
r5266 r5289 5 5 !!====================================================================== 6 6 !! History : 1.0 ! 2009-05 (C. Ethe) Original code 7 !! 3.6 ! 2015-05 (O. Aumont) PISCES quota 7 8 !!---------------------------------------------------------------------- 8 9 #if defined key_top && defined key_iomput && ( defined key_pisces || defined key_pisces_reduced || defined key_pisces_quota) 9 10 !!---------------------------------------------------------------------- 10 !! 'key_pisces or key_pisces_reduced' PISCES model11 !! 'key_pisces*' PISCES model 11 12 !!---------------------------------------------------------------------- 12 13 !! trc_wri_pisces : outputs of concentration fields
Note: See TracChangeset
for help on using the changeset viewer.