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 10956 for NEMO/releases/release-4.0/src – NEMO

Ignore:
Timestamp:
2019-05-10T11:57:45+02:00 (5 years ago)
Author:
aumont
Message:

bug fix related to ticket #2278

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/releases/release-4.0/src/TOP/PISCES/P4Z/p4zpoc.F90

    r10362 r10956  
    166166                       &   + zsizek1 ) ) * zpoc + ( prodgoc(ji,jj,jk-1) / tgfunc(ji,jj,jk-1) * ( 1.           & 
    167167                       &   - exp( -reminp(jn) * zsizek1 ) ) * exp( -reminp(jn) * zsizek ) + prodgoc(ji,jj,jk) & 
    168                        &   / tgfunc(ji,jj,jk) * ( 1. - exp( -reminp(jn) * zsizek ) ) ) * rday / rfact2 / reminp(jn)  
     168                       &   / tgfunc(ji,jj,jk) * ( 1. - exp( -reminp(jn) * zsizek ) ) ) * rday / rfact2 / reminp(jn) * alphan(jn)  
    169169                       alphat = alphat + alphag(ji,jj,jk,jn) 
    170170                       remint = remint + alphag(ji,jj,jk,jn) * reminp(jn) 
Note: See TracChangeset for help on using the changeset viewer.