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 10794 – NEMO

Changeset 10794


Ignore:
Timestamp:
2019-03-22T10:25:28+01:00 (5 years ago)
Author:
cetlod
Message:

trunk : minor bugfix in PISCES

Location:
NEMO/trunk/src/TOP/PISCES
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • NEMO/trunk/src/TOP/PISCES/P4Z/p4zsbc.F90

    r10788 r10794  
    108108         IF( kt == nit000 .OR. ( kt /= nit000 .AND. ntimes_dust > 1 ) ) THEN 
    109109            CALL fld_read( kt, 1, sf_dust ) 
    110             dust(:,:) = MAX( rtrn, sf_dust(1)%fnow(:,:,1) ) * ( 1.0 - fr_i(ji,jj) ) 
     110            dust(:,:) = MAX( rtrn, sf_dust(1)%fnow(:,:,1) ) * ( 1.0 - fr_i(:,:) ) 
    111111         ENDIF 
    112112      ENDIF 
  • NEMO/trunk/src/TOP/PISCES/trcice_pisces.F90

    r10788 r10794  
    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.