Ignore:
Timestamp:
2019-02-19T13:22:48+01:00 (20 months ago)
Author:
mathiot
Message:

move extended array tt_e,uo_e (…) initialisation to 0. in icbini.F90 and chnage hicth name to hi_e

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2019/fix_ticket2238_solution1/src/OCE/ICB/icbini.F90

    r10570 r10696  
    7474      !                          ! allocate gridded fields 
    7575      IF( icb_alloc() /= 0 )   CALL ctl_stop( 'STOP', 'icb_alloc : unable to allocate arrays' ) 
    76  
     76      ! 
     77      !                          ! initialised variable with extra haloes to zero 
     78      uo_e(:,:) = 0._wp   ;   vo_e(:,:) = 0._wp   ; 
     79      ua_e(:,:) = 0._wp   ;   va_e(:,:) = 0._wp   ; 
     80      ff_e(:,:) = 0._wp   ;   tt_e(:,:) = 0._wp   ; 
     81      fr_e(:,:) = 0._wp   ;   hi_e(:,:) = 0._wp   ; 
     82      ui_e(:,:) = 0._wp   ;   vi_e(:,:) = 0._wp   ; 
     83      ssh_e(:,:) = 0._wp  ;  
     84      ! 
    7785      !                          ! open ascii output file or files for iceberg status information 
    7886      !                          ! note that we choose to do this on all processors since we cannot 
Note: See TracChangeset for help on using the changeset viewer.