Ignore:
Timestamp:
2021-01-04T16:19:17+01:00 (10 months ago)
Author:
andmirek
Message:

Ticket #2482: few changes to improve code on GPU

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/UKMO/NEMO_4.0_mirror_SI3_GPU/src/ICE/icedyn_adv_umx.F90

    r13153 r14258  
    139139         ALLOCATE( zbetup(jpi,jpj,jpl), zbetdo(jpi,jpj,jpl), zti_ups(jpi,jpj,jpl), ztj_ups(jpi,jpj,jpl)) 
    140140         ALLOCATE( zt_u(jpi,jpj,jpl), zt_v(jpi,jpj,jpl)) 
     141         IF( ll_neg ) THEN 
     142            ALLOCATE( imsk_small(jpi,jpj,jpl) ) 
     143            ALLOCATE( jmsk_small(jpi,jpj,jpl) ) 
     144         ENDIF 
     145         IF( np_advS == 3 ) THEN 
     146            ALLOCATE( zuv_ho (jpi,jpj,jpl), zvv_ho (jpi,jpj,jpl),  & 
     147                      zuv_ups(jpi,jpj,jpl), zvv_ups(jpi,jpj,jpl), z1_vi(jpi,jpj,jpl), z1_vs(jpi,jpj,jpl) ) 
     148         ENDIF 
    141149      ENDIF 
    142150      ! 
     
    220228         ! setup a mask where advection will be upstream 
    221229         IF( ll_neg ) THEN 
    222             IF( .NOT. ALLOCATED(imsk_small) )   ALLOCATE( imsk_small(jpi,jpj,jpl) )  
    223             IF( .NOT. ALLOCATED(jmsk_small) )   ALLOCATE( jmsk_small(jpi,jpj,jpl) )  
    224230            DO jl = 1, jpl 
    225231               DO jj = 1, jpjm1 
Note: See TracChangeset for help on using the changeset viewer.