Changeset 12538 for NEMO/branches/2019/dev_r11708_aumont_PISCES_QUOTA/src/TOP/PISCES/P4Z/p5zmeso.F90

Timestamp:

2020-03-11T19:30:42+01:00 (4 years ago)

Author:

aumont

Message:

initialization of local arrays to 0

File:

• NEMO/branches/2019/dev_r11708_aumont_PISCES_QUOTA/src/TOP/PISCES/P4Z/p5zmeso.F90 (modified) (1 diff)

NEMO/branches/2019/dev_r11708_aumont_PISCES_QUOTA/src/TOP/PISCES/P4Z/p5zmeso.F90

@@ -111 +111 @@
       IF( ln_timing )   CALL timing_start('p5z_meso')
       !
-      zgrazing(:,:,:) = 0._wp
-      zfezoo2 (:,:,:) = 0._wp
+      ! Initialization of local arrays
+      zgrazing(:,:,:) = 0._wp  ;  zfezoo2(:,:,:) = 0._wp
+      zgrarem (:,:,:) = 0._wp  ;  zgraren(:,:,:) = 0._wp
+      zgrarep (:,:,:) = 0._wp  ;  zgraref(:,:,:) = 0._wp
+      zgrapoc (:,:,:) = 0._wp  ;  zgrapon(:,:,:) = 0._wp
+      zgrapop (:,:,:) = 0._wp  ;  zgrapof(:,:,:) = 0._wp
+      zgradoc (:,:,:) = 0._wp  ;  zgradon(:,:,:) = 0._wp
+      zgradop (:,:,:) = 0._wp   
       !
       IF (ln_ligand) THEN