Changeset 12538

Timestamp:

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

Author:

aumont

Message:

initialization of local arrays to 0

Location:

NEMO/branches/2019/dev_r11708_aumont_PISCES_QUOTA/src/TOP/PISCES/P4Z

Files:

• p4zmeso.F90 (modified) (2 diffs)
• p5zmeso.F90 (modified) (1 diff)

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

@@ -91 +91 @@
       IF( ln_timing )   CALL timing_start('p4z_meso')
       !
-      zgrazing(:,:,:) = 0._wp
-      zfezoo2 (:,:,:) = 0._wp
+      zgrazing(:,:,:) = 0._wp   ;  zgrapoc(:,:,:) = 0._wp
+      zfezoo2 (:,:,:) = 0._wp   ;  zgrarem(:,:,:) = 0._wp
+      zgraref (:,:,:) = 0._wp   ;  zgrapof(:,:,:) = 0._wp
       !
       IF (ln_ligand) THEN
@@ -104 +105 @@
       IF (ln_dvm_meso) CALL p4z_meso_depmig
       !
-      DO jk = 1, jpkm1
+      DO jk = 1, jpk
          DO jj = 1, jpj
             DO ji = 1, jpi

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