Changeset 15149 for NEMO/trunk/src/OCE/SBC/sbcmod.F90
- Timestamp:
- 2021-07-27T12:27:05+02:00 (3 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/OCE/SBC/sbcmod.F90
r15145 r15149 570 570 IF( iom_use("empmr") ) THEN 571 571 DO_2D( 0, 0, 0, 0 ) 572 z2d(ji,jj) = emp(ji,jj) *rnf(ji,jj)572 z2d(ji,jj) = emp(ji,jj) - rnf(ji,jj) 573 573 END_2D 574 574 CALL iom_put( "empmr" , z2d ) ! upward water flux … … 576 576 IF( iom_use("empbmr") ) THEN 577 577 DO_2D( 0, 0, 0, 0 ) 578 z2d(ji,jj) = emp_b(ji,jj) *rnf(ji,jj)578 z2d(ji,jj) = emp_b(ji,jj) - rnf(ji,jj) 579 579 END_2D 580 580 CALL iom_put( "empbmr" , z2d ) ! before upward water flux ( needed to recalculate the time evolution of ssh in offline )
Note: See TracChangeset
for help on using the changeset viewer.