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

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

@@ -89 +89 @@
       !!              where there is no ice (clem: I do not know why, is it mandatory?) 
       !!--------------------------------------------------------------------
+      USE scoce, ONLY : zht_i_ini => scr2D1, zat_i_ini => scr2D2, zvt_i_ini => scr2D3, & !data from namelist or nc file
+                       zts_u_ini => scr2D4, zht_s_ini => scr2D5, zsm_i_ini => scr2D6, &  
+                       ztm_i_ini => scr2D7,                                           &
+                       zswitch => scr2D8,                                             & ! ice indicator
+                       z2d => scr2D9
+      USE scice, ONLY : zh_i_ini => scr1i, za_i_ini => scr2i                             !data by cattegories to fill
       INTEGER  ::   ji, jj, jk, jl         ! dummy loop indices
       INTEGER  ::   i_hemis, i_fill, jl0   ! local integers
@@ -94 +100 @@
       REAL(wp) ::   zarg, zV, zconv, zdv, zfac
       INTEGER , DIMENSION(4)           ::   itest
-      REAL(wp), DIMENSION(jpi,jpj)     ::   z2d
-      REAL(wp), DIMENSION(jpi,jpj)     ::   zswitch    ! ice indicator
-      REAL(wp), DIMENSION(jpi,jpj)     ::   zht_i_ini, zat_i_ini, zvt_i_ini            !data from namelist or nc file
-      REAL(wp), DIMENSION(jpi,jpj)     ::   zts_u_ini, zht_s_ini, zsm_i_ini, ztm_i_ini !data from namelist or nc file
-      REAL(wp), DIMENSION(jpi,jpj,jpl) ::   zh_i_ini , za_i_ini                        !data by cattegories to fill
       !--------------------------------------------------------------------