New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 6808 for branches/NERC/dev_r5549_BDY_ZEROGRAD/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zbio.F90 – NEMO

Ignore:
Timestamp:
2016-07-19T10:38:35+02:00 (8 years ago)
Author:
jamesharle
Message:

merge with trunk@6232 for consistency with SSB code

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/NERC/dev_r5549_BDY_ZEROGRAD/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zbio.F90

    r5385 r6808  
    3434   PUBLIC  p4z_bio     
    3535 
    36    !!* Substitution 
    37 #  include "top_substitute.h90" 
    3836   !!---------------------------------------------------------------------- 
    3937   !! NEMO/TOP 3.3 , NEMO Consortium (2010) 
     
    4139   !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 
    4240   !!---------------------------------------------------------------------- 
    43  
    4441CONTAINS 
    4542 
     
    7067         DO jj = 1, jpj 
    7168            DO ji = 1, jpi 
    72                IF( fsdepw(ji,jj,jk+1) > hmld(ji,jj) )   xdiss(ji,jj,jk) = 0.01 
     69!!gm  :  use nmln  and test on jk ...  less memory acces 
     70               IF( gdepw_n(ji,jj,jk+1) > hmld(ji,jj) )   xdiss(ji,jj,jk) = 0.01 
    7371            END DO  
    7472         END DO 
    7573      END DO 
    7674 
    77            
    7875      CALL p4z_opt  ( kt, knt )     ! Optic: PAR in the water column 
    7976      CALL p4z_sink ( kt, knt )     ! vertical flux of particulate organic matter 
     
    109106 
    110107   !!====================================================================== 
    111 END MODULE  p4zbio 
    112  
     108END MODULE p4zbio 
Note: See TracChangeset for help on using the changeset viewer.