Changeset 11467 for NEMO/branches/UKMO/dev_r10037_GPU/src/OCE/nemogcm.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/OCE/nemogcm.F90 (modified) (2 diffs)

NEMO/branches/UKMO/dev_r10037_GPU/src/OCE/nemogcm.F90

@@ -92 +92 @@
    USE agrif_all_update   ! Master Agrif update
 #endif
+   USE scoce, ONLY : scoce_alloc ! scratch arrays
 
    IMPLICIT NONE
@@ -607 +608 @@
       ierr = ierr + trc_oce_alloc()    ! shared TRC / TRA arrays
       ierr = ierr + bdy_oce_alloc()    ! bdy masks (incl. initialization)
+      ierr = ierr + scoce_alloc()       ! scratch arrays
       !
 #if defined key_diadct