Changeset 12538


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

initialization of local arrays to 0

Location:
NEMO/branches/2019/dev_r11708_aumont_PISCES_QUOTA/src/TOP/PISCES/P4Z
Files:
2 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 
  • 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.