Changeset 10700


Ignore:
Timestamp:
2019-02-19T17:37:56+01:00 (18 months ago)
Author:
mathiot
Message:

allocate/define/initialise hi_e only if key_si3 is define (ticket #2238)

Location:
NEMO/branches/2019/fix_ticket2238_solution1/src/OCE/ICB
Files:
2 edited

Legend:

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

    r10696 r10700  
    8686   ! particularly for MPP when iceberg can lie inside T grid but outside U, V, or f grid 
    8787   REAL(wp), PUBLIC, DIMENSION(:,:), ALLOCATABLE ::   uo_e, vo_e 
    88    REAL(wp), PUBLIC, DIMENSION(:,:), ALLOCATABLE ::   ff_e, tt_e, fr_e, hi_e 
     88   REAL(wp), PUBLIC, DIMENSION(:,:), ALLOCATABLE ::   ff_e, tt_e, fr_e 
    8989   REAL(wp), PUBLIC, DIMENSION(:,:), ALLOCATABLE ::   ua_e, va_e 
    9090   REAL(wp), PUBLIC, DIMENSION(:,:), ALLOCATABLE ::   ssh_e 
    9191#if defined key_si3 || defined key_cice 
    92    REAL(wp), PUBLIC, DIMENSION(:,:), ALLOCATABLE ::   ui_e, vi_e 
     92   REAL(wp), PUBLIC, DIMENSION(:,:), ALLOCATABLE ::   hi_e, ui_e, vi_e 
    9393#endif 
    9494 
     
    174174         &      ui_e(0:jpi+1,0:jpj+1) ,                            & 
    175175         &      vi_e(0:jpi+1,0:jpj+1) ,                            & 
     176         &      hi_e(0:jpi+1,0:jpj+1) ,                            & 
    176177#endif 
    177178         &      ff_e(0:jpi+1,0:jpj+1) , fr_e(0:jpi+1,0:jpj+1)  ,   & 
    178179         &      tt_e(0:jpi+1,0:jpj+1) , ssh_e(0:jpi+1,0:jpj+1) ,   & 
    179          &      hi_e(0:jpi+1,0:jpj+1) ,                            & 
    180180         &      first_width(nclasses) , first_length(nclasses) ,   & 
    181181         &      src_calving (jpi,jpj) ,                            & 
  • NEMO/branches/2019/fix_ticket2238_solution1/src/OCE/ICB/icbini.F90

    r10697 r10700  
    7979      ua_e(:,:) = 0._wp   ;   va_e(:,:) = 0._wp   ; 
    8080      ff_e(:,:) = 0._wp   ;   tt_e(:,:) = 0._wp   ; 
    81       fr_e(:,:) = 0._wp   ;   hi_e(:,:) = 0._wp   ; 
     81      fr_e(:,:) = 0._wp   ; 
    8282#if defined key_si3 
     83      hi_e(:,:) = 0._wp   ; 
    8384      ui_e(:,:) = 0._wp   ;   vi_e(:,:) = 0._wp   ; 
    8485#endif 
Note: See TracChangeset for help on using the changeset viewer.