Ignore:
Timestamp:
2014-07-29T11:43:18+02:00 (7 years ago)
Author:
vancop
Message:

cosmetic changes

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2014/dev_4728_CNRS04_coupled_interface/NEMOGCM/NEMO/OPA_SRC/SBC/sbcice_lim.F90

    r4731 r4732  
    138138         ! masked sea surface freezing temperature [Kelvin] 
    139139         t_bo(:,:) = ( tfreez( sss_m ) +  rt0 ) * tmask(:,:,1) + rt0 * ( 1. - tmask(:,:,1) ) 
     140 
    140141 
    141142         !                                           ! Ice albedo 
     
    367368      !!                    
    368369      !! ** Purpose :   update the ice surface boundary condition by averaging and / or 
    369      !!                redistributing fluxes on ice categories                    
     370      !!                redistributing fluxes on ice categories                    
    370371      !! 
    371372      !! ** Method  :   average then redistribute  
     
    408409         z_dql_m(:,:) = fice_ice_ave ( pdql_ice (:,:,:) ) 
    409410         DO jl = 1, jpl 
    410             pdqns_ice(:,:,jl) = z_dqn_m(:,:) 
    411             pdqla_ice(:,:,jl) = z_dql_m(:,:) 
     411            pdqn_ice(:,:,jl) = z_dqn_m(:,:) 
     412            pdql_ice(:,:,jl) = z_dql_m(:,:) 
    412413         END DO 
    413414         ! 
Note: See TracChangeset for help on using the changeset viewer.