Changeset 15149 for NEMO/trunk/src/OCE/SBC

Timestamp:

2021-07-27T12:27:05+02:00 (3 years ago)

Author:

acc

Message:

Trunk. Fix typo in sbcmod.F90 (diagnostic only)

File:

• NEMO/trunk/src/OCE/SBC/sbcmod.F90 (modified) (2 diffs)

NEMO/trunk/src/OCE/SBC/sbcmod.F90

@@ -570 +570 @@
          IF( iom_use("empmr") ) THEN
             DO_2D( 0, 0, 0, 0 )
-               z2d(ji,jj) =  emp(ji,jj) * rnf(ji,jj)
+               z2d(ji,jj) =  emp(ji,jj) - rnf(ji,jj)
             END_2D
             CALL iom_put( "empmr"  , z2d      )                ! upward water flux
@@ -576 +576 @@
          IF( iom_use("empbmr") ) THEN
             DO_2D( 0, 0, 0, 0 )
-               z2d(ji,jj) =  emp_b(ji,jj) * rnf(ji,jj)
+               z2d(ji,jj) =  emp_b(ji,jj) - rnf(ji,jj)
             END_2D
             CALL iom_put( "empbmr" , z2d      )                ! before upward water flux ( needed to recalculate the time evolution of ssh in offline )