Changeset 7968 for trunk/NEMOGCM/NEMO/OPA_SRC/SBC/sbcisf.F90

Timestamp:

2017-04-26T09:02:56+02:00 (7 years ago)

Author:

clem

Message:

commits following ticket #1889

File:

• trunk/NEMOGCM/NEMO/OPA_SRC/SBC/sbcisf.F90 (modified) (1 diff)

trunk/NEMOGCM/NEMO/OPA_SRC/SBC/sbcisf.F90

@@ -168 +168 @@
 
          ! output
-         CALL iom_put('qlatisf' , qisf)
-         CALL iom_put('fwfisf'  , fwfisf)
+         IF( iom_use('iceshelf_cea') )   CALL iom_put( 'iceshelf_cea', -fwfisf(:,:)                      )   ! isf mass flux
+         IF( iom_use('hflx_isf_cea') )   CALL iom_put( 'hflx_isf_cea', risf_tsc(:,:,jp_tem) * rau0 * rcp )   ! isf sensible+latent heat (W/m2)
+         IF( iom_use('qlatisf' ) )       CALL iom_put( 'qlatisf'     , qisf(:,:)                         )   ! isf latent heat
+         IF( iom_use('fwfisf'  ) )       CALL iom_put( 'fwfisf'      , fwfisf(:,:)                       )   ! isf mass flux (opposite sign)
 
         ! Diagnostics