Changeset 9864 for branches/UKMO/dev_isf_flx_UKESM_r9321/NEMOGCM/NEMO/OPA_SRC/SBC/sbcisf.F90

Timestamp:

2018-07-02T11:46:54+02:00 (6 years ago)

Author:

mathiot

Message:

fix melt diagnostics

File:

• branches/UKMO/dev_isf_flx_UKESM_r9321/NEMOGCM/NEMO/OPA_SRC/SBC/sbcisf.F90 (modified) (1 diff)

branches/UKMO/dev_isf_flx_UKESM_r9321/NEMOGCM/NEMO/OPA_SRC/SBC/sbcisf.F90

@@ -364 +364 @@
          ! output
          IF( iom_use('qlatisf' ) )   CALL iom_put('qlatisf', qisf)
-         IF( iom_use('fwfisf'  ) )   CALL iom_put('fwfisf' , fwfisf * stbl(:,:) / soce )
+         IF( iom_use('fwfisf'  ) )   CALL iom_put('fwfisf' , fwfisf)
 
          ! lbclnk