Changeset 10368 for NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/TOP/PISCES/P4Z/p4zsink.F90
- Timestamp:
- 2018-12-03T12:45:01+01:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/TOP/PISCES/P4Z/p4zsink.F90
r10314 r10368 143 143 END DO 144 144 145 wscal (:,:,:) = wsbio4(:,:,:)146 147 145 ! Initializa to zero all the sinking arrays 148 146 ! ----------------------------------------- … … 165 163 CALL p4z_sink2( wsbio4, sinkfer2, jpbfe, iiter2 ) 166 164 CALL p4z_sink2( wsbio4, sinksil , jpgsi, iiter2 ) 167 CALL p4z_sink2( ws cal, sinkcal , jpcal, iiter2 )165 CALL p4z_sink2( wsbio4, sinkcal , jpcal, iiter2 ) 168 166 END DO 169 167
Note: See TracChangeset
for help on using the changeset viewer.