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 8532 for branches/2015/nemo_v3_6_STABLE/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zlim.F90 – NEMO

Ignore:
Timestamp:
2017-09-18T14:58:22+02:00 (7 years ago)
Author:
cetlod
Message:

v3.6 stable: bugfixes to solve problem particle in PISCES, see ticket #1940

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2015/nemo_v3_6_STABLE/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zlim.F90

    r6943 r8532  
    192192            DO ji = 1, jpi 
    193193               ! denitrification factor computed from O2 levels 
    194                nitrfac(ji,jj,jk) = MAX(  0.e0, 0.4 * ( 6.e-6  - trb(ji,jj,jk,jpoxy) )    & 
     194               nitrfac(ji,jj,jk)  = MAX(  0.e0, 0.4 * ( 6.e-6  - trb(ji,jj,jk,jpoxy) )    & 
    195195                  &                                / ( oxymin + trb(ji,jj,jk,jpoxy) )  ) 
    196                nitrfac(ji,jj,jk) = MIN( 1., nitrfac(ji,jj,jk) ) 
     196               nitrfac(ji,jj,jk)  = MIN( 1., nitrfac(ji,jj,jk) ) 
     197               ! 
     198               ! denitrification factor computed from NO3 levels 
     199               nitrfac2(ji,jj,jk) = MAX( 0.e0, ( 1.E-6 - trb(ji,jj,jk,jpno3) )  & 
     200                  &                               / ( 1.E-6 + trb(ji,jj,jk,jpno3) ) ) 
     201               nitrfac2(ji,jj,jk) = MIN( 1., nitrfac2(ji,jj,jk) ) 
    197202            END DO 
    198203         END DO 
     
    266271      ! 
    267272      nitrfac (:,:,:) = 0._wp 
     273      nitrfac2(:,:,:) = 0._wp 
    268274      ! 
    269275   END SUBROUTINE p4z_lim_init 
Note: See TracChangeset for help on using the changeset viewer.