Changeset 1449


Ignore:
Timestamp:
11/08/10 17:19:04 (7 years ago)
Author:
jghattas
Message:

Bug correction : avoid small fractions to reappear at second time step.

/M-A Foujols, JG

File:
1 edited

Legend:

Unmodified
Added
Removed
  • LMDZ5/branches/LMDZ5V1.0-dev/libf/phylmd/change_srf_frac_mod.F90

    r996 r1449  
    99!  
    1010! Change Surface Fractions 
    11 ! 
     11! Author J Ghattas 2008 
     12 
    1213  SUBROUTINE change_srf_frac(itime, dtime, jour, & 
    1314       pctsrf, alb1, alb2, tsurf, u10m, v10m, pbl_tke) 
     
    7677    END SELECT 
    7778 
    78     IF (is_modified) THEN 
     79 
    7980!**************************************************************************************** 
    8081! 2)  
     
    8485! 
    8586!**************************************************************************************** 
     87    IF (is_modified) THEN 
    8688   
    8789! Test and exit if a fraction is negative 
     
    150152       CALL pbl_surface_newfrac(itime, pctsrf, pctsrf_old, tsurf, alb1, alb2, u10m, v10m, pbl_tke) 
    151153 
     154    ELSE 
     155       ! No modifcation should be done 
     156       pctsrf(:,:) = pctsrf_old(:,:) 
     157 
    152158    END IF ! is_modified 
    153159 
Note: See TracChangeset for help on using the changeset viewer.