Ignore:
Timestamp:
2020-03-11T19:30:42+01:00 (10 months ago)
Author:
aumont
Message:

initialization of local arrays to 0

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2019/dev_r11708_aumont_PISCES_QUOTA/src/TOP/PISCES/P4Z/p5zmeso.F90

    r12537 r12538  
    111111      IF( ln_timing )   CALL timing_start('p5z_meso') 
    112112      ! 
    113       zgrazing(:,:,:) = 0._wp 
    114       zfezoo2 (:,:,:) = 0._wp 
     113      ! Initialization of local arrays 
     114      zgrazing(:,:,:) = 0._wp  ;  zfezoo2(:,:,:) = 0._wp 
     115      zgrarem (:,:,:) = 0._wp  ;  zgraren(:,:,:) = 0._wp 
     116      zgrarep (:,:,:) = 0._wp  ;  zgraref(:,:,:) = 0._wp 
     117      zgrapoc (:,:,:) = 0._wp  ;  zgrapon(:,:,:) = 0._wp 
     118      zgrapop (:,:,:) = 0._wp  ;  zgrapof(:,:,:) = 0._wp 
     119      zgradoc (:,:,:) = 0._wp  ;  zgradon(:,:,:) = 0._wp 
     120      zgradop (:,:,:) = 0._wp    
    115121      ! 
    116122      IF (ln_ligand) THEN 
Note: See TracChangeset for help on using the changeset viewer.