Changeset 13301
- Timestamp:
- 2020-07-13T16:12:27+02:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/ticket2487/src/OCE/SBC/sbcfwb.F90
r13180 r13301 88 88 IF( kn_fwb == 3 .AND. nn_sssr /= 2 ) CALL ctl_stop( 'sbc_fwb: nn_fwb = 3 requires nn_sssr = 2, we stop ' ) 89 89 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 90 94 ! 91 95 area = glob_sum( 'sbcfwb', e1e2t(:,:) * tmask(:,:,1)) ! interior global domain surface
Note: See TracChangeset
for help on using the changeset viewer.