Changeset 10879 for branches/UKMO/dev_r5518_FOAMv14_output_heat_fluxes/NEMOGCM/NEMO/OPA_SRC/SBC/sbcmod.F90

Timestamp:

2019-04-16T14:58:06+02:00 (5 years ago)

Author:

anaguiar

Message:

Changes to reinstate heat fluxes, see ​https://code.metoffice.gov.uk/trac/gmed/ticket/454

File:

• branches/UKMO/dev_r5518_FOAMv14_output_heat_fluxes/NEMOGCM/NEMO/OPA_SRC/SBC/sbcmod.F90 (modified) (1 diff)

branches/UKMO/dev_r5518_FOAMv14_output_heat_fluxes/NEMOGCM/NEMO/OPA_SRC/SBC/sbcmod.F90

@@ -479 +479 @@
          CALL iom_put( "taum"  , taum       )                   ! wind stress module 
          CALL iom_put( "wspd"  , wndm       )                   ! wind speed  module over free ocean or leads in presence of sea-ice
+         IF( nn_ice > 0 ) THEN 
+            CALL iom_put( "qlw_oce"  ,   qlw   )                ! output surface_net_downward_longwave_flux
+            CALL iom_put( "qsb_oce"  , - qsb   )                ! output surface_downward_sensible_heat_flux
+            CALL iom_put( "qla_oce"  , - qla   )                ! output surface_downward_latent_heat_flux
+         ENDIF
       ENDIF
       !