New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 15435 – NEMO

Changeset 15435


Ignore:
Timestamp:
2021-10-22T12:33:47+02:00 (2 years ago)
Author:
hadjt
Message:

sbcssr.F90

Additional output of surface heat terms, including haney

File:
1 edited

Legend:

Unmodified
Added
Removed

  • NEMO/branches/UKMO/NEMO_4.0.4_CO9_shelf_climate/src/OCE/SBC/sbcssr.F90

    r15312 r15435  
    138138               ENDIF 
    139139            ENDIF 
    140             ! JT 
    141             ! JT CALL iom_put( "qrp", qrp )                             ! heat flux damping 
    142             ! JT 
    143             ! 
     140            CALL iom_put( "qrp", qrp )                             ! heat flux damping 
     141            CALL iom_put( "hny_frc1", hny_frc1)                             ! heat flux damping 
     142            CALL iom_put( "hny_frc2", hny_frc2 )                             ! heat flux damping 
     143 
    144144            IF( nn_sssr /= 0 .AND. nn_sssr_ice /= 1 ) THEN 
    145145              ! use fraction of ice ( fr_i ) to adjust relaxation under ice if nn_sssr_ice .ne. 1 
Note: See TracChangeset for help on using the changeset viewer.