Changeset 10696 for NEMO/branches/2019/fix_ticket2238_solution1/src/OCE/ICB/icbini.F90

Timestamp:

2019-02-19T13:22:48+01:00 (5 years 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:

• NEMO/branches/2019/fix_ticket2238_solution1/src/OCE/ICB/icbini.F90 (modified) (1 diff)

NEMO/branches/2019/fix_ticket2238_solution1/src/OCE/ICB/icbini.F90

@@ -74 +74 @@
       !                          ! allocate gridded fields
       IF( icb_alloc() /= 0 )   CALL ctl_stop( 'STOP', 'icb_alloc : unable to allocate arrays' )
-
+      !
+      !                          ! initialised variable with extra haloes to zero
+      uo_e(:,:) = 0._wp   ;   vo_e(:,:) = 0._wp   ;
+      ua_e(:,:) = 0._wp   ;   va_e(:,:) = 0._wp   ;
+      ff_e(:,:) = 0._wp   ;   tt_e(:,:) = 0._wp   ;
+      fr_e(:,:) = 0._wp   ;   hi_e(:,:) = 0._wp   ;
+      ui_e(:,:) = 0._wp   ;   vi_e(:,:) = 0._wp   ;
+      ssh_e(:,:) = 0._wp  ; 
+      !
       !                          ! open ascii output file or files for iceberg status information
       !                          ! note that we choose to do this on all processors since we cannot