- Timestamp:
- Jul 23, 2001, 2:31:05 PM (23 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ.3.3/branches/rel-LF/libf/phylmd/interface_surf.F90
r258 r262 224 224 call abort_gcm(modname,abort_message,1) 225 225 endif 226 allocate(alb_neig_grid(klon), stat = error)227 if (error /= 0) then228 abort_message='Pb allocation alb_neig_grid'229 call abort_gcm(modname,abort_message,1)230 endif226 ! 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 231 231 endif 232 232 first_call = .false.
Note: See TracChangeset
for help on using the changeset viewer.