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 13301 for NEMO/branches/2020/ticket2487/src/OCE/SBC/sbcfwb.F90 – NEMO

Ignore:
Timestamp:
2020-07-13T16:12:27+02:00 (4 years ago)
Author:
smueller
Message:

Addition of warning output from model runs with sea ice, with active freshwater-budget adjustment, but without sea-level compensation for non-zero initial sea-ice/snow mass (see ticket #2487)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2020/ticket2487/src/OCE/SBC/sbcfwb.F90

    r13180 r13301  
    8888         IF( kn_fwb == 3 .AND. nn_sssr /= 2 )   CALL ctl_stop( 'sbc_fwb: nn_fwb = 3 requires nn_sssr = 2, we stop ' ) 
    8989         IF( kn_fwb == 3 .AND. ln_isfcav    )   CALL ctl_stop( 'sbc_fwb: nn_fwb = 3 with ln_isfcav = .TRUE. not working, we stop ' ) 
     90         IF( ( nn_ice > 0 ) .AND. .NOT. ln_ice_sladj ) THEN 
     91            CALL ctl_warn( 'sbc_fwb: no sea-level adjustment to compensate for initial sea-ice/snow mass', & 
     92               '         (ln_ice_sladj = .FALSE.)' ) 
     93         END IF 
    9094         ! 
    9195         area = glob_sum( 'sbcfwb', e1e2t(:,:) * tmask(:,:,1))           ! interior global domain surface 
Note: See TracChangeset for help on using the changeset viewer.