Changeset 10973


Ignore:
Timestamp:
2019-05-13T17:08:48+02:00 (17 months ago)
Author:
cetlod
Message:

trunk : bugfix in Lability of big particles, see ticket #2278

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/trunk/src/TOP/PISCES/P4Z/p4zpoc.F90

    r10362 r10973  
    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.