Ignore:
Timestamp:
2019-04-16T14:58:06+02:00 (2 years ago)
Author:
anaguiar
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/dev_r5518_FOAMv14_output_heat_fluxes/NEMOGCM/NEMO/OPA_SRC/SBC/sbcmod.F90

    r10302 r10879  
    479479         CALL iom_put( "taum"  , taum       )                   ! wind stress module  
    480480         CALL iom_put( "wspd"  , wndm       )                   ! wind speed  module over free ocean or leads in presence of sea-ice 
     481         IF( nn_ice > 0 ) THEN  
     482            CALL iom_put( "qlw_oce"  ,   qlw   )                ! output surface_net_downward_longwave_flux 
     483            CALL iom_put( "qsb_oce"  , - qsb   )                ! output surface_downward_sensible_heat_flux 
     484            CALL iom_put( "qla_oce"  , - qla   )                ! output surface_downward_latent_heat_flux 
     485         ENDIF 
    481486      ENDIF 
    482487      ! 
Note: See TracChangeset for help on using the changeset viewer.