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 10362 for NEMO/trunk/src/TOP/PISCES/SED/seddta.F90 – NEMO

Ignore:
Timestamp:
2018-11-30T16:38:17+01:00 (6 years ago)
Author:
aumont
Message:

Various bug fixes and improvements

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/trunk/src/TOP/PISCES/SED/seddta.F90

    r10333 r10362  
    4949 
    5050      REAL(wp), DIMENSION(jpoce) :: zdtap, zdtag 
    51       REAL(wp), DIMENSION(jpi,jpj) :: zwsbio4, zwsbio3, zwscal 
     51      REAL(wp), DIMENSION(jpi,jpj) :: zwsbio4, zwsbio3 
    5252      REAL(wp) :: zf0, zf1, zf2, zkapp, zratio, zdep 
    5353 
     
    9797               zwsbio4(ji,jj) = wsbio2 / rday 
    9898               zwsbio3(ji,jj) = wsbio  / rday 
    99                zwscal (ji,jj) = wsbio2 / rday 
    10099            END DO 
    101100         END DO 
     
    106105               zdep = e3t_n(ji,jj,ikt) / r2dttrc 
    107106               zwsbio4(ji,jj) = MIN( 0.99 * zdep, wsbio4(ji,jj,ikt) / rday ) 
    108                zwscal (ji,jj) = MIN( 0.99 * zdep, wscal (ji,jj,ikt) / rday ) 
    109107               zwsbio3(ji,jj) = MIN( 0.99 * zdep, wsbio3(ji,jj,ikt) / rday ) 
    110108            END DO 
     
    130128               trc_data(ji,jj,12 ) = MIN(trb(ji,jj,ikt,jppoc), 1E-4) * zwsbio3(ji,jj) * 1E3 
    131129               trc_data(ji,jj,13 ) = MIN(trb(ji,jj,ikt,jpgoc), 1E-4) * zwsbio4(ji,jj) * 1E3 
    132                trc_data(ji,jj,14)  = MIN(trb(ji,jj,ikt,jpcal), 1E-4) * zwscal (ji,jj) * 1E3 
     130               trc_data(ji,jj,14)  = MIN(trb(ji,jj,ikt,jpcal), 1E-4) * zwsbio4(ji,jj) * 1E3 
    133131               trc_data(ji,jj,15)  = tsn(ji,jj,ikt,jp_tem) 
    134132               trc_data(ji,jj,16)  = tsn(ji,jj,ikt,jp_sal) 
Note: See TracChangeset for help on using the changeset viewer.