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

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

@@ -65 +65 @@
       !!              Vancoppenolle et al.,2009, Ocean Modelling
       !!------------------------------------------------------------------
+      USE scice, ONLY : zqprec     => scr1D1i,  & ! energy of fallen snow                       (J.m-3)
+                       zq_top     => scr1D2i,  & ! heat for surface ablation                   (J.m-2)
+                       zq_bot     => scr1D3i,  & ! heat for bottom ablation                    (J.m-2)
+                       zq_rema    => scr1D4i,  & ! remaining heat at the end of the routine    (J.m-2)
+                       zf_tt      => scr1D5i,  & ! Heat budget to determine melting or freezing(W.m-2)
+                       zevap_rema => scr1D6i,  & ! remaining mass flux from sublimation        (kg.m-2)
+                       zdh_s_mel  => scr1D7i,  & ! snow melt 
+                       zdh_s_pre  => scr1D8i,  & ! snow precipitation 
+                       zdh_s_sub  => scr1D9i,  & ! snow sublimation
+                       zsnw       => scr1D10i     ! distribution of snow after wind blowing
+ 
+
       INTEGER  ::   ji, jk       ! dummy loop indices
       INTEGER  ::   iter         ! local integer
@@ -84 +96 @@
       REAL(wp) ::   zfmdt        ! exchange mass flux x time step (J/m2), >0 towards the ocean
 
-      REAL(wp), DIMENSION(jpij) ::   zqprec      ! energy of fallen snow                       (J.m-3)
-      REAL(wp), DIMENSION(jpij) ::   zq_top      ! heat for surface ablation                   (J.m-2)
-      REAL(wp), DIMENSION(jpij) ::   zq_bot      ! heat for bottom ablation                    (J.m-2)
-      REAL(wp), DIMENSION(jpij) ::   zq_rema     ! remaining heat at the end of the routine    (J.m-2)
-      REAL(wp), DIMENSION(jpij) ::   zf_tt       ! Heat budget to determine melting or freezing(W.m-2)
-      REAL(wp), DIMENSION(jpij) ::   zevap_rema  ! remaining mass flux from sublimation        (kg.m-2)
-
-      REAL(wp), DIMENSION(jpij) ::   zdh_s_mel   ! snow melt 
-      REAL(wp), DIMENSION(jpij) ::   zdh_s_pre   ! snow precipitation 
-      REAL(wp), DIMENSION(jpij) ::   zdh_s_sub   ! snow sublimation
-
       REAL(wp), DIMENSION(jpij,nlay_s) ::   zh_s      ! snw layer thickness
       REAL(wp), DIMENSION(jpij,nlay_i) ::   zh_i      ! ice layer thickness
       REAL(wp), DIMENSION(jpij,nlay_i) ::   zdeltah
       INTEGER , DIMENSION(jpij,nlay_i) ::   icount    ! number of layers vanished by melting 
-
-      REAL(wp), DIMENSION(jpij) ::   zsnw        ! distribution of snow after wind blowing
 
       REAL(wp) ::   zswitch_sal