Ignore:
Timestamp:
Jul 23, 2001, 2:31:05 PM (23 years ago)
Author:
lmdzadmin
Message:

Pb avec alb_neig_grid qui n'est plus utilise
LF

File:
1 edited

Legend:

Unmodified
Added
Removed
  • LMDZ.3.3/branches/rel-LF/libf/phylmd/interface_surf.F90

    r258 r262  
    224224      call abort_gcm(modname,abort_message,1)
    225225    endif
    226     allocate(alb_neig_grid(klon), stat = error)
    227     if (error /= 0) then
    228       abort_message='Pb allocation alb_neig_grid'
    229       call abort_gcm(modname,abort_message,1)
    230     endif
     226!    allocate(alb_neig_grid(klon), stat = error)
     227!    if (error /= 0) then
     228!      abort_message='Pb allocation alb_neig_grid'
     229!      call abort_gcm(modname,abort_message,1)
     230!    endif
    231231  endif
    232232  first_call = .false.
Note: See TracChangeset for help on using the changeset viewer.