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 735 for tags – NEMO

Changeset 735 for tags


Ignore:
Timestamp:
2007-11-19T16:22:54+01:00 (17 years ago)
Author:
cetlod
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • tags/nemo_v2_3/NEMO/TOP_SRC/SMS/p4zsink.std.h

    r618 r735  
    2828         DO jj=1,jpj 
    2929           DO ji=1,jpi 
    30        zfact=max(0.,fsdepw(ji,jj,jk+1)-hmld(ji,jj))/2000. 
     30       zfact=max(0.,fsdepw(ji,jj,jk+1)-hmld(ji,jj))/4000. 
    3131       wsbio4(ji,jj,jk)=wsbio2+(200.-wsbio2)*zfact 
    3232             END DO 
     
    100100C    ---------------------------------------------- 
    101101C 
    102          xagg3=0.66*zstep*trn(ji,jj,jk,jppoc)*trn(ji,jj,jk,jppoc) 
     102         xagg3=0.66*zstep*trn(ji,jj,jk,jppoc)*trn(ji,jj,jk,jpgoc) 
    103103#    if defined key_off_degrad 
    104104     &     *facvol(ji,jj,jk) 
    105105#    endif 
    106106 
    107          xagg4=0.*zstep*trn(ji,jj,jk,jppoc)*trn(ji,jj,jk,jpgoc) 
     107         xagg4=0.*zstep*trn(ji,jj,jk,jppoc)*trn(ji,jj,jk,jppoc) 
    108108#    if defined key_off_degrad 
    109109     &     *facvol(ji,jj,jk) 
Note: See TracChangeset for help on using the changeset viewer.