Changeset 5289


Ignore:
Timestamp:
2015-05-22T18:22:35+02:00 (5 years ago)
Author:
aumont
Message:

various bug fixes and updates of PISCES quota

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  
    66   !! History :   1.0  !  2000-02 (O. Aumont) original code 
    77   !!             3.2  !  2009-04 (C. Ethe & NEMO team) style 
     8   !!             3.6  !  2015-05  (O. Aumont) PISCES quota 
    89   !!---------------------------------------------------------------------- 
    910#if defined key_pisces || defined key_pisces_reduced || defined key_pisces_quota  
    1011   !!---------------------------------------------------------------------- 
    11    !!   'key_pisces'                                         PISCES model 
     12   !!   'key_pisces*'                                         PISCES model 
    1213   !!---------------------------------------------------------------------- 
    1314   USE par_oce 
     
    2223 
    2324   !!*  Biological fluxes for light : variables shared by pisces & lobster 
    24    INTEGER , ALLOCATABLE, SAVE, DIMENSION(:,:)   ::  neln  !: number of T-levels + 1 in the euphotic layer 
    25    REAL(wp), ALLOCATABLE, SAVE, DIMENSION(:,:)   ::  heup  !: euphotic layer depth 
    26    REAL(wp), ALLOCATABLE, SAVE, DIMENSION(:,:,:) ::  etot  !: par (photosynthetic available radiation) 
    27    ! 
    28    REAL(wp), ALLOCATABLE, SAVE, DIMENSION(:,:)   ::  xksi  !:  LOBSTER : zooplakton closure 
    29    !                                                       !:  PISCES  : silicon dependant half saturation 
     25   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 
    3031 
    3132#if defined key_pisces || defined key_pisces_quota  
     
    177178      ierr(:) = 0 
    178179      !*  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) ) 
    180182      ! 
    181183#if defined key_pisces || defined key_pisces_quota 
  • branches/CNRS/dev_r4826_PISCES_QUOTA/NEMOGCM/NEMO/TOP_SRC/PISCES/trcini_pisces.F90

    r5266 r5289  
    1010   !!             2.0  !  2007-12  (C. Ethe, G. Madec) from trcini.pisces.h90 
    1111   !!             3.5  !  2012-05  (C. Ethe) Merge PISCES-LOBSTER 
     12   !!             3.6  !  2015-05  (O. Aumont) PISCES quota 
    1213   !!---------------------------------------------------------------------- 
    1314#if defined key_pisces || defined key_pisces_reduced || defined key_pisces_quota 
    1415   !!---------------------------------------------------------------------- 
    15    !!   'key_pisces'                                       PISCES bio-model 
     16   !!   'key_pisces*'                                       PISCES bio-model 
    1617   !!---------------------------------------------------------------------- 
    1718   !! trc_ini_pisces   : PISCES biochemical model initialisation 
  • branches/CNRS/dev_r4826_PISCES_QUOTA/NEMOGCM/NEMO/TOP_SRC/PISCES/trcnam_pisces.F90

    r5266 r5289  
    88   !!             1.0  !  2003-08 (C. Ethe)  module F90 
    99   !!             2.0  !  2007-12  (C. Ethe, G. Madec) from trcnam.pisces.h90 
     10   !!             3.6  !  2015-05  (O. Aumont) PISCES quota 
    1011   !!---------------------------------------------------------------------- 
    1112#if defined key_pisces || defined key_pisces_reduced || defined key_pisces_quota 
    1213   !!---------------------------------------------------------------------- 
    13    !!   'key_pisces'   :                                   PISCES bio-model 
     14   !!   'key_pisces*'  :                                   PISCES bio-model 
    1415   !!---------------------------------------------------------------------- 
    1516   !! trc_nam_pisces       : PISCES model namelist read 
  • branches/CNRS/dev_r4826_PISCES_QUOTA/NEMOGCM/NEMO/TOP_SRC/PISCES/trcsms_pisces.F90

    r5266 r5289  
    66   !! History :   1.0  !  2004-03 (O. Aumont) Original code 
    77   !!             2.0  !  2007-12  (C. Ethe, G. Madec)  F90 
     8   !!             3.6  !  2015-05  (O. Aumont) PISCES quota 
    89   !!---------------------------------------------------------------------- 
    910#if defined key_pisces || defined key_pisces_reduced || defined key_pisces_quota 
    1011   !!---------------------------------------------------------------------- 
    11    !!   'key_pisces'                                       PISCES bio-model 
     12   !!   'key_pisces*'                                       PISCES bio-model 
    1213   !!---------------------------------------------------------------------- 
    1314   !!   trcsms_pisces        :  Time loop of passive tracers sms 
  • branches/CNRS/dev_r4826_PISCES_QUOTA/NEMOGCM/NEMO/TOP_SRC/PISCES/trcwri_pisces.F90

    r5266 r5289  
    55   !!====================================================================== 
    66   !! History :   1.0  !  2009-05 (C. Ethe)  Original code 
     7   !!             3.6  !  2015-05  (O. Aumont) PISCES quota 
    78   !!---------------------------------------------------------------------- 
    89#if defined key_top && defined key_iomput && ( defined key_pisces || defined key_pisces_reduced || defined key_pisces_quota) 
    910   !!---------------------------------------------------------------------- 
    10    !!   'key_pisces or key_pisces_reduced'                     PISCES model 
     11   !!   'key_pisces*'                     PISCES model 
    1112   !!---------------------------------------------------------------------- 
    1213   !! trc_wri_pisces   :  outputs of concentration fields 
Note: See TracChangeset for help on using the changeset viewer.