Ignore:
Timestamp:
2014-03-03T19:12:24+01:00 (7 years ago)
Author:
cetlod
Message:

v3.6alpha : bugfixes in PISCES, see ticket #1251

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2013/dev_MERGE_2013/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zmicro.F90

    r4147 r4521  
    184184               tra(ji,jj,jk,jpcal) = tra(ji,jj,jk,jpcal) + zprcaca 
    185185#if defined key_kriest 
    186                tra(ji,jj,jk,jpnum) = tra(ji,jj,jk,jpnum) + ( zmortz - zgrazm ) * xkr_dmicro 
     186               tra(ji,jj,jk,jpnum) = tra(ji,jj,jk,jpnum) + zmortz * xkr_dmicro & 
     187                                                         - zgrazm * trn(ji,jj,jk,jpnum) / ( trn(ji,jj,jk,jppoc) + rtrn ) 
    187188#endif 
    188189            END DO 
Note: See TracChangeset for help on using the changeset viewer.