Changeset 10973

Timestamp:

2019-05-13T17:08:48+02:00 (6 years ago)

Author:

cetlod

Message:

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

File:

• NEMO/trunk/src/TOP/PISCES/P4Z/p4zpoc.F90 (modified) (1 diff)

NEMO/trunk/src/TOP/PISCES/P4Z/p4zpoc.F90

@@ -166 +166 @@
                        &   + zsizek1 ) ) * zpoc + ( prodgoc(ji,jj,jk-1) / tgfunc(ji,jj,jk-1) * ( 1.           &
                        &   - exp( -reminp(jn) * zsizek1 ) ) * exp( -reminp(jn) * zsizek ) + prodgoc(ji,jj,jk) &
-                       &   / tgfunc(ji,jj,jk) * ( 1. - exp( -reminp(jn) * zsizek ) ) ) * rday / rfact2 / reminp(jn) 
+                       &   / tgfunc(ji,jj,jk) * ( 1. - exp( -reminp(jn) * zsizek ) ) ) * rday / rfact2 / reminp(jn) * alphan(jn) 
                        alphat = alphat + alphag(ji,jj,jk,jn)
                        remint = remint + alphag(ji,jj,jk,jn) * reminp(jn)