Changeset 12967


Ignore:
Timestamp:
2020-05-25T20:16:17+02:00 (4 months ago)
Author:
cetlod
Message:

branch clem_dan_fixcpl : remove duplicated lines in p4zfechem PISCES routine. Fix to be done also in the trunk

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2020/r4.0-HEAD_r12713_clem_dan_fixcpl/src/TOP/PISCES/P4Z/p4zfechem.F90

    r12276 r12967  
    121121               ! 
    122122               zfeequi = zFe3(ji,jj,jk) * 1E-9 
    123                zhplus  = max( rtrn, hi(ji,jj,jk) ) 
    124                fe3sol  = fesol(ji,jj,jk,1) * ( zhplus**3 + fesol(ji,jj,jk,2) * zhplus**2  & 
    125                   &         + fesol(ji,jj,jk,3) * zhplus + fesol(ji,jj,jk,4)     & 
    126                   &         + fesol(ji,jj,jk,5) / zhplus ) 
    127123               zfecoll = 0.5 * zFeL1(ji,jj,jk) * 1E-9 
    128124               ! precipitation of Fe3+, creation of nanoparticles 
Note: See TracChangeset for help on using the changeset viewer.