Changeset 10362 for NEMO/trunk/src/TOP/PISCES/SED/seddta.F90

Timestamp:

2018-11-30T16:38:17+01:00 (5 years ago)

Author:

aumont

Message:

Various bug fixes and improvements

File:

• NEMO/trunk/src/TOP/PISCES/SED/seddta.F90 (modified) (4 diffs)

NEMO/trunk/src/TOP/PISCES/SED/seddta.F90

@@ -49 +49 @@
 
       REAL(wp), DIMENSION(jpoce) :: zdtap, zdtag
-      REAL(wp), DIMENSION(jpi,jpj) :: zwsbio4, zwsbio3, zwscal
+      REAL(wp), DIMENSION(jpi,jpj) :: zwsbio4, zwsbio3
       REAL(wp) :: zf0, zf1, zf2, zkapp, zratio, zdep
 
@@ -97 +97 @@
                zwsbio4(ji,jj) = wsbio2 / rday
                zwsbio3(ji,jj) = wsbio  / rday
-               zwscal (ji,jj) = wsbio2 / rday
             END DO
          END DO
@@ -106 +105 @@
                zdep = e3t_n(ji,jj,ikt) / r2dttrc
                zwsbio4(ji,jj) = MIN( 0.99 * zdep, wsbio4(ji,jj,ikt) / rday )
-               zwscal (ji,jj) = MIN( 0.99 * zdep, wscal (ji,jj,ikt) / rday )
                zwsbio3(ji,jj) = MIN( 0.99 * zdep, wsbio3(ji,jj,ikt) / rday )
             END DO
@@ -130 +128 @@
                trc_data(ji,jj,12 ) = MIN(trb(ji,jj,ikt,jppoc), 1E-4) * zwsbio3(ji,jj) * 1E3
                trc_data(ji,jj,13 ) = MIN(trb(ji,jj,ikt,jpgoc), 1E-4) * zwsbio4(ji,jj) * 1E3
-               trc_data(ji,jj,14)  = MIN(trb(ji,jj,ikt,jpcal), 1E-4) * zwscal (ji,jj) * 1E3
+               trc_data(ji,jj,14)  = MIN(trb(ji,jj,ikt,jpcal), 1E-4) * zwsbio4(ji,jj) * 1E3
                trc_data(ji,jj,15)  = tsn(ji,jj,ikt,jp_tem)
                trc_data(ji,jj,16)  = tsn(ji,jj,ikt,jp_sal)