Changeset 727

Timestamp:

2007-10-22T11:59:50+02:00 (17 years ago)

Author:

cetlod

Message:

correction of aggregation of small into large particles, see ticket:16

File:

• trunk/NEMO/TOP_SRC/SMS/p4zsink.std.h (modified) (2 diffs)

trunk/NEMO/TOP_SRC/SMS/p4zsink.std.h

@@ -28 +28 @@
          DO jj=1,jpj
            DO ji=1,jpi
-       zfact=max(0.,fsdepw(ji,jj,jk+1)-hmld(ji,jj))/2000.
+       zfact=max(0.,fsdepw(ji,jj,jk+1)-hmld(ji,jj))/4000.
        wsbio4(ji,jj,jk)=wsbio2+(200.-wsbio2)*zfact
              END DO
@@ -100 +100 @@
 C    ----------------------------------------------
 C
-         xagg3=0.66*zstep*trn(ji,jj,jk,jppoc)*trn(ji,jj,jk,jppoc)
+         xagg3=0.66*zstep*trn(ji,jj,jk,jppoc)*trn(ji,jj,jk,jpgoc)
 #    if defined key_off_degrad
      &     *facvol(ji,jj,jk)
 #    endif
 
-         xagg4=0.*zstep*trn(ji,jj,jk,jppoc)*trn(ji,jj,jk,jpgoc)
+         xagg4=0.*zstep*trn(ji,jj,jk,jppoc)*trn(ji,jj,jk,jppoc)
 #    if defined key_off_degrad
      &     *facvol(ji,jj,jk)