Changeset 801

Timestamp:

2008-01-31T10:38:37+01:00 (16 years ago)

Author:

ctlod

Message:

apply (1. - frld) to tprecip(:,:) field when computing emp(:,:) final field, see ticket:#58

File:

• branches/dev_001_SBC/NEMO/LIM_SRC/limsbc.F90 (modified) (1 diff)

branches/dev_001_SBC/NEMO/LIM_SRC/limsbc.F90

@@ -147 +147 @@
             !  computing freshwater exchanges at the ice/ocean interface
             zemp = + emp(ji,jj)     *         frld(ji,jj)      &   !  e-p budget over open ocean fraction 
-               &   - tprecip(ji,jj)                            &   !  liquid precipitation reaches directly the ocean
+               &   - tprecip(ji,jj) * ( 1. -  frld(ji,jj) )    &   !  liquid precipitation reaches directly the ocean
                &   + sprecip(ji,jj) * ( 1. - pfrld(ji,jj) )    &   !  taking into account change in ice cover within the time step
                &   + rdmsnif(ji,jj) / rdt_ice                      !  freshwaterflux due to snow melting