Changeset 750

Timestamp:

2007-12-07T12:26:45+01:00 (16 years ago)

Author:

ctlod

Message:

remove the mask multiplication (1- frld()) applied to field tprecip when computing emp field in limsbc.F90 and change CALL flx_blk_albedo into CALL blk_albedo, see ticket:#30

File:

• branches/dev_001_SBC/NEMO/LIM_SRC/limsbc.F90 (modified) (2 diffs)

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 
-               !                                                   !  ice-covered fraction:
-               &   - tprecip(ji,jj) * ( 1. -  frld(ji,jj) )    &   !  liquid precipitation reaches directly the ocean
+               &   - tprecip(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 
+               !                                                   !  ice-covered fraction:
 
 !!gm old    zemp = + evap(ji,jj) * frld(ji,jj)                 &   !  evaporation over oceanic fraction
@@ -228 +228 @@
       zaldum(:,:) = 0.e0
 
-      CALL flx_blk_albedo( zalb, zalcn, zalbp, zaldum )
+      CALL blk_albedo( zalb, zalcn, zalbp, zaldum )
 
       alb_ice(:,:) =  0.5 * zalbp(:,:) + 0.5 * zalb (:,:)   ! Ice albedo (mean clear and overcast skys)