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/p4zmeso.F90

    r12537 r12538  
    9191      IF( ln_timing )   CALL timing_start('p4z_meso') 
    9292      ! 
    93       zgrazing(:,:,:) = 0._wp 
    94       zfezoo2 (:,:,:) = 0._wp 
     93      zgrazing(:,:,:) = 0._wp   ;  zgrapoc(:,:,:) = 0._wp 
     94      zfezoo2 (:,:,:) = 0._wp   ;  zgrarem(:,:,:) = 0._wp 
     95      zgraref (:,:,:) = 0._wp   ;  zgrapof(:,:,:) = 0._wp 
    9596      ! 
    9697      IF (ln_ligand) THEN 
     
    104105      IF (ln_dvm_meso) CALL p4z_meso_depmig 
    105106      ! 
    106       DO jk = 1, jpkm1 
     107      DO jk = 1, jpk 
    107108         DO jj = 1, jpj 
    108109            DO ji = 1, jpi 
Note: See TracChangeset for help on using the changeset viewer.