Ignore:
Timestamp:
2018-12-03T12:45:01+01:00 (2 years ago)
Author:
smasson
Message:

dev_r10164_HPC09_ESIWACE_PREP_MERGE: merge with trunk@10365, see #2133

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/TOP/PISCES/P4Z/p4zsink.F90

    r10314 r10368  
    143143      END DO 
    144144 
    145       wscal (:,:,:) = wsbio4(:,:,:) 
    146  
    147145      !  Initializa to zero all the sinking arrays  
    148146      !   ----------------------------------------- 
     
    165163        CALL p4z_sink2( wsbio4, sinkfer2, jpbfe, iiter2 ) 
    166164        CALL p4z_sink2( wsbio4, sinksil , jpgsi, iiter2 ) 
    167         CALL p4z_sink2( wscal , sinkcal , jpcal, iiter2 ) 
     165        CALL p4z_sink2( wsbio4, sinkcal , jpcal, iiter2 ) 
    168166      END DO 
    169167 
Note: See TracChangeset for help on using the changeset viewer.