Changeset 11113


Ignore:
Timestamp:
2019-06-14T16:49:25+02:00 (17 months ago)
Author:
aumont
Message:

small bug fix in the previous bug correction

File:
1 edited

Legend:

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

    r11108 r11113  
    286286     ! layer, this spectrum is supposed to be uniform. 
    287287     ! --------------------------------------------------------------------- 
    288      ztremint(:,:,:) = zremigoc(:,:,:) 
     288     ztremint(:,:,:) = zremipoc(:,:,:) 
    289289     DO jk = 1, jpkm1 
    290290        DO jj = 1, jpj 
Note: See TracChangeset for help on using the changeset viewer.