Changeset 11467 for NEMO/branches/UKMO/dev_r10037_GPU/src/ICE/icestp.F90

Timestamp:

2019-08-22T11:49:08+02:00 (5 years ago)

Author:

andmirek

Message:

Ticket #2197 allocate arrays at the beggining of the run

File:

• NEMO/branches/UKMO/dev_r10037_GPU/src/ICE/icestp.F90 (modified) (2 diffs)

NEMO/branches/UKMO/dev_r10037_GPU/src/ICE/icestp.F90

@@ -79 +79 @@
    USE timing         ! Timing
    USE prtctl         ! Print control
+   USE scice, ONLY : scice_alloc
 
    IMPLICIT NONE
@@ -247 +248 @@
       ierr = ierr + sbc_ice_alloc    ()      ! surface forcing 
       ierr = ierr + ice1D_alloc      ()      ! thermodynamics
+      ierr = ierr + scice_alloc      () 
       !
       IF( lk_mpp    )   CALL mpp_sum( ierr )