Changeset 10792


Ignore:
Timestamp:
2019-03-21T18:17:50+01:00 (19 months ago)
Author:
aumont
Message:

minor bugfixes in trcice_pisces.F90

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/releases/release-4.0/src/TOP/PISCES/trcice_pisces.F90

    r10780 r10792  
    119119      zpisc(jpno3,1) =  5.79e-6_wp / rno3  
    120120      zpisc(jpnh4,1) =  3.22e-7_wp / rno3 
     121      zpisc(jplgw,1) =  1.0e-9_wp 
    121122 
    122123      ! ln_p5z 
     
    162163      zpisc(jpno3,2) =  3.51e-06_wp / rno3  
    163164      zpisc(jpnh4,2) =  6.15e-08_wp / rno3  
     165      zpisc(jplgw,2) =  1.0e-9_wp 
    164166 
    165167      ! ln_p5z 
     
    205207      zpisc(jpno3,3) =  2.64e-5_wp / rno3   
    206208      zpisc(jpnh4,3) =  3.39e-7_wp / rno3   
     209      zpisc(jplgw,3) =  1.0e-9_wp 
    207210 
    208211      ! ln_p5z 
     
    249252      zpisc(jpno3,4) = 5.36e-5_wp / rno3 
    250253      zpisc(jpnh4,4) = 7.18e-7_wp / rno3 
     254      zpisc(jplgw,4) = 1.0e-9_wp 
    251255 
    252256      ! ln_p5z 
     
    270274!     is activated, ln_ironice should be set to false 
    271275!     ------------------------------------------------------------------------ 
    272       IF( nn_ice_tr >= 0 .AND. ln_ironice ) THEN 
     276      IF( nn_ice_tr /= 0 .AND. ln_ironice ) THEN 
    273277         IF(lwp) THEN 
    274278            WRITE(numout,*) '   ==>>>   ln_ironice incompatible with nn_ice_tr = ', nn_ice_tr 
Note: See TracChangeset for help on using the changeset viewer.