Changeset 5020


Ignore:
Timestamp:
2015-01-09T09:59:16+01:00 (6 years ago)
Author:
cetlod
Message:

fix for freezing-melting flux for BGCM, see ticket #1433

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMOGCM/NEMO/LIM_SRC_3/limsbc.F90

    r4990 r5020  
    180180 
    181181            ! mass flux at the ocean/ice interface 
    182             fmmflx(ji,jj) = - wfx_ice(ji,jj) * rdt_ice                   ! F/M mass flux save at least for biogeochemical model 
     182            fmmflx(ji,jj) = - wfx_ice(ji,jj) * r1_rdtice                    ! F/M mass flux save at least for biogeochemical model 
    183183            emp(ji,jj)    = zemp - wfx_ice(ji,jj) - wfx_snw(ji,jj)       ! mass flux + F/M mass flux (always ice/ocean mass exchange) 
    184184             
Note: See TracChangeset for help on using the changeset viewer.