Changeset 750


Ignore:
Timestamp:
2007-12-07T12:26:45+01:00 (14 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:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/dev_001_SBC/NEMO/LIM_SRC/limsbc.F90

    r717 r750  
    147147            !  computing freshwater exchanges at the ice/ocean interface 
    148148            zemp = + emp(ji,jj)     *         frld(ji,jj)      &   !  e-p budget over open ocean fraction  
    149                !                                                   !  ice-covered fraction: 
    150                &   - tprecip(ji,jj) * ( 1. -  frld(ji,jj) )    &   !  liquid precipitation reaches directly the ocean 
     149               &   - tprecip(ji,jj)                            &   !  liquid precipitation reaches directly the ocean 
    151150               &   + sprecip(ji,jj) * ( 1. - pfrld(ji,jj) )    &   !  taking into account change in ice cover within the time step 
    152151               &   + rdmsnif(ji,jj) / rdt_ice                      !  freshwaterflux due to snow melting  
     152               !                                                   !  ice-covered fraction: 
    153153 
    154154!!gm old    zemp = + evap(ji,jj) * frld(ji,jj)                 &   !  evaporation over oceanic fraction 
     
    228228      zaldum(:,:) = 0.e0 
    229229 
    230       CALL flx_blk_albedo( zalb, zalcn, zalbp, zaldum ) 
     230      CALL blk_albedo( zalb, zalcn, zalbp, zaldum ) 
    231231 
    232232      alb_ice(:,:) =  0.5 * zalbp(:,:) + 0.5 * zalb (:,:)   ! Ice albedo (mean clear and overcast skys) 
Note: See TracChangeset for help on using the changeset viewer.