Changeset 262 for LMDZ.3.3/branches/rel-LF/libf/phylmd

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:

• LMDZ.3.3/branches/rel-LF/libf/phylmd/interface_surf.F90 (modified) (1 diff)

LMDZ.3.3/branches/rel-LF/libf/phylmd/interface_surf.F90

@@ -224 +224 @@
       call abort_gcm(modname,abort_message,1)
     endif
-    allocate(alb_neig_grid(klon), stat = error)
-    if (error /= 0) then
-      abort_message='Pb allocation alb_neig_grid'
-      call abort_gcm(modname,abort_message,1)
-    endif
+!    allocate(alb_neig_grid(klon), stat = error)
+!    if (error /= 0) then
+!      abort_message='Pb allocation alb_neig_grid'
+!      call abort_gcm(modname,abort_message,1)
+!    endif
   endif
   first_call = .false.