Ignore:
Timestamp:
2020-07-10T20:15:20+02:00 (3 months ago)
Author:
smueller
Message:

Overriding of the initial sea-level compensation for non-zero sea-ice/snow mass in nested domains (see ticket #2487)

File:
1 edited

Legend:

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

    r13180 r13294  
    8787 
    8888   REAL(wp), ALLOCATABLE, SAVE, DIMENSION(:,:,:), PRIVATE ::   png     ! local array used in sbc_cice_ice 
     89 
     90#if defined key_agrif 
     91   REAL(wp), PUBLIC ::   rsshadj    !: initial mean ssh adjustment due to initial ice+snow mass 
     92#endif 
    8993 
    9094   !!---------------------------------------------------------------------- 
     
    270274            z1_area = 1.0_wp / glob_sum( 'sbcice_cice', e1e2t(:,:) ) 
    271275            zsshadj = glob_sum( 'sbcice_cice', e1e2t(:,:) * snwice_mass(:,:) ) * r1_rau0 * z1_area 
     276#if defined key_agrif 
     277            ! Override ssh adjustment in nested domains by the root-domain ssh 
     278            ! adjustment; store the adjustment value in a global module variable to 
     279            ! make it retrievable in nested domains 
     280            IF( .NOT. Agrif_Root() ) zsshadj = Agrif_Parent(rsshadj) 
     281            rsshadj = zsshadj 
     282#endif 
    272283            WRITE(ctmp1,'(A36,F10.6,A24)') 'sbcice_cice:   mean ssh adjusted by ', -1.0_wp * zsshadj, ' m to compensate for the' 
    273284            CALL ctl_warn( ctmp1,          '               initial ice+snow mass' ) 
Note: See TracChangeset for help on using the changeset viewer.