Ticket #1818: sbc_oce_initialize.patch

File sbc_oce_initialize.patch, 1.2 KB (added by mdunphy, 4 years ago)

Patch for nn_components initialization in sbc_oce.F90

  • NEMOGCM/NEMO/OPA_SRC/SBC/sbc_oce.F90

    # HG changeset patch
    # User Michael Dunphy
    # Date 1479753335 28800
    #      Mon Nov 21 10:35:35 2016 -0800
    Initialize nn_components in sbc_oce.F90
    
    diff -r 4954e0e4c5d5 -r 4a9a03e16ec8 NEMOGCM/NEMO/OPA_SRC/SBC/sbc_oce.F90
    a b  
    5151   !                                             !: =0 levitating ice (no mass exchange, concentration/dilution effect) 
    5252   !                                             !: =1 levitating ice with mass and salt exchange but no presure effect 
    5353   !                                             !: =2 embedded sea-ice (full salt and mass exchanges and pressure) 
    54    INTEGER , PUBLIC ::   nn_components  !: flag for sbc module (including sea-ice) coupling mode (see component definition below)  
     54   INTEGER , PUBLIC ::   nn_components = 0 !: flag for sbc module (including sea-ice) coupling mode (see component definition below) 
    5555   INTEGER , PUBLIC ::   nn_limflx      !: LIM3 Multi-category heat flux formulation 
    5656   !                                             !: =-1  Use of per-category fluxes 
    5757   !                                             !: = 0  Average per-category fluxes