New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 10362 for NEMO/trunk/src/TOP/PISCES/P4Z/p4zsink.F90 – NEMO

Ignore:
Timestamp:
2018-11-30T16:38:17+01:00 (5 years ago)
Author:
aumont
Message:

Various bug fixes and improvements

File:
1 edited

Legend:

Unmodified
Added
Removed

  • NEMO/trunk/src/TOP/PISCES/P4Z/p4zsink.F90

    r10069 r10362  
    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.